M
mustang
- Original Poster
- #1
Does anyone know the easiest way to convert a text or csv file to Xml? Is there an online tool?
Dim strInfil, strOutfil
strInfil = "c:\myfile.txt"
strOutfil = "c:\myfile.xml"
Dim wrapper, field1, field2
wrapper = "container"
field1 = "csvcolumnone"
field2 = "csvcolumntwo"
set objFSO = createObject("Scripting.FileSystemObject")
set objINFIL = objFSO.openTextfile(strInfil, 1, 0 )
set objOUTFIL = objFSO.openTextfile(strOutfil, 2, 0)
while not objINFIL.atEndOfStream
arrFields = split( objINFIL.readline(), "," )
strOutLine = "<" & wrapper & "><" & field1 & ">" & arrFields(0) & _
"</" & field1 & "><" & field2 & ">" & arrFields(1) & "</" & field2 & _
"></" & wrapper & ">"
outOUTFIL.writeline strOutLine
wend
objOUTFIL.close
objINFIL.close