Board logo

标题: [ZT]HTML2JS转换脚本 [打印本页]
作者: electronixtar     时间: 2006-10-3 09:25    标题: [ZT]HTML2JS转换脚本

HTML2JS转换脚本
来自：51windows.Net　　作者：海娃

--------------------------------------------------------------------------------

HTML2JS转换脚本,使用方法：将此文件放在sendto文件中，然后在htm文件上点右键，发送到，html2js.vbs，输入要生成的格式js或asp　脚本会生成一个同名的文件，但扩展名为.js或.asp或者将html文件拖放在此文件上。

支持带 Javascript 代码的html文件

代码：html2js.vbs

  Quote:
'HTML2JS转换脚本,使用方法：将此文件放在sendto文件中，然后在htm文件上点右键，发送到，html2js.vbs，输入要生成的格式js或asp　脚本会生成一个同名的文件，但扩展名为.js或.asp或者将html文件拖放在此文件上。
'海娃@http://www.51windows.Net
Set ArgObj = WScript.Arguments
FilePath=ArgObj(0)

dim FSO,file,str1,str
set FSO=CreateObject("scripting.filesystemobject")
set file=FSO.OpenTextFile(FilePath,1)

ConvertType = inputbox("请输入要换类型,js或asp","请输入要换类型,js或asp","js")
        if trim(lcase(ConvertType)) = "js" then
        str = "//51windows.Net html2js转换脚本@"& Now() & vbnewline
        while not file.atendofstream
                str1=file.readline
                if len(str1)>0 then
                        str1= Replace(str1,"\","\\")
                        str1= Replace(str1,"/","\/")
                        str1= Replace(str1,"""","\""")
                        str1 = "document.writeln("""&str1&""");"&vbnewline
                str = str & str1
                end if
        wend

        Set fout = fso.CreateTextFile(FilePath & ".js")
        fout.WriteLine str
        fout.close
        msgbox "已经生成"
elseif trim(lcase(ConvertType)) = "asp" then

        str = "'51windows.Net html2js转换脚本@"& Now() & vbnewline
        while not file.atendofstream
                str1=file.readline
                if len(str1)>0 then
                        str1= Replace(str1,"%>","%\>")
                        str1= Replace(str1,"""","""""")
                        str1 = "Response.write """&str1&""" & vbNewLine "&vbnewline
                str = str & str1
                end if
        wend

        Set fout = fso.CreateTextFile(FilePath & ".asp")
        fout.WriteLine "<%"& vbnewline & str & "%>"
        fout.close
        msgbox "已经生成"
else
        msgbox "操作取消"
end if

作者: redtek     时间: 2006-10-4 01:52
过瘾！！！
作者: redtek     时间: 2006-10-4 02:01
如果组织办个　VBScript　或　批处理脚本　学习班，
来个面授的！每人Ｎ块钱向征性包场培训，培训完以后狂吃，吃晕过去解散～：）
说不定将来面授学习班越办越火～：）
作者: fastslz     时间: 2006-10-4 02:19
这个强...昨天你发的rss2html除了“今晚最后一个帖子”看懂了，其它的全是洋文......
作者: SHOCIAA     时间: 2007-7-7 17:06
为什么我转换成.js文件以后会提示“'document'未定义”