Что нового

[Ошибки] Ошибка error: missing Next

x-vit

Новичок
Сообщения
8
Репутация
0
Здравствуйте!
Был взят код от сюда: http://autoit-script.ru/index.php?topic=8238.msg55601#msg55601

Встала дополнительная задача его зациклить.
С помощью:
Код:
For $i = 1 To 5

Next


Получился такой результат:
Код:
#Include <File.au3>
For $j = 1 To 5

_FindFiles('C:', '*.txt')
Func _FindFiles($sRoot, $sFile)
    Local $FileList
    $FileList = _FileListToArray($sRoot, $sFile, 1)
    If Not @error Then
        For $i = 1 To $FileList[0]
            ConsoleWrite($sRoot & '\' & $FileList[$i] & @CR)
            $Read = FileRead($sRoot & '\' & $FileList[$i]) ;Считываем файл
            $Replace = StringRegExpReplace($Read, 'Меняем', 'Поменяели') ;Делаем изменение
            FileDelete($sRoot & '\' & $FileList[$i]) ;Удаляем файл
            FileWrite($sRoot & '\' & $FileList[$i], $Replace) ;На его место записываем измененный файл
        Next
    EndIf
    $FileList = _FileListToArray($sRoot, '*', 2)
    If Not @error Then
        For $i = 1 To $FileList[0]
            _FindFiles($sRoot & '\' & $FileList[$i], $sFile)
        Next
    EndIf
EndFunc

Next

MsgBox(0, 'Циклы - КОНЕЦ', 'КОНЕЦ!' )


При запуске выдает: error: missing Next

Подскажите как выйти из ситуации!
 

ra4o

AutoIT Гуру
Сообщения
1,165
Репутация
246
Не нужно в цикл включать саму функцию, сделайте так :
Код:
For $j=1 to 5
	_FindFiles('C:', '*.txt')
Next
 
Верх