[已解决]求高手给个判断是否包含指定字母的正则

king8462

$result变量包含1-3个字母，字母为ABCD中的任意一个且位置不固定（比如BC，DA，CBA，ACD，C等）。需要判断是否包含“A”，“B”，“C”，“D”中的任意一个并返回结果。

求高手写个正则代码，谢谢！

cfwyy

[ABCD]{1,3}

king8462

cfwyy 发表于 2017-5-23 11:18

楼上给的看不懂。

zghwelcome

Local $result = 'ACXYZSDEFZ'
Local $sChk = 'ABCD'
$sReg = StringRegExpReplace($result, '[' & StringRegExpReplace($result, '[' & $sChk & ']+', "") & ']+', "")
MsgBox(512,"","包含字符：" & $sReg)

king8462

回复 4# zghwelcome


  谢谢楼上！

zghwelcome

回复 5# king8462
之前的好像写复杂了

Local $result = 'ACXYZSDEFZ'
Local $sChk = 'ABCD'
$sReg = StringRegExpReplace($result,'[^' &$sChk&']',"")
MsgBox(512,"","包含字符：" & $sReg)

king8462

回复 6# zghwelcome

能不能再帮忙写个：

$result变量包含1-3个字母，字母为ABCD中的任意一个且位置不固定（比如BC，DA，CBA，ACD，C等）。需要返回“A”，“B”，“C”，“D”中不包含的：比如$result=DC 则返回AB ；$result=A则返回BCD。谢谢！

afan

回复 7# king8462


   

Local $result = 'BC'
;~ Local $result = 'DA'
;~ Local $result = 'CBA'        ;ACD，C
MsgBox(0, $result, _NoSz($result))

Func _NoSz($str, $sPc = 'ABCD')
        Return StringRegExpReplace($sPc, '[' & $str & ']', '')
EndFunc   ;==>_NoSz

king8462

回复 8# afan


拜谢A版，正则太强大。