Что нового

FileFindFirstFile не находит файлы при повторном запуске

UraharaGin

Новичок
Сообщения
1
Репутация
0
При повторном запуске функции не находит файлы. Обьясните, пожалуйста, что я не так делаю.

Код:
Func OpenA($XMLfolder = "./Editions/")
	$XML = FileFindFirstFile($XMLfolder & "*.xml")
	If @error Then
		MsgBox(48, "Error", "Editions folder is empty")
		FileClose($XML)
		Return
	EndIf
	$XMLfound = FileFindNextFile($XML)
	_GUICtrlListBox_ResetContent($list1)
	FileOpen($XMLfound)
	Dim $ArrayS[1][5]
	While 1
		If @error Then ExitLoop
		$String = FileRead($XMLfolder & $XMLfound)
		If GUICtrlRead($check) = $GUI_UNCHECKED Then
			$Array1 = StringRegExp($String, '(?s) name_ru\=\"(.*?)"', 3)
			$Array2 = StringRegExp($String, '(?s) type_ru\=\"(.*?)"', 3)
		Else
			$Array1 = StringRegExp($String, '(?s) name_eng\=\"(.*?)"', 3)
			$Array2 = StringRegExp($String, '(?s) type_eng\=\"(.*?)"', 3)
		EndIf
		$Array3 = StringRegExp($String, '(?s) mana\=\"(.*?)"', 3)
		$Array4 = StringRegExp($String, '(?s) number\=\"(.*?)"', 3)
		$Array5 = StringRegExp($String, '(?s) edition\=\"(.*?)"', 3)
		$size = UBound($ArrayS) - 1
		$szfst = 1
		ReDim $ArrayS[UBound($Array1) + $size][5]
		If $size = 0 Then $szfst = 0
		For $i = $size + $szfst To UBound($ArrayS) - 1
			$ArrayS[$i][0] = $Array1[$i - $size]
			$ArrayS[$i][1] = $Array2[$i - $size]
			$ArrayS[$i][2] = $Array3[$i - $size]
			$ArrayS[$i][3] = $Array4[$i - $size]
			$ArrayS[$i][4] = $Array5[$i - $size]
		Next
		$XMLfound = FileFindNextFile($XML)
	WEnd
	For $i = 0 To UBound($ArrayS) - 1
		GUICtrlSetData($list1, $ArrayS[$i][0])
	Next
	FileClose($XML)
	FileClose($XMLfound)
EndFunc   ;==>OpenA
 

Roman89

Новичок
Сообщения
107
Репутация
3
UraharaGin, у меня данный скрипт работает нормально! Попробуй указать другую папку! т.к. первый раз в указаной тобой папке у меня нечего не нашло хотя такая папка у меня имеется!
 

Yashied

Модератор
Команда форума
Глобальный модератор
Сообщения
5,379
Репутация
2,724
После FileClose() нужно вызвать FileFindFirstFile(), а уже потом FileFindNextFile().
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,671
Репутация
2,481
UraharaGin
Тема полезна будет и другим, я уверен что найдутся ещё те, кто споткнутся на этой проблеме.

Но...
[info border=#0000ff float=left]На форуме принято помечать тему решенной после получения ответа на свой вопрос!
Вверху или внизу темы нажмите на ссылку такого вида:
package_old.gif
Тема не решена
[/info]
 
Верх