7,763
社区成员
发帖
与我相关
我的任务
分享
Option Explicit
Dim s() As String
Dim FN As Integer
Sub Trans(strFile As String)
Dim s1 As String
FN = FreeFile
Open strFile For Binary As FN
s1 = Space(LOF(FN))
Get FN, , s1
Close #FN
s = Split(s1, vbCrLf)
End Sub
Private Sub Command1_Click()
Dim outbuffer As String
Dim i As Long
Trans "d:\a.txt"
For i = 0 To UBound(s)
If InStr(1, s(i), "娃娃", vbTextCompare) > 0 Then '整个比较过程是在内存里完成的,速度上会快很多.
s(i) = ""
Else
s(i) = s(i) & vbCrLf
End If
Next i
outbuffer = Join(s, "")
Open "d:\b.txt" For Binary As #2 '二进制写入.
Put #2, , outbuffer
Close #2
MsgBox "ok"
End Sub