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

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

'msgbox "当前文件路径是 " & wscript.ScriptFullName 'set ws=CreateObject("WScript.Shell") 'MsgBox "当前文件夹是 " & ws.CurrentDirectory '将xxx.list 转换为数组'2016-07-24option explicitdim fso,fread,strlinedim txtfso, txtfsdim idx, strset 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 iflooptxtfs.closefread.closeset fso=nothing