作者在 2017-11-19 19:29:41 发布以下内容
原始文本如下面两行
abc aaaaa
123 abc 444
希望每次遇到“abc”，则替换“abc”以及其后到行尾的内容为“abc efg”
即上面的文本最终替换为：
abc efg
123 abc efg
=====================================
CLEAR
Re = Createobject("VBScript.RegExp")
Re.Global = .T.
Re.Ignorecase = .F.
RE.Pattern ="abc.*"
cStr="abc aaaaa"+CHR(13)+CHR(10)+"123 abc 444"
?cStr
?Re.Replace(cStr,"abc efg")
