Question

如何修改这个vbs代码将其修改成可以整理txt文本内容的vbs脚本程序

set fso=createobject("scripting.filesystemobject")
set folder=fso.getfolder(".")
text=inputbox("请输入您要替换为空的内容：","友情提示","强烈建议在操作前作好文件的备份")
for each file in folder.files
if ucase(right(file,4))=".HTM" or ucase(right(file,5))=".HTML" THEN myreplace(file)
next
msgbox "已经将当前目录下所有网页文件里的["&text&"]内容清空请查看！",4096,"系统提示"
sub myreplace(a)
set file=fso.opentextfile(a)
s=file.readall
file.close
set file=fso.opentextfile(a,2)
file.write replace(s,text,"")
file.close
end sub
1.我用这个脚本整理删除txt文本里的无用内容时不起作用，不能自动输出整理后的文本，不知道代码哪里需要修改？
2.同时删除多处内容该如何输入？格式是不是“删除内容”，“删除内容”，“...”这样的？
3.要是能支持拖拽和添加打开文件按钮和文件备份就好了，文件备份也就是保持原文件不动，清除后另外输出一个文件，可以这样修改这个代码吗？如何弄？高手帮我完善一下这个代码好吗？
4.这个vbs脚本是删除网页里不需要的内容，但不知道可不可以删除txt文本里的内容？如果可以的话是不是需要修改一下这个vbs脚本里的哪个代码？如何修改？
先谢谢高手帮忙

Answer 1

我试了一下，好象是可以的啊？
楼主您说的“不起作用，不能自动输出整理后的文本”是如何判断出来的？
会不会是在inputbox里面输入的文本和需要替换的文本的大小写不一致，导致replace函数没有成功？

__________________________________
补充：

关于如何使用VBS？
首先把这些代码复制粘贴到记事本里面去；
然后取个名字保存到包含你需要处理的网页文件所在的那个目录下，比如叫做“整理文本.vbs”（注意不要保存成了“整理文本.vbs.txt”，因为有时候这个“.txt”扩展名是没有显示出来的）；
然后在资源管理器里面双击这个“整理文本.vbs”运行；
按照提示输入要清除的文本内容然后确定即可。

_______________________________
再补充：

如果想要处理文本文件的话，把下面这句话：

if ucase(right(file,4))=".HTM" or ucase(right(file,5))=".HTML" THEN myreplace(file)

替换为：

if ucase(right(file,4))=".TXT" THEN myreplace(file)

即可。

Answer 2

提示：dreamweaver里可以批量替换一个文件夹里文本的内容~吧不需要的内容替换成""即可~