1. 其实就是调用微软的 VBScript Regular Expressions 引擎。
    3. 但是那里的代码有个地方写反了。命名格式也不统一。我修改了一下。
    5. 定义了三个函数：提取、详细提取、替换。
    7. (defun regex-extract (pat str key / regex S tmp str1)
    8.   ;; 提取正则表达式匹配到的内容
    9.   ;; pat 正则表达式 str 字符串 
    10.   ;; pat 中 \ 使用 \\
    11.   ;; key "igm" i(Ignorecase)忽略大小写 g (Global)全局匹配 m (Multili) 多行模式
    12.   ;; 注意：一般使用全局匹配 g
    13.   ;; 可组合使用或单独使用 或置空 ""
    14.   (vl-load-com)
    15.   (setq regex (vlax-create-object "Vbscript.RegExp")) ;引用正则表达式控件
    16.   (if (wcmatch key "*i*,*I*")
    17.     (vlax-put-property regex "IgnoreCase" 1) ;忽略大小写
    18.     (vlax-put-property regex "IgnoreCase" 0) ;不忽略大小写
    19.     )
    20.   (if (wcmatch key "*g*,*G*")
    21.     (vlax-put-property regex "Global" 1) ;匹配方式，全文字匹配
    22.     (vlax-put-property regex "Global" 0)
    23.     )
    24.   (if (wcmatch key "*m*,*M*")
    25.     (vlax-put-property regex "Multiline" 1) ;多行模式
    26.     (vlax-put-property regex "Multiline" 0)
    27.     )
    28.   (vlax-put-property regex "Pattern" pat)
    29.   (setq s (vlax-invoke-method regex "Execute" str))
    30.   ;;将规则运用到STR字符，得到提取出的文字内容
    31.   (VLAX-FOR tmp s                       ;遍历集合对象
    32.     (setq str1 (cons (vlax-get-property tmp "value") str1))
    33.     )
    34.   ;;将内容转换为LISP语言就可以直接观察了
    35.   (vlax-release-object regex)
    36.   (REVERSE str1)
    37. )
    40. (defun regex-search (pat str key / REGEX S tmp POS LEN string str1)
    41.   ;; 提取正则表达式匹配到的内容,输出其 位置(从0开始编号)，长度，值
    42.   ;; pat 正则表达式 str 字符串 
    43.   ;; pat 中 \ 使用 \\
    44.   ;; key "igm" i(Ignorecase)忽略大小写 g (Global)全局匹配 m (Multili) 多行模式
    45.   ;; 注意：一般使用全局匹配 g
    46.   ;; 可组合使用或单独使用 或置空 ""
    47.   (vl-load-com)
    48.   (setq regex (vlax-create-object "Vbscript.RegExp"))
    49.   (if (wcmatch key "*i*,*I*")
    50.     (vlax-put-property regex "IgnoreCase" 1) ;忽略大小写
    51.     (vlax-put-property regex "IgnoreCase" 0) ;不忽略大小写
    52.     )
    53.   (if (wcmatch key "*g*,*G*")
    54.     (vlax-put-property regex "Global" 1) ;匹配方式，全文字匹配
    55.     (vlax-put-property regex "Global" 0) ;只检查第一处出现的位置
    56.     )
    57.   (if (wcmatch key "*m*,*M*")
    58.     (vlax-put-property regex "Multiline" 1) ;多行模式
    59.     (vlax-put-property regex "Multiline" 0) ;单行模式
    60.     )
    61.   (vlax-put-property regex "Pattern" pat)
    62.   (setq s (vlax-invoke regex 'Execute str))
    63.   (vlax-for tmp s
    64.     (setq pos    (vlax-get-property tmp "FirstIndex")
    65.             len    (vlax-get-property tmp "Length")
    66.             string (vlax-get-property tmp "value")
    67.         )
    68.         ;;;    Match对象和Matches集合只能通过 RegExp对象的Execute方法来创建，该方法实际上返回了Match
    69.         ;;;    对象的集合Matches。所有的Match对象属性都是只读的。每个Match对象提供了被正则表达式搜索
    70.         ;;;    找到的匹配字符串的开始位置、长度，字符串本身等信息，通过Match对象的属性供用户访问。
    71.         ;;;    FirstIndex在搜索字符串中匹配的位置。Length匹配字符串的长度。Value找到的匹配字符串。
    72.     (setq str1 (cons (list pos len string) str1))
    73.     (princ (strcat "\n文字位置 = "
    74.                          (itoa pos)
    75.                          "  文字长度 = "
    76.                          (itoa len)
    77.                          "  值 = \""
    78.                          string
    79.                          "\""
    80.                      )
    81.         )
    82.     )
    83.   (vlax-release-object RegEx)
    84.   (reverse str1)
    85. )
    88. (defun regex-replace (pat str str1 key / regex S str2)
    89.   ;; pat 正则表达式 str 字符串 str1 替换的字符串
    90.   ;; pat 中 \ 使用 \\
    91.   ;; key "igm" i(Ignorecase)忽略大小写 g (Global)全局匹配 m (Multili) 多行模式
    92.   ;; 注意：一般使用全局匹配 g
    93.   ;; 可组合使用或单独使用 或置空 ""
    94.   ;; 返回替换后的字符串
    95.   (vl-load-com)
    96.   (setq regex (vlax-create-object "Vbscript.RegExp")) ;引用正则表达式控件
    97.   (if (wcmatch key "*i*,*I*")
    98.     (vlax-put-property regex "IgnoreCase" 1) ;忽略大小写
    99.     (vlax-put-property regex "IgnoreCase" 0) ;不忽略大小写
    100.     )
    101.   (if (wcmatch key "*g*,*G*")
    102.     (vlax-put-property regex "Global" 1) ;匹配方式，全文字匹配
    103.     (vlax-put-property regex "Global" 0) ;只检查第一处出现的位置
    104.     )
    105.   (if (wcmatch key "*m*,*M*")
    106.     (vlax-put-property regex "Multiline" 1) ;多行模式
    107.     (vlax-put-property regex "Multiline" 0) ;单行模式
    108.     )
    109.   (vlax-put-property regex "Pattern" pat)
    110.   (setq STR2 (vlax-invoke-method regex "Replace" STR STR1))
    111.   (vlax-release-object regex)
    112.   STR2
    113. )
    115. 替换的时候，用 $1 $2 $3...表达()捕获的内容。