论坛 › 已解决问题区 › [已解决]求个正则去掉文本中的所有标点符号

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 http://www.autoitx.com/images/common/back.gif


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

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

回复 8# afan


    确实如此

查看完整版本: [已解决]求个正则去掉文本中的所有标点符号