正则表达式删除文本内容中的空行

正则表达式 | 2017-11-07 11:21:04 | 47次阅读 | 0评
* 删除没有空格的空行
clear
cchr=chr(10)+chr(13)
cstr="111111"+replicate(cchr,3)+"222222"+replicate(cchr,5)+"3333333"+replicate(cchr,10)+"4444"
?"====="
?cstr
re = Createobject("VBScript.RegExp")
re.Global = .T.
re.Ignorecase = .T.
re.Pattern = "\r\n" && r 代表回车,n 代表换行
?"====="
?re.replace(cstr, '')
release re

-------------------------------- 作者在 2017-11-07 11:30:49 补充以下内容 --------------------------------

re.Pattern = "\r[\s|]*\n" && r 代表回车,n 代表换行;该代码可以删除带有空格的空行
博友评论,共0条
浏览153577次