Что нового

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

renom

Новичок
Сообщения
127
Репутация
2
Всем здрасьте и с новым годом :ok:
Мне нужен скрипт,который создал бы блокнот и в нем вписал бы все возможные шестизначные числа,начиная:
000000
000001
000002
........
........
457893
........
........
999997
999998
999999
Заранее благодарен! :smile:
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,671
Репутация
2,481
Код:
Run(@WindowsDir & "\Notepad.exe")
$hNotepad = WinWait("[REGEXPCLASS:Notepad.*]", "", 5)

For $i = 0 To 999999
	ControlCommand($hNotepad, "", "Edit1", "EditPaste", StringFormat("%06i\n", $i))
Next
 
Автор
R

renom

Новичок
Сообщения
127
Репутация
2
CreatoR сказал(а):
Код:
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

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
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

Осваивающий
Сообщения
233
Репутация
31
Код:
While 1
For $number=0 To 999999
FileWriteLine("C:\Текстовый документ.txt",StringFormat("%06d",$number))
Next
Wend
 
Автор
R

renom

Новичок
Сообщения
127
Репутация
2
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')
Спасибо большое,получилось...
И вот еще что хотелось бы...чтобы перед всеми этими цифрами автоматически вбивался следующий текст:
kojde;т.е.,получается так:
kojde;000000
kojde;000001
........
Получится? :smile:
 

Viktor217

Осваивающий
Сообщения
233
Репутация
31
Код:
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

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
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')
 
Автор
R

renom

Новичок
Сообщения
127
Репутация
2
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)
$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

Must AutoIt!
Команда форума
Администратор
Сообщения
8,671
Репутация
2,481
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

Осваивающий
Сообщения
233
Репутация
31
renom [?]
Не получилось...
А собственно что не получилось?) Должен был создаться документ, в него должны были вписываться числа, у себя проверил всё нормально...
Насчёт второго скрипта: у меня второй скрипт не работает(((=
 
Верх