返回除汉字以外的所有字符

cStr = "中华人民共和国美335*226利坚合众MF-335国大不7*3列颠" re = Createobject("VBScript.RegExp") re.Global = .T. re.Ignorecase = .T. re.Pattern = "[\u4e00-\u9fa5]" ********************************** * 下面代码,返回所有汉字 * *re.Pattern = "[^\u4e00-\u9fa5]" **************************** ?re.replace(cStr,"")
2019-05-03 21:45 | 阅读 1096 次 | 评论 0 条

VFP正则表达式应用:文本内容换行

原文本格式如下: 05 14 15 16 18 + 02 0605 14 15 16 25 + 02 0605 14 15 16 26 + 02 0605 14 15 16 27 + 02 0605 14 15 18 25 + 02 0605 14 15 18 26 + 02 0605 14 15 18 27 + 02 0605 14 15 25 26 + 02 0605 14 15 25 27 + 02 0605 14 15 26 27 + 02 0605 14 16 18 25 + 02 0605 14 16 18 26 + 02 0605 14 16 18 27 ...
2017-11-19 20:16 | 阅读 2361 次 | 评论 0 条

VFP正则表达式应用:删除每一行行尾的指定字符

因为这几个字符在行中也是出现的,所以肯定不能用简单的替换实现 比如 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...
2017-11-19 19:38 | 阅读 1922 次 | 评论 0 条

VFP正则表达式应用:替换指定内容到行尾

原始文本如下面两行 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...
2017-11-19 19:29 | 阅读 1754 次 | 评论 0 条

VFP正则表达式应用:数字替换

希望把 asdadas123asdasdas456asdasdasd789asdasd 替换为: asdadas[123]asdasdas[456]asdasdasd[789]asdasd 在VFP中也可以做到,但过程比较复杂 CLEAR Re = Createobject("VBScript.RegExp") Re.Global = .T. Re.Ignorecase = .F. RE.Pattern ="(\d{3})" cStr="asdadas123asdasdas456asdasdasd789asdasd" ?cStr ?Re.Replace(cS...
2017-11-19 19:19 | 阅读 1304 次 | 评论 0 条

正则表达式在VFP中BROWSE中的简单应用

查找出 XM 字段中除汉字以外的字符,并替换掉这些字符。 CREATE CURSOR tt (xm c(10),xm1 c(10)) INSERT INTO tt (xm) VALUES ("河南\省") INSERT INTO tt (xm) VALUES ("河-北省") INSERT INTO tt (xm) VALUES ("北,22京市") INSERT INTO tt (xm) VALUES ("上海市") INSERT INTO tt (xm) VALUES ("西安市") re = Createobject("VBScript.RegExp") ...
2017-11-17 20:26 | 阅读 2853 次 | 评论 0 条

VFP之正则表达式提取指定文本内容1

CLEAR cStr = "苹果:iphone_5s;诺基亚:Nokia_1020" * 提取出cSrt中的"iphone_5s","Nokia_1020" Reg = Createobject("VBScript.RegExp") Reg.Global = .T. Reg.Ignorecase = .T. Reg.Pattern = "\w+" oExec=Reg.Execute(cStr) FOR i=0 TO oExec.Count-1 ?oExec.item(i).Value ENDFOR ...
2017-11-13 10:56 | 阅读 2532 次 | 评论 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.replac...
2017-11-07 11:21 | 阅读 1919 次 | 评论 0 条

正则表达式提取網頁內容

Clear Text To s Noshow <tr class='citytr'><td><a href='23/2301.html'>230100000000</a></td><td><a href='23/2301.html'>哈尔滨市</a></td></tr><tr class='citytr'><td><a href='23/2302.html'>230200000000</a></td><td><a href='23/2302.html'>齐齐哈尔市</a></td></tr><tr class='citytr'><td><a href='23/2303.html'...
2016-11-17 12:47 | 阅读 2296 次 | 评论 0 条
浏览376316次