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

我试了一下，好象是可以的啊？
楼主您说的“不起作用，不能自动输出整理后的文本”是如何判断出来的？
会不会是在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)

即可。

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