拖动直接处理被拖的文件,双机则弹出输入矿。
1.txt 转换成 1.txt.htm 要简单点,偷懒了。。。
-----------------------------------
修改日志:
借鉴 9 楼的,并修正了 < > & 三个特殊符号可能带来的麻烦。
弱弱地问以下,132、129、153......这些是什么字符,为什么要替换呢。。。
set fs = CreateObject ("Scripting.FileSystemObject")
file123 = ""
if WScript.Arguments.Count=0 then
file123=inputbox("请直接输入当前文件夹下要转化的文件名 FileName.Ext"&chr(13)&chr(10)&"生成 FileName.Ext.htm")
else
file123=WScript.Arguments(0)
end if
html = file123 & ".htm"
ConvertFile file123, html
sub ConvertFile(txt_file, output)
str = Array( chr(132)&chr(228), chr(129)&chr(252), chr(142)&chr(196), chr(153)&chr(214), chr(148)&chr(246), chr(225)&chr(223), "&&", "<<", ">>", vbtab&" ", " " )
if fs.FileExists(txt_file) then
sourcexstr = fs.OpenTextFile(txt_file).readall
with fs.CreateTextFile(output)
.WriteLine "<html><head><style>* {font: 12pt Courier}</style></head><body>"
for each change in str
sourcexstr=replace(sourcexstr, left(change,1), mid(change,2))
next
sourcexstr=replace(sourcexstr, vbcrlf, "<BR>"&vbcrlf)
.write sourcexstr
.WriteLine "</body></html>"
.close
end with
end if
end sub
Last edited by qinchun36 on 2009-10-18 at 02:22 ]