Создание в блокноте все возможные шестизначные числа

[renom]

Всем здрасьте и с новым годом
Мне нужен скрипт,который создал бы блокнот и в нем вписал бы все возможные шестизначные числа,начиная:

000000
000001
000002
........
........
457893
........
........
999997
999998
999999

Заранее благодарен!

 

[CreatoR]

Run(@WindowsDir & "\Notepad.exe")
$hNotepad = WinWait("[REGEXPCLASS:Notepad.*]", "", 5)

For $i = 0 To 999999
	ControlCommand($hNotepad, "", "Edit1", "EditPaste", StringFormat("%06i\n", $i))
Next

 

[renom]

Run(@WindowsDir & "\Notepad.exe")
$hNotepad = WinWait("[REGEXPCLASS:Notepad.*]", "", 5)

For $i = 0 To 999999
	ControlCommand($hNotepad, "", "Edit1", "EditPaste", StringFormat("%06i\n", $i))
Next

Не получилось...открылся только AkelPad и все...

 

[madmasles]

renom
А так:

$sText = ''
For $i = 0 To 999998
	$sText &= StringFormat('%06i\r\n', $i)
Next
$sText &= 999999
$hFile = FileOpen(@ScriptDir & '\test.txt', 2)
FileWrite($hFile, $sText)
FileClose($hFile)
Run(@WindowsDir & '\Notepad.exe ' & @ScriptDir & '\test.txt')

 

[Viktor217]

While 1
For $number=0 To 999999
FileWriteLine("C:\Текстовый документ.txt",StringFormat("%06d",$number))
Next
Wend

 

[renom]

renom
А так:

$sText = ''
For $i = 0 To 999998
	$sText &= StringFormat('%06i\r\n', $i)
Next
$sText &= 999999
$hFile = FileOpen(@ScriptDir & '\test.txt', 2)
FileWrite($hFile, $sText)
FileClose($hFile)
Run(@WindowsDir & '\Notepad.exe ' & @ScriptDir & '\test.txt')

Спасибо большое,получилось...
И вот еще что хотелось бы...чтобы перед всеми этими цифрами автоматически вбивался следующий текст:
kojde;т.е.,получается так:

kojde;000000
kojde;000001
........

Получится?

 

[Viktor217]

While 1
For $number=0 To 999999
FileWriteLine("C:\Documents and Settings\Admin\Мои документы\Текстовый документ.txt","kojde;"&StringFormat("%06d",$number))
Next
Wend

Или:

$sText = ''
For $i = 0 To 999998
    $sText &= StringFormat('%06i\r\n', $i)
Next
$sText &= 999999
$hFile = FileOpen(@ScriptDir & '\test.txt', 2)
FileWrite($hFile,"kojde;"&$sText)
FileClose($hFile)
Run(@WindowsDir & '\Notepad.exe ' & @ScriptDir & '\test.txt')

 

[madmasles]

renom [?]

чтобы перед всеми этими цифрами автоматически вбивался следующий текст:

$sText = ''
For $i = 0 To 999998
	$sText &= 'kojde;' & StringFormat('%06i\r\n', $i)
Next
$sText &= 'kojde;' & 999999
$hFile = FileOpen(@ScriptDir & '\test.txt', 2)
FileWrite($hFile, $sText)
FileClose($hFile)
$sPath = RegRead('HKEY_CLASSES_ROOT\text_auto_file\shell\open\command', '')
$pattern = '(?i)^(?>("|))(.*?\.exe)\1(\s.*+|)$'
$sPath = StringRegExpReplace($sPath, $pattern, '\2')
Run($sPath & ' ' & @ScriptDir & '\test.txt')

 

[renom]

While 1
For $number=0 To 999999
FileWriteLine("C:\Documents and Settings\Admin\Мои документы\Текстовый документ.txt","kojde;"&StringFormat("%06d",$number))
Next
Wend

Или:

$sText = ''
For $i = 0 To 999998
    $sText &= StringFormat('%06i\r\n', $i)
Next
$sText &= 999999
$hFile = FileOpen(@ScriptDir & '\test.txt', 2)
FileWrite($hFile,"kojde;"&$sText)
FileClose($hFile)
Run(@WindowsDir & '\Notepad.exe ' & @ScriptDir & '\test.txt')

Не получилось...


Добавлено:

Сообщение автоматически объединено: 6 Янв 2011

renom [?]

чтобы перед всеми этими цифрами автоматически вбивался следующий текст:

$sText = ''
For $i = 0 To 999998
	$sText &= 'kojde;' & StringFormat('%06i\r\n', $i)
Next
$sText &= 'kojde;' & 999999
$hFile = FileOpen(@ScriptDir & '\test.txt', 2)
FileWrite($hFile, $sText)
FileClose($hFile)
$aPath = RegRead('HKEY_CLASSES_ROOT\text_auto_file\shell\open\command', '')
$pattern = '(?i)^(?>("|))(.*?\.exe)\1(\s.*+|)$'
$aPath = StringRegExpReplace($aPath, $pattern, '\2')
Run($aPath & ' ' & @ScriptDir & '\test.txt')

Все,спасибо большое))

 

[CreatoR]

renom [?]

Не получилось...открылся только AkelPad и все...

Ну значит Akelpad вмсето Notepad'а стоит.

[?]

Получится?

$sData = ""

For $i = 0 To 999999
    $sData &= StringFormat("kojde;%06i\r\n", $i)
Next

$hFile = FileOpen(@ScriptDir & "\Numbers.txt", 2)
FileWrite($hFile, $sData)
FileClose($hFile)

ShellExecute(@ScriptDir & "\Numbers.txt")

 

[Viktor217]

renom [?]

Не получилось...

А собственно что не получилось?) Должен был создаться документ, в него должны были вписываться числа, у себя проверил всё нормально...
Насчёт второго скрипта: у меня второй скрипт не работает(((=