正则表达式 有效类[:class:]无法匹配----[已解决]

superflq

刚开始研究正则表达式,有很多不理解,望大大们多多指点

[:class:]	在字符的给定类中匹配字符. 有效类是: alpha (任何字母字符),     alnum (任何字母数字字符),      lower (任何小写字母), upper (任何大写字母),     digit (任何十进制数字 0-9),     xdigit (任何十六进制数字, 0-9, A-F, a-f), space (任何空白字符),     blank (只有一个空格或制表符),     print (任何可打印字符), graph (除空格外的任何可打印字符),     cntrl (任何控制字符 [ascii 127 或 <32]) punct (任何标点字符).     因此 [0-9] 相当于 [[:digit:]].
[^:class:]	在类中除第一个字符外，不匹配任何字符

根据有效类的说明[:xdigit:]应该是可以匹配 任何十六进制的字符,但是根据程序来看[^:xdigit:]才是可以匹配十六进制表达式
下面是代码,和结果截图

 
$text_in = "C1CfgGh"
$text_out1 = StringRegExpReplace($text_in, "([:xdigit:]{2})([:xdigit:]{2})", "$1+$2+")
$text_out2 = StringRegExpReplace($text_in, "([^:xdigit:]{2})([^:xdigit:]{2})", "$1+$2+")
$text_out3 = StringRegExpReplace($text_in, "([0-9A-Fa-f]{2})([0-9A-Fa-f]{2})", "$1+$2+")
MsgBox(0, "正则替换", "([:xdigit:]{2})([:xdigit:]{2})表达式结果为:"&$text_out1 _
& @CRLF& @CRLF & "([^:xdigit:]{2})([^:xdigit:]{2})表达式结果为:"&$text_out2 _
& @CRLF& @CRLF &"([0-9A-Fa-f]{2})([0-9A-Fa-f]{2})表达式结果为:"&$text_out3)
   
$text_in2 = "1234Gh"
$text_out1 = StringRegExpReplace($text_in2, "([:digit:]{2})([:digit:]{2})", "$1+$2+")
$text_out2 = StringRegExpReplace($text_in2, "([^:digit:]{2})([^:digit:]{2})", "$1+$2+")
$text_out3 = StringRegExpReplace($text_in2, "([0-9]{2})([0-9]{2})", "$1+$2+")
MsgBox(0, "正则替换", "([:digit:]{2})([:digit:]{2})表达式结果为:"&$text_out1 _
& @CRLF& @CRLF & "([^:digit:]{2})([^:digit:]{2})表达式结果为:"&$text_out2 _
& @CRLF& @CRLF &"([0-9A-Fa-f]{2})([0-9A-Fa-f]{2})表达式结果为:"&$text_out3)

superflq

确实是AU3 正则的问题还是,我的表达式有问题,请高手指教

afan

注意表达式写法，[:xdigit:] 应该是 [[:xdigit:]]

$text_in = "C1CfgGh"
$text_out1 = StringRegExpReplace($text_in, "([[:xdigit:]]{2})([[:xdigit:]]{2})", "$1+$2+")
$text_out2 = StringRegExpReplace($text_in, "([^:xdigit:]{2})([^:xdigit:]{2})", "$1+$2+")
$text_out3 = StringRegExpReplace($text_in, "([0-9A-Fa-f]{2})([0-9A-Fa-f]{2})", "$1+$2+")
MsgBox(0, "正则替换", "([[:xdigit:]]{2})([[:xdigit:]]{2})表达式结果为:" & $text_out1 _
                 & @CRLF & @CRLF & "([^:xdigit:]{2})([^:xdigit:]{2})表达式结果为:" & $text_out2 _
                 & @CRLF & @CRLF & "([0-9A-Fa-f]{2})([0-9A-Fa-f]{2})表达式结果为:" & $text_out3)

$text_in2 = "1234Gh"
$text_out1 = StringRegExpReplace($text_in2, "([[:digit:]]{2})([[:digit:]]{2})", "$1+$2+")
$text_out2 = StringRegExpReplace($text_in2, "([^:digit:]{2})([^:digit:]{2})", "$1+$2+")
$text_out3 = StringRegExpReplace($text_in2, "([0-9]{2})([0-9]{2})", "$1+$2+")
MsgBox(0, "正则替换", "([[:digit:]]{2})([[:digit:]]{2})表达式结果为:" & $text_out1 _
                 & @CRLF & @CRLF & "([^:digit:]{2})([^:digit:]{2})表达式结果为:" & $text_out2 _
                 & @CRLF & @CRLF & "([0-9A-Fa-f]{2})([0-9A-Fa-f]{2})表达式结果为:" & $text_out3)

superflq

谢谢楼上,学习了~