Что нового

Преобразование множества txt файлов в xml файлы при помощи цикл

2012_diko

Новичок
Сообщения
1
Репутация
0
Имеется множество текстовых файлов. Нужно их преобразовать в xml файлы. Получается только для одного файла "атлетика .txt". Создал массив со списком txt файлов, но не знаю как записать цикл
Код:
Dim $Result
Dim $filesample
local $Rtn = ""
Local $fArray
Local $oDoc1 = ObjCreate('MSXML2.DOMDocument')
$oDoc1.ValidateOnParse = True
$oDoc1.Load("file.xml")
;$oDoc1.LoadXML($file)
$file = FileOpen("file.xml",2)
$tfile = "атлетика.txt"

$FileList=_FileListToArray(@ScriptDir, "*.txt" )
If @error=4 Then
MsgBox (0,"","Файлы/папки не найдены.")
Exit
EndIf
_ArrayDisplay($FileList,"$FileList")

_FileReadToArray($tfile, $fArray)
$word = FileGetLongName ($tfile,0)
 
Верх