正则替换效率问题求助【已解决】

zldfsz

有一些字符串需要将其替换掉，我现在是用的如下方法替换，能不能用一个正则表达式就能实现下面几步的功能，或者有什么办法能将代码简短。对正则不怎么了解，忘各位高人指点一下
就是将全角替换为半角，方括号替换为小括号，X替换为*

$str  ="[】）\]（jr【dfgfdf】(）】）\]\][xfgfdfｘdfjkXgＸjh×＋－g／";有类似这样的字符串将其按下面方法替换掉
$str = StringRegExpReplace($str, "[[（【]", "(")
$str = StringRegExpReplace($str, "[】）\]]", ")")
$str = StringRegExpReplace($str, "[xｘXＸ×]", "*")
$str = StringRegExpReplace($str, "＋", "+")
$str = StringRegExpReplace($str, "－", "-")
$str = StringRegExpReplace($str, "／", "/")
MsgBox(0, '替换结果', $str)

原以为可以用一个正则表达式就能实现，看来只有这样了，感谢 user3000 兄解答

user3000

回复 1# zldfsz


    替换的结果都不一致,一个正则做不来吧?
但如果考虑用数组存放正则表达式及替换结果,管理,增删\表达式和替换内容,会比较容易和直观些.

$str  ="[】）\]（jr【dfgfdf】(）】）\]\][xfgfdfｘdfjkXgＸjh×＋－g／";有类似这样的字符串将其按下面方法替换掉
$str1 = $str
$str1 = StringRegExpReplace($str1, "[[（【]", "(")
$str1 = StringRegExpReplace($str1, "[】）\]]", ")")
$str1 = StringRegExpReplace($str1, "[xｘXＸ×]", "*")
$str1 = StringRegExpReplace($str1, "＋", "+")
$str1 = StringRegExpReplace($str1, "－", "-")
$str1 = StringRegExpReplace($str1, "／", "/")
$str2 = $str
Local $aArray[6][2] = [ _
                           ['[\[（【]', "\("],['[】）\]]', "\)"],['[xｘXＸ×]', "\*"], _
                           ['＋', "\+"],["－", "\-"],["／", "/"] _
                                          ]
For $i = 0 To 5
        $str2 = StringRegExpReplace($str2, $aArray[$i][0], $aArray[$i][1])
Next
MsgBox(0, '替换结果', $str1 & @CR & $str2)