[已解决]求个正则去掉文本中的所有标点符号

king8462 · 发表于 2015-12-25 14:09:05

本帖最后由 king8462 于 2015-12-26 09:01 编辑

文本如下：
“”＂以下的说法正确的是＇‘’＇?？()（）

可能包含有全角英文／中文或者半角英文／中文标点。
想去掉所有的标点符号，得到结果：以下的说法正确的是

谢谢！

xlj310 · 发表于 2015-12-25 14:22:31

stringreplace搞定

afan · 发表于 2015-12-25 14:23:08

Local $sSource = '“”＂以下的说法正确的是＇‘’＇?？()（  ）' & @CRLF
;~MsgBox(0, '源字符串', $sSource)
Local $sSRERe = StringRegExpReplace($sSource, '[“”＂' & "'" & '"＇‘’＇\?？\()（）]+', '')
MsgBox(0, '替换结果', $sSRERe)

king8462 · 发表于 2015-12-25 15:25:38

回复 3# afan

谢谢版主!

能不能删除所有可能的标点符号。如：《<>》！! 等等

afan · 发表于 2015-12-25 15:58:37

回复 4# king8462

这个最好自己添加进去…

haijie1223 · 发表于 2015-12-25 16:51:13

本帖最后由 haijie1223 于 2015-12-25 16:58 编辑

Dim $sStr = '“”＂以下的说法正确的是＇‘’＇?？()（  ）《<>》 ！!' & @CRLF
$sStr = StringRegExpReplace($sStr, '[^\x{4e00}-\x{9fa5}]+', '')
MsgBox(0, '替换结果', $sStr)

king8462 · 发表于 2015-12-26 09:00:24

谢谢2位版主！

afan · 发表于 2015-12-26 09:50:15

haijie1223 发表于 2015-12-25 16:51

这样会把英文字母全干掉了 _ _||

haijie1223 · 发表于 2015-12-27 10:51:05

回复 8# afan

确实如此

		自动登录	找回密码
密码			加入

[效率算法] [已解决]求个正则去掉文本中的所有标点符号

相关帖子