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