我正在尝试使用 FileSystemObject 方法在文本文件中查找特定行,并在该行中替换特定字符串。我对此比较陌生,因为我当前的代码已经用excel打开了文本文件并替换了我需要替换的内容,然后保存并关闭它。这种方式不再是一种选择,因为让 excel 打开文本文件需要很长时间并且会占用文件。
这就是我到目前为止所走的路。
-
Sub FindLines()
Const ForReading = 1
Set FSO = CreateObject("Scripting.FileSystemObject")
Set objFSO = FSO.OpenTextFile("C:\Users\Carella Home\Desktop\boomboom.txt", ForReading, False)
Do Until objFSO.AtEndOfStream = True
go = objFSO.ReadLine
If InStr(1, go, "ant", vbTextCompare) > 0 Then
bo = Replace(go, "t", "wow")
End If
Loop
objFSO.Close
Set objFSO = FSO.OpenTextFile("C:\Users\Carella Home\Desktop\boomboom.txt", 2)
End Sub
-
我能做的最好的就是打开要写入的文件,但我不知道如何找到该行并将其替换为我需要替换它的行。
如果您愿意帮助/指导我正确的方向,请告诉我是否需要更多信息。我进行了很多搜索,并看到人们提出了其他方法。我需要学习如何以这种方式编辑线条。有人可以帮帮我吗?
提前致谢!
——安东尼 C。