HTML2JS转换脚本

编辑:奇丽网互动百科 时间:2020-01-18 16:17:31
编辑 锁定
本词条缺少概述信息栏名片图,补充相关内容使词条更完整,还能快速升级,赶紧来编辑吧!
HTML2JS转换脚本,使用方法:将此文件放在sendto文件中,然后在htm文件上点右键,发送到,html2js.vbs,输入要生成的格式js或asp 脚本会生成一个同名的文件,但扩展名为.js或.asp或者将html文件拖放在此文件上。
  支持带Javascript代码的html文件
  代码:html2js.vbs
  'HTML2JS转换脚本,使用方法:将此文件放在sendto文件中,然后在htm文件上点右键,发送到,html2js.vbs,输入要生成的格式js或asp 脚本会生成一个同名的文件,但扩展名为.js或.asp或者将html文件拖放在此文件上。
  '海娃@http://www.51windows.Net
  SetArgObj=WScript.Arguments
  FilePath=ArgObj(0)
  dimFSO,file,str1,str
  setFSO=CreateObject("scripting.filesystemobject")
  setfile=FSO.OpenTextFile(FilePath,1)
  ConvertType=inputbox("请输入要换类型,js或asp","请输入要换类型,js或asp","js")
  iftrim(lcase(ConvertType))="js"then
  str="//51windows.Nethtml2js转换脚本@"&Now()&vbnewline
  whilenotfile.atendofstream
  str1=file.readline
  ifLen(str1)>0then
  str1=Replace(str1,"\","\\")
  str1=Replace(str1,"/","\/")
  str1=Replace(str1,"""","\""")
  str1="document.writeln("""&str1&""");"&vbnewline
  str=str&str1
  endif
  wend
  Setfout=fso.CreateTextFile(FilePath&".js")
  fout.WriteLinestr
  fout.close
  msgbox"已经生成"
  elseiftrim(lcase(ConvertType))="asp"then
  str="'51windows.Nethtml2js转换脚本@"&Now()&vbnewline
  whilenotfile.atendofstream
  str1=file.readline
  iflen(str1)>0then
  str1=Replace(str1,"%>","%\>")
  str1=Replace(str1,"""","""""")
  str1="Response.write"""&str1&"""&vbNewLine"&vbnewline
  str=str&str1
  endif
  wend
  Setfout=fso.CreateTextFile(FilePath&".asp")
  fout.WriteLine""
  fout.close
  msgbox"已经生成"
  else
  msgbox"操作取消"
  endif

  
词条标签:
科技