作者在 2017-11-19 19:38:37 发布以下内容
因为这几个字符在行中也是出现的,所以肯定不能用简单的替换实现
比如
12345 1265345
2345
需要删除每行末尾的“345”，最终文本为：
12345 1265
2
===================================
Re = Createobject("VBScript.RegExp")
Re.Global = .T.
Re.Ignorecase = .F.
Re.Pattern ="345$"
Re.MultiLine= .T.
cStr="12345 1265345"+CHR(13)+CHR(10)+"2345"
?cStr
?Re.Replace(cStr,"")
