现在有一些TXT文本，文件名不同，在同一目录下。文本里都有“.SH”字符，想把“.SH”删除，换成“.SZ”。

显示全部楼层 · 2011-1-3 12:56:42

现在有一些TXT文本，文件名不同，在同一目录下。文本里都有“.SH”字符，想把“.SH”删除，换成“.SZ”。兄台，帮忙编写一个，等用
网上搜到个用vb来解决的办法，如下：
-----------------------------------------------
如果文件名是没规律的，则可以这样：
d=dir(app.path & "\*.txt")
do while d""
open app.path & "\" & d for binary as #1
s=input(lof(1),#1)
'这时候s就是读出的文件内容，你可以在这里对s进行修改
put #1,1,s
close #1
d=dir
loop
这是批量处理同一目录的所有txt文件
回答时间：2010-1-30 22:41 | 我来评论
向TA求助回答者：网海1书生 | 九级采纳率：57%
擅长领域： VB 程序设计软件其他编程语言办公软件
参加的活动：暂时没有参加的活动
------------------------------------------------
我对vb不了解，请教具体该怎么做，望知情者再补充一下啊

千问 · 2011-1-3 12:56:42

第一，选中所有文档；第二，在其中选中的一个文档上点右键，重命名第三，将其中的“H”换成“Z”搞定，呵呵

千问 · 2011-1-3 12:56:42

千问 · 2011-1-3 12:56:42

楼上的方法的确很管用，长见识了。