正则表达式详解
本帖最后由 1291500406 于 2020-9-18 09:13 编辑http://bbs.mjtd.com/forum.php?mo ... 2%B1%ED%B4%EF%CA%BD
;匹配正则表达式
(try-StrRegExp "S=13049.66 平方米 合19.574亩" "[\\d.]+" nil "")->("13049.66" "19.574")
(try-StrRegExp"S=13049.66 平方米 合19.574亩" "[\\d.]+"T"替换掉")->"S=替换掉 平方米 合替换掉亩"
(try-StrRegExp "我是必强，1994年07月，我的邮箱是1291500406@qq.com" "{4,}" nil "") ->("1291500406")
(try-StrRegExp "我是必强，1994年07月，我的邮箱是1291500406@qq.com" "[\u4e00-\u9fa5]" nil "")
->("1" "9" "9" "4" "0" "7" "1" "2" "9" "1" "5" "0" "0" "4" "0" "6" "@" "q" "q" "c" "o" "m")
(try-StrRegExp "我是必强，1994年07月，我的邮箱是1291500406@qq.com" "[^\x00-\xff]" nil "")
->("我" "是" "必" "强" "，" "年" "月" "，" "我" "的" "邮" "箱" "是" ".")
(try-StrRegExp "工艺图[十二]" "(\\[[^\\]]*\\])" nil "") -> ("[十二]")
(try-StrRegExp "工艺图(十二)" "[\(（][^\)）]+[\)）]$" nil "")-> ("(十二)")
这里是几个主要非英文语系字符范围 2E80～33FFh：中日韩符号区。收容康熙字典部首、中日韩辅助部首、注音符号、日本假名、韩文音符，中日韩的符号、标点、带圈或带括符文数字、月份，以及日本的假名组合、单位、年号、月份、日期、时间等。3400～4DFFh：中日韩认同表意文字扩充A区，总计收容6,582个中日韩汉字。4E00～9FFFh：中日韩认同表意文字区，总计收容20,902个中日韩汉字。A000～A4FFh：彝族文字区，收容中国南方彝族文字和字根。AC00～D7FFh：韩文拼音组合字区，收容以韩文音符拼成的文字。F900～FAFFh：中日韩兼容表意文字区，总计收容302个中日韩汉字。FB00～FFFDh：文字表现形式区，收容组合拉丁文字、希伯来文、阿拉伯文、中日韩直式标点、小符号、半角符号、全角符号等。比如需要匹配所有中日韩非符号字符,那么正则表达式应该是^[\u3400-\u9FFF]+$
理论上没错, 可是我到msn.co.ko随便复制了个韩文下来, 发现根本不对, 诡异
再到msn.co.jp复制了个'お', 也不得行..然后把范围扩大到^[\u2E80-\u9FFF]+$, 这样倒是都通过了, 这个应该就是匹配中日韩文字的正则表达式了, 包括我們臺灣省還在盲目使用的繁體中文而关于中文的正则表达式, 应该是^[\u4E00-\u9FFF]+$, 和论坛里常被人提起的^[\u4E00-\u9FA5]+$很接近需要注意的是论坛里说的^[\u4E00-\u9FA5]+$这是专门用于匹配简体中文的正则表达式, 实际上繁体字也在里面, 我用测试器测试了下'中華人民共和國', 也通过了, 当然, ^[\u4E00-\u9FFF]+$也是一样的结果
(defun try-StrRegExp(str1 str2 bull str3 / lst matchcollect reg)(setq lst '())
(setq reg (vlax-create-object "vbscript.regexp")) ;创建正则表达式
(vlax-put-property reg 'global -1) ;是否匹配全部 （-1是 ，0 不是）
(vlax-put-property reg 'Multiline -1);是否多行匹配 （-1是 ，0 不是）
(vlax-put-property reg 'IgnoreCase -1);是否忽略大小写 （-1是 ，0 不是）
(vlax-put-property reg 'pattern str2);lisp \\
;;; 1.(vlax-invoke-method reg 'test str)判断字符串是否与正则表达式匹配
(if (vlax-invoke-method reg 'test str1)
;;; 2.(vlax-invoke-method reg 'Execute str)生成匹配集合
(progn (setq matchcollect (vlax-invoke-method reg 'Execute str1))
;;; 3.打印匹配的每个集合元素的value
(vlax-for match_item matchcollect (setq lst(cons(eval (vlax-get-property match_item 'value))lst)))
)
)
;;; 4.替换匹配的值(vlax-invoke-method reg 'Replace str "replace")生成str副本
(setq lst(reverse lst))
(if bull
(setq lst(vlax-invoke-method reg 'Replace str1 str3)))
;;;----------------- end 正则表达式方法
(vlax-release-object reg);释放内存
lst
)
一个正则表达式就是由普通字符（例如字符 a 到 z）以及特殊字符（称为元字符）组成的文字模式。该模式描述在查找文字主体时待匹配的一个或多个字符串。正则表达式作为一个模板，将某个字符模式与所搜索的字符串进行匹配。
这里有一些可能会遇到的正则表达式示例：
格式字符匹配
/^\[ \t]*$/"^\[ \t]*$"匹配一个空白行。
/\d{2}-\d{5}/"\d{2}-\d{5}"验证一个ID 号码是否由一个2位数字，一个连字符以及一个5位数字组成。
/<(.*)>.*<\/\1>/"<(.*)>.*<\/\1>"匹配一个 HTML 标记。
下表是元字符及其在正则表达式上下文中的行为的一个完整列表：
字符描述
\将下一个字符标记为一个特殊字符、或一个原义字符、或一个 后向引用、或一个八进制转义符。例如，'n' 匹配字符 "n"。'\n' 匹配一个换行符。序列 '\\' 匹配 "\" 而 "\(" 则匹配 "("。
^匹配输入字符串的开始位置。如果设置了 RegExp 对象的 Multiline 属性，^ 也匹配 '\n' 或 '\r' 之后的位置。
$匹配输入字符串的结束位置。如果设置了RegExp 对象的 Multiline 属性，$ 也匹配 '\n' 或 '\r' 之前的位置。
*匹配前面的子表达式零次或多次。例如，zo* 能匹配 "z" 以及 "zoo"。 * 等价于{0,}。
+匹配前面的子表达式一次或多次。例如，'zo+' 能匹配 "zo" 以及 "zoo"，但不能匹配 "z"。+ 等价于 {1,}。
?匹配前面的子表达式零次或一次。例如，"do(es)?" 可以匹配 "do" 或 "does" 中的"do" 。? 等价于 {0,1}。
{n}n 是一个非负整数。匹配确定的 n 次。例如，'o{2}' 不能匹配 "Bob" 中的 'o'，但是能匹配 "food" 中的两个 o。
{n,}n 是一个非负整数。至少匹配n 次。例如，'o{2,}' 不能匹配 "Bob" 中的 'o'，但能匹配 "foooood" 中的所有 o。'o{1,}' 等价于 'o+'。'o{0,}' 则等价于 'o*'。
{n,m}m 和 n 均为非负整数，其中n <= m。最少匹配 n 次且最多匹配 m 次。刘， "o{1,3}" 将匹配 "fooooood" 中的前三个 o。'o{0,1}' 等价于 'o?'。请注意在逗号和两个数之间不能有空格。
?当该字符紧跟在任何一个其他限制符 (*, +, ?, {n}, {n,}, {n,m}) 后面时，匹配模式是非贪婪的。非贪婪模式尽可能少的匹配所搜索的字符串，而默认的贪婪模式则尽可能多的匹配所搜索的字符串。例如，对于字符串 "oooo"，'o+?' 将匹配单个 "o"，而 'o+' 将匹配所有 'o'。
.匹配除 "\n" 之外的任何单个字符。要匹配包括 '\n' 在内的任何字符，请使用象 '[.\n]' 的模式。
(pattern)匹配pattern 并获取这一匹配。所获取的匹配可以从产生的 Matches 集合得到，在VBScript 中使用 SubMatches 集合，在Visual Basic Scripting Edition 中则使用 $0…$9 属性。要匹配圆括号字符，请使用 '\(' 或 '\)'。
(?:pattern)匹配 pattern 但不获取匹配结果，也就是说这是一个非获取匹配，不进行存储供以后使用。这在使用 "或" 字符 (|) 来组合一个模式的各个部分是很有用。例如， 'industr(?:y|ies) 就是一个比 'industry|industries' 更简略的表达式。
(?=pattern)正向预查，在任何匹配 pattern 的字符串开始处匹配查找字符串。这是一个非获取匹配，也就是说，该匹配不需要获取供以后使用。例如， 'Windows (?=95|98|NT|2000)' 能匹配 "Windows 2000" 中的 "Windows" ，但不能匹配 "Windows 3.1" 中的 "Windows"。预查不消耗字符，也就是说，在一个匹配发生后，在最后一次匹配之后立即开始下一次匹配的搜索，而不是从包含预查的字符之后开始。
(?!pattern)负向预查，在任何不匹配Negative lookahead matches the search string at any point where a string not matching pattern 的字符串开始处匹配查找字符串。这是一个非获取匹配，也就是说，该匹配不需要获取供以后使用。例如'Windows (?!95|98|NT|2000)' 能匹配 "Windows 3.1" 中的 "Windows"，但不能匹配 "Windows 2000" 中的 "Windows"。预查不消耗字符，也就是说，在一个匹配发生后，在最后一次匹配之后立即开始下一次匹配的搜索，而不是从包含预查的字符之后开始
x|y匹配 x 或 y。例如，'z|food' 能匹配 "z" 或 "food"。'(z|f)ood' 则匹配 "zood" 或 "food"。
字符集合。匹配所包含的任意一个字符。例如， '' 可以匹配 "plain" 中的 'a'。
[^xyz]负值字符集合。匹配未包含的任意字符。例如， '[^abc]' 可以匹配 "plain" 中的'p'。
字符范围。匹配指定范围内的任意字符。例如，'' 可以匹配 'a' 到 'z' 范围内的任意小写字母字符。
[^a-z]负值字符范围。匹配任何不在指定范围内的任意字符。例如，'[^a-z]' 可以匹配任何不在 'a' 到 'z' 范围内的任意字符。
\b匹配一个单词边界，也就是指单词和空格间的位置。例如， 'er\b' 可以匹配"never" 中的 'er'，但不能匹配 "verb" 中的 'er'。
\B匹配非单词边界。'er\B' 能匹配 "verb" 中的 'er'，但不能匹配 "never" 中的 'er'。
\cx匹配由x指明的控制字符。例如， \cM 匹配一个 Control-M 或回车符。 x 的值必须为 A-Z 或 a-z 之一。否则，将 c 视为一个原义的 'c' 字符。
\d匹配一个数字字符。等价于 。
\D匹配一个非数字字符。等价于 [^0-9]。
\f匹配一个换页符。等价于 \x0c 和 \cL。
\n匹配一个换行符。等价于 \x0a 和 \cJ。
\r匹配一个回车符。等价于 \x0d 和 \cM。
\s匹配任何空白字符，包括空格、制表符、换页符等等。等价于 [ \f\n\r\t\v]。
\S匹配任何非空白字符。等价于 [^ \f\n\r\t\v]。
\t匹配一个制表符。等价于 \x09 和 \cI。
\v匹配一个垂直制表符。等价于 \x0b 和 \cK。
\w匹配包括下划线的任何单词字符。等价于''。
\W匹配任何非单词字符。等价于 '[^A-Za-z0-9_]'。
\xn匹配 n，其中 n 为十六进制转义值。十六进制转义值必须为确定的两个数字长。例如， '\x41' 匹配 "A"。'\x041' 则等价于 '\x04' & "1"。正则表达式中可以使用 ASCII 编码。.
\num匹配 num，其中 num 是一个正整数。对所获取的匹配的引用。例如，'(.)\1' 匹配两个连续的相同字符。
\n标识一个八进制转义值或一个后向引用。如果 \n 之前至少 n 个获取的子表达式，则 n 为后向引用。否则，如果 n 为八进制数字 (0-7)，则 n 为一个八进制转义值。
\nm标识一个八进制转义值或一个后向引用。如果 \nm 之前至少有is preceded by at least nm 个获取得子表达式，则 nm 为后向引用。如果 \nm 之前至少有 n 个获取，则 n 为一个后跟文字 m 的后向引用。如果前面的条件都不满足，若n 和 m 均为八进制数字 (0-7)，则 \nm 将匹配八进制转义值 nm。
\nml如果 n 为八进制数字 (0-3)，且 m 和 l 均为八进制数字 (0-7)，则匹配八进制转义值 nml。
\un匹配 n，其中 n 是一个用四个十六进制数字表示的 Unicode 字符。例如， \u00A9 匹配版权符号 (?)。
在构造正则表达式之后，就可以象数学表达式一样来求值，也就是说，可以从左至右并按照一个优先权顺序来求值。
下表从最高优先级到最低优先级列出各种正则表达式操作符的优先权顺序：
操作符描述
\转义符
(), (?:), (?=), []圆括号和方括号
*, +, ?, {n}, {n,}, {n,m}限定符
^, $, \anymetacharacter位置和顺序
|“或”操作
不少元字符在试图对其进行匹配时需要进行特殊的处理。要匹配这些特殊字符，必须首先将这些字符转义，也就是在前面使用一个反斜杠 (\)。下表给出了这些特殊字符及其含义：
特殊字符说明
$匹配输入字符串的结尾位置。如果设置了 RegExp 对象的 Multiline 属性，则 $ 也匹配 '\n' 或 '\r'。要匹配 $ 字符本身，请使用 \$。
( )标记一个子表达式的开始和结束位置。子表达式可以获取供以后使用。要匹配这些字符，请使用 \( 和 \)。
*匹配前面的子表达式零次或多次。要匹配 * 字符，请使用 \*。
+匹配前面的子表达式一次或多次。要匹配 + 字符，请使用 \+。
.匹配除换行符 \n之外的任何单字符。要匹配 .，请使用 \。
[ 标记一个中括号表达式的开始。要匹配 [，请使用 \[。
?匹配前面的子表达式零次或一次，或指明一个非贪婪限定符。要匹配 ? 字符，请使用 \?。
\将下一个字符标记为或特殊字符、或原义字符、或后向引用、或八进制转义符。例如， 'n' 匹配字符 'n'。'\n' 匹配换行符。序列 '\\' 匹配 "\"，而 '\(' 则匹配 "("。
^匹配输入字符串的开始位置，除非在方括号表达式中使用，此时它表示不接受该字符集合。要匹配 ^ 字符本身，请使用 \^。
{标记限定符表达式的开始。要匹配 {，请使用 \{。
|指明两项之间的一个选择。要匹配 |，请使用 \|。
有不少很有用的非打印字符，偶尔必须使用。下表显示了用来表示这些非打印字符的转义序列：
字符含义
\cx匹配由x指明的控制字符。例如， \cM 匹配一个 Control-M 或回车符。 x 的值必须为 A-Z 或 a-z 之一。否则，将 c 视为一个原义的 'c' 字符。
\f匹配一个换页符。等价于 \x0c 和 \cL。
\n匹配一个换行符。等价于 \x0a 和 \cJ。
\r匹配一个回车符。等价于 \x0d 和 \cM。
\s匹配任何空白字符，包括空格、制表符、换页符等等。等价于 [ \f\n\r\t\v]。
\S匹配任何非空白字符。等价于 [^ \f\n\r\t\v]。
\t匹配一个制表符。等价于 \x09 和 \cI。
\v匹配一个垂直制表符。等价于 \x0b 和 \cK。
有时候不知道要匹配多少字符。为了能适应这种不确定性，正则表达式支持限定符的概念。这些限定符可以指定正则表达式的一个给定组件必须要出现多少次才能满足匹配。
下表给出了各种限定符及其含义的说明：
字符描述
* 匹配前面的子表达式零次或多次。例如，zo* 能匹配 "z" 以及 "zoo"。 * 等价于{0,}。
+ 匹配前面的子表达式一次或多次。例如，'zo+' 能匹配 "zo" 以及 "zoo"，但不能匹配 "z"。+ 等价于 {1,}。
? 匹配前面的子表达式零次或一次。例如，"do(es)?" 可以匹配 "do" 或 "does" 中的"do" 。? 等价于 {0,1}。
{n}n 是一个非负整数。匹配确定的 n 次。例如，'o{2}' 不能匹配 "Bob" 中的 'o'，但是能匹配 "food" 中的两个 o。
{n,} n 是一个非负整数。至少匹配n 次。例如，'o{2,}' 不能匹配 "Bob" 中的 'o'，但能匹配 "foooood" 中的所有 o。'o{1,}' 等价于 'o+'。'o{0,}' 则等价于 'o*'。
{n,m} m 和 n 均为非负整数，其中n <= m。最少匹配 n 次且最多匹配 m 次。刘， "o{1,3}" 将匹配 "fooooood" 中的前三个 o。'o{0,1}' 等价于 'o?'。请注意在逗号和两个数之间不能有空格。
到现在为止，所看到的示例都只考虑查找任何地方出现的章节标题。出现的任何一个字符串 'Chapter' 后跟一个空格和一个数字可能是一个真正的章节标题，也可能是对其他章节的交叉引用。由于真正的章节标题总是出现在一行的开始，因此需要设计一个方法只查找标题而不查找交叉引用。
定位符提供了这个功能。定位符可以将一个正则表达式固定在一行的开始或结束。也可以创建只在单词内或只在单词的开始或结尾处出现的正则表达式。下表包含了正则表达式及其含义的列表：
字符描述
^匹配输入字符串的开始位置。如果设置了 RegExp 对象的 Multiline 属性，^ 也匹配 '\n' 或 '\r' 之后的位置。
$匹配输入字符串的结束位置。如果设置了RegExp 对象的 Multiline 属性，$ 也匹配 '\n' 或 '\r' 之前的位置。
\b匹配一个单词边界，也就是指单词和空格间的位置。
\B匹配非单词边界。
正则表达式啊
我曾经专门花了一段时间学习
算是把它基本搞明白了
然后过了个把月再看
又全都忘光了
我对它的态度呢
不一定正确
相信很多大佬都不会认同
正则绝对强大
但是需要用到的地方太少
毕竟我们使用CAD
文字处理不是主要的方面
不是那么复杂的问题
lisp足够处理了
偶尔遇到一个复杂的文字处理问题
实现同等的功能
正则可以减少大量的代码
但是学习或者复习它的时间
远远超过写lisp代码
所以呢
记忆力不太好的人
比如我
学习需谨慎 ; 匹配正则表达式，并打印出所有数字结果: 返回 ("13049.66" "19.574")
(print (try-StrRegExp "S=13049.66 平方米 合19.574亩" "[\\d.]+" nil ""))
; 替换所有数字为 "替换掉" 并打印结果: 返回 "S=替换掉 平方米 合替换掉亩"
(print (try-StrRegExp "S=13049.66 平方米 合19.574亩" "[\\d.]+" t "替换掉"))
; 提取数字序列，并打印结果: 返回 ("1291500406")
(print (try-StrRegExp "我是必强，1994年07月，我的邮箱是1291500406@qq.com" "{4,}" nil ""))
; 提取所有汉字字符，并打印结果: 返回 ("我" "是" "必" "强" "，" "年" "月" "，" "我的" "邮箱" "是")
(print (try-StrRegExp "我是必强，1994年07月，我的邮箱是1291500406@qq.com" "[\\u4e00-\\u9fa5]+" nil ""))
; 提取所有非ASCII字符，并打印结果: 返回 ("我" "是" "必" "强" "，" "年" "月" "，" "我" "的" "邮" "箱" "是" ".")
(print (try-StrRegExp "我是必强，1994年07月，我的邮箱是1291500406@qq.com" "[^\\x00-\\xff]+" nil ""))
; 提取包含在中括号中的内容，并打印结果: 返回 ("[十二]")
(print (try-StrRegExp "工艺图[十二]" "(\\[[^\\]]*\\])" nil ""))
; 提取包含在圆括号中的内容，并打印结果: 返回 ("(十二)")
(print (try-StrRegExp "工艺图(十二)" "[\\(（][^\\)）]+[\\)）]" nil ""))
;示例:
; 打印提取的数字,返回：("123" "456" "7890")
(print (try-StrRegExp "我的电话是123-456-7890" "\\d+" nil ""))
; 打印替换后的邮箱地址,返回："我的邮箱是example@newdomain.com"
(print (try-StrRegExp "我的邮箱是example@domain.com" "@domain.com" T "@newdomain.com"))
; 打印提取的HTML标签内的内容,返回：("这是标题")
(print (try-StrRegExp "<title>这是标题</title>" "<title>(.*?)</title>" nil ""))
; 打印替换空白行后的文本,返回："这是第一行\n空白行\n这是第三行"
(print (try-StrRegExp "这是第一行\n\n这是第三行" "^\\s*$" T "空癫"))
; 打印提取的中文字符,返回：("世界")
(print (try-StrRegExp "Hello, 世界!" "[\\u4e00-\\u9fa5]+" nil ""))
; 查找所有数字，并打印结果: 返回 '(100)
(print (try-StrRegExp "The price is 100 dollars." "\\d+" nil ""))
; 打印返回：("123" "456" "7890")
; 查找所有单词，并打印结果: 返回 '("World" "Hello")
(print (try-StrRegExp "Hello, World!" "\\w+" nil ""))
; 打印返回：("World" "Hello")
; 替换所有数字为 "#" 并打印结果: 返回 "Order #, Item #."
(print (try-StrRegExp "Order 1234, Item 5678." "\\d+" t "#"))
; 打印返回："Order #, Item #."
; 提取所有邮箱地址，并打印结果: 返回 '("email@example.com")
(print (try-StrRegExp "Contact me at email@example.com for more info." "\\b+@+\\.{2,}\\b" nil ""))
; 打印返回：("email@example.com")
; 提取中文字符，并打印结果: 返回：("世界")
(print (try-StrRegExp "Hello, 世界!" "[\\u4e00-\\u9fa5]+" nil ""))
; 打印返回：("世界") 本帖最后由 恒毅 于 2020-8-20 11:54 编辑
;取得某起点（不含)和终点(不含)的字符串间的内容
;str：查询对象
;st :起始字符
;ed: 终止字符
(defun strbg(str st ed / lst1 str2 str3 str4 str5)
(foreach tmp '("." "^" "$" "*" "+" "?" "{" "}" "(" ")" "|" "[" "]" )
(setq st (vl-string-subst (strcat (vl-symbol-name '\) tmp) tmp st))
(setq ed (vl-string-subst (strcat (vl-symbol-name '\) tmp) tmp ed))
)
(setq
str2 (strcat "[" st "]" ".*" "[" ed "]")
str3 (strcat "[" sted "]")
lst1 (try-StrRegExp str str2 nil "")
str4 (car lst1)
str5 (try-StrRegExp str4 str3 T "")
)
)
测试
(strbg "工艺图(五十三)" "(" ")")==> "五十三"
(strbg "工艺图(五十三)" "工" "图")==> "艺"
(strbg "工艺图([五十三])""([" "])") ==> "五十三"
加油，相信你~ 没看到零宽断言 masterlong 发表于 2020-8-17 10:03
正则表达式啊
我曾经专门花了一段时间学习
算是把它基本搞明白了
用在网页上比较多 这个必须顶啊，非常感谢石大师分享 谢谢楼主，学习中 谢谢楼主，学习中 厉害了！！！总结的很好！！！ 静静地看着楼主，向楼主学习