记事本中如何批量替换类似的行字符?

来源：百度知道 编辑：UC知道 时间：2024/06/06 07:12:58
比如,内容中有很多类似如下的字符,都是单独占一行的,不是夹杂在其它内容中的:
A 1
A 2
A 3
想把它们全替换成
A 0
应该如何处理?
就是说A后面有很多种可能,如果只有几种情况,那我还上来问什么,那太小儿科了.
A * ---------->这个是单独占一行的字符段
我是想问,有没有方法,查到含有 A 字符的行,不管它除了 A 之外还有什么字符,把此行全部换成 A 0
---------------------------------------------------------------------------------------------
先多谢二楼无私的付出!结果是没有成功... 您再指点一下?
---------------------------------------------------------------------------------------------

用VBS：

strFile = "1.txt"
oFile = "op.txt"

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(strFile, 1)

Set objRegEx = CreateObject("VBScript.RegExp")
objRegEx.Global = True
objRegEx.IgnoreCase = True
objRegEx.Pattern = "^A\s[^A]"

Do While Not objFile.AtEndOfStream
strLine= objFile.ReadLine
If Left(strLine,2) = "A " Then
strLine = objRegEx.Replace(strLine, "A 0")
Else
strLine = strLine
End If
colLines = colLines & strLine & vbCrLf
Loop
objFile.Close

Set objFile = objFSO.CreateTextFile(oFile, True)
objFile.Write colLines
objFile.Close

Set objRegEx = Nothing
Set objFSO = Nothing

代码假设文件为1.txt，输出op.txt。
--------------------------------
代码是按照你给的样本来编写的，本机已经测试。请给出实际样本以作测试之用。

到