set d=createobject("scripting.filesystemobject")
sub j()
x=inputbox("说明:"&vbcrlf&"去掉所有的注释,以免报错","要修改的vbs")
if x="" or d.fileexists(x)=false then
msgbox"错误",16,"文件未找到"
exit sub
end if
'拆分过程
c=d.opentextfile(x).readall
'如有特殊情况(:后接字符)可在这里修改
c=replace(c,":",":"&vbcrlf&"")
d.createtextfile("m.txt").writeline c
msgbox"修改m.txt,完成后再确定"&vbcrlf&"注意行末要加上冒号",64,x
'合并过程
c=d.opentextfile("m.txt").readall
c=replace(c,""&vbcrlf&"",":")
d.createtextfile(x&"_.vbs").writeline c
msgbox"完成"
end sub
j()