VB 实现txt字符替换

Question

首先存在一个排好版的txt文件。
用vb实现，将txt里所有的"abc"字符串，替换为"xyz"，并保存。
谢谢！

Answer 1

Dim tmpStr As String, resStr As String, a As String

'读取txt
Open "d:\vb.txt" For Input As #1
Do While Not (EOF(1))
Input #1, a
tmpStr = tmpStr & a
Loop
Close #1

'开始处理字符串
resStr = Replace(tmpStr, "abc", "xyz")

'保存
Open "d:\vb_replace.txt" For Output As #1
Print #1, resStr
Close #1

Answer 2

下面是VBA的，你可以试试在vba里面替换，可能更简单,VB 下先打开文本文件，逐行读取文本，判断是否包含“abc”，发现是“abc”的替换为“xyz”后重新组合作为新数组保存，最后保存。

Sub Macro1()
'
' Macro1 Macro
'

'
Cells.Find(What:="abc", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, MatchByte:=False, SearchFormat:=False).Activate
ActiveCell.Replace What:="abc", Replacement:="xyz", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.FindNext(After:=ActiveCell).Activate
End Sub

Answer 3

Private Sub Command1_Click()
Open "E:\临时文件\1.txt" For Input As #1
Line Input #1, Line_text
m = Line_text
Close #1
m = Replace(m, "ABC", "XYZ")
Open "E:\临时文件\1.txt" For Output As #1
Print #1, m
Close #1
End Sub