- Сообщения
- 8,673
- Репутация
- 2,487
$filename = StringRegExp(@ScriptDir & '\файл.txt', '(^.*)\\(.*)\.(.*)$', 3)
; генерируем имя нового файла с номером копии на случай если файл существует
$Output = $filename[0] & '\Bin_'
$j = 1
While FileExists($Output & $j & '_' & $filename[1] & '.au3')
$j += 1
WEnd
$Output &= $j & '_' & $filename[1] & '.au3'
$hFile = FileOpen($Output, 1)
FileWrite($hFile, '$sData=""' & @CRLF)
; Создаём блок 4040 символов
$sText = ''
For $i = 1 To 101
$sText &= 'mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm' ; 40 символов
Next
; 3 - Да, 4 - Нет...... 4040 * 40000 = 161600000 символов = 154 Мб
For $i = 1 To 40000
FileWrite($hFile, '$sData &= ''' & $sText & '''' & @CRLF) ; записываем блоки по 4040 символов
Next
FileWrite($hFile, @CRLF & "MsgBox(0, 'Успешный старт', 'Yes, Да')")
FileClose($hFile)
MsgBox(0, 'Сообщение', 'Скрипт-файл Bin_' & $j & '_' & $filename[1] & '.au3 создан.')
А я-то думал, почему простенький скрипт нагружает процессор i7 аж на 1-2%#2003: ProcessWaitClose() вызывает большую нагрузку на процессор.
Там должен быть пункт запуска бета версии.через редактор не получается запустить такой код:
#AutoIt3Wrapper_Autoit3Dir=C:\AutoIt_Beta
Все кроме последнего - неправильные.Вот такие варианты:
и через редактор не получается запустить такой код
MnM [?]ЦитатаТам должен быть пункт запуска бета версии.через редактор не получается запустить такой код:
Можно ещё так сделать:Код: AutoItКод:#AutoIt3Wrapper_Autoit3Dir=C:\AutoIt_Beta
Внимание: эта возможность присутствует только для теста. Она может не работать, содержать баги и может быть изменена в будущем без какого-либо предварительного уведомления.
НЕ ПРИСЫЛАЙТЕ СООБЩЕНИЯ ОБ ОШИБКАХ ИЛИ ПРОСЬБЫ ОБ ИЗМЕНЕНИИ ФУНКЦИОНАЛА.
ИСПОЛЬЗУЙТЕ НА СВОЙ СТРАХ И РИСК.