用vbs 将有序文件转换为有序文件

'msgbox "当前文件路径是 " & wscript.ScriptFullName
'set ws=CreateObject("WScript.Shell")
'MsgBox "当前文件夹是 " & ws.CurrentDirectory

'将xxx.list 转换为数组
'2016-07-24

option explicit
dim fso,fread,strline
dim txtfso, txtfs
dim idx, str
set fso=createobject("scripting.filesystemobject")
set fread=fso.opentextfile("xxx.list",1)

set txtfso = WScript.CreateObject("scripting.filesystemobject")
set txtfs = txtfso.CreateTextFile("xxx.txt", true)
txtfs.writeline("====  以下为转换后的内容  ====")
txtfs.writeblanklines(3)

do until fread.atendofstream
strline=replace(fread.readline, " ", "")  '当前行去除空格后，赋值给strline
idx = InStr(strline, "obj")  '获取 obj 在当前行的位置,索引从1开始
if idx > 0 then  '如果出现obj
idx = idx + 5
str = mid(strline, idx, 2) + ","
str = "{0x" + mid(strline, idx+2, 2) + str
idx = idx + 24
do
str = str + "0x" + mid(strline, idx, 2) + ","
idx = idx + 2
loop while idx < InStr(strline, "/>") - 8
str = mid(str, 1, 52) + "},"
txtfs.writeline(str)
str = ""
end if
loop
txtfs.close
fread.close
set fso=nothing