关于文本替换问题

ncutqi 2005-10-26 04:45:26

怎样编写一个程序，让它打开一个文件夹，并自动搜寻该文件夹和子文件夹下的txt文件，将文本内的某些字符替换为指定的字符？

...全文

205 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

winehero 2005-10-26

打赏
举报

northwolves(狼行天下) 的就可以了，偶是来蹭分的。。。

northwolves 2005-10-26

打赏
举报

没有调试,应该没问题:

Sub changeall(ByVal mydir As String, ByVal findstr As String, ByVal tostr As String)
Dim txtfiles As New Collection
Dim n As Integer, dirlevel As Integer, fname As String, dirlist() As String, b() As Byte
mydir = IIf(Right(mydir, 1) = "\", mydir, mydir & "\")
fname = Dir(mydir)
Do While fname <> ""
txtfiles.Add mydir & fname
fname = Dir
Loop
fname = LCase(Dir(mydir, vbDirectory))
Do While fname <> ""
If fname <> "." And fname <> ".." And Right(fname, 3) = "txt" Then
If GetAttr(mydir & fname) And vbDirectory Then
dirlevel = dirlevel + 1
ReDim Preserve dirlist(dirlevel)
dirlist(dirlevel) = mydir & fname
End If
End If
fname = Dir
DoEvents
Loop
For n = 1 To txtfiles.Count
Open txtfiles(i) For Binary As #1
ReDim b(LOF(1))
Get #1, , b
Close #1
Kill txtfiles(i)
fname = Replace(StrConv(b, vbUnicode), findstr, tostr)
Open txtfiles(i) For Binary As #1
Put #1, , fname
Close #1
Next
Set txtfiles = Nothing
End Sub

zou19820704 2005-10-26