將VBS或ASP中的代碼轉(zhuǎn)成一句話形式

    將VBS或ASP中的代碼轉(zhuǎn)成一句話形式 以前都以為直接把換行符換成冒號就可以了...
    結(jié)果發(fā)現(xiàn),有TABLE不行
    類似if xx=1 then yy=2 的也不行...
    //此腳本支持拖放,也可以在命令行下使用 cscript change.vbs xx.asp
    代碼如下:
    On Error Resume Next
    Set Arg=Wscript.Arguments
    If Arg.Count=0 Then wscript.quit
    'code by NetPatch
    'enjoy it
    Set Fso=CreateObject("Scripting.FileSystemObject")
    Set File=Fso.OpenTextFile(arg(0),1,False,-2)
    Set Files=Fso.OpenTextFile(arg(0)&".vbs",2,True)
    Do While File.AtEndOfStream <> True
    szBuf=File.readline
    szBuf=Replace(szBuf,chr(9),"")
    Findnum=InStr(LCase(szBuf),"then")
    If Findnum >0 Then
    Findnum=findnum+3
    If Len(szBuf) > Findnum Then
    szBuf=szBuf&":End If"
    End If
    End If
    Files.Write szBuf&":"
    Loop
    File.Close
    Files.Close
    Set Fso=Nothing
    Wscript.echo "ok!"