7,785
社区成员




Private Sub Tihuan(TfilePath As String, Oldstr As String, Newstr As String)
Dim s As String
Dim h As Long
h = FreeFile
Open TfilePath For Binary As h
s = Space(LOF(h) - 2)
Get h, , s
Close
s = Replace(s, Oldstr, Newstr) '无条件全部替换
h = FreeFile
Open TfilePath For Output As h
Print #h, s
Close
End Sub
Private Sub Tihuan(TfilePath As String, Oldstr As String, Newstr As String)
Dim k As String, s As String
Open TfilePath For Input As #1
Do While Not EOF(1) ' 循环至文件尾。
s = Input(1, #1) ' 读入一个字符。
k = k + s
Loop
k = Replace(k, Oldstr, Newstr) '无条件全部替换
Close #1
Open TfilePath For Output As #2
Print #2, k;
Close #2
End Sub
Private Sub Tihuan(TfilePath As String,Oldstr As String, Newstr As String)
Dim k() As Byte
Open TfilePath For Binary As #1
ReDim k(FileLen(TfilePath)-1)
Get #1, , k
Close #1
k=Replace( mid(StrConv(k,vbUnicode),1,len(StrConv(k,vbUnicode))-1) _
,Oldstr,Newstr) '无条件全部替换
Open TfilePath For Output As #2
Print #2, k
Close #2
End Sub
'看你的代码完全是字符处理,所以可以这样:
Private Sub Tihuan(TfilePath As String,Oldstr As String, Newstr As String)
Dim s As string
Open TfilePath For Binary As #1
s=space(lof(#1))
Get #1, , s
Close #1
s=Replace(mid(s,1,len(s)-1),Oldstr,Newstr) '无条件全部替换
Open TfilePath For Output As #2
Print #2, s
Close #2
End Sub