返回列表 发帖

[效率算法] 感觉正则就跟脑筋急转弯差不多,有个转不过的弯!正则引号的问题

本帖最后由 heavenm 于 2018-5-11 02:59 编辑
a1,a2
"a1,a2"
'a1,a2'
'a1,a2'
"a1,a2"
这样子的格式,有可能带引号,有可能不带引号!
替换成这样子的格式
  1. "a1","a2"
复制代码
### 友情提示:本脚本由 Au3.REHelper 于 2018/05/11 02:40 自动生成,不保证其正确性,请自行测试 ###
Local $sSource = '"192.168.1.1,8080"'
;~MsgBox(0, '源字符串', $sSource)
Local $sSRERe = StringRegExpReplace($sSource, '([\d\.]+),(\d+)', '"\1","\2"')
MsgBox(0, '替换结果', $sSRERe)
输出结果多了引号,有什么好方法能解决么

本帖最后由 heavenm 于 2018-5-11 03:04 编辑
  1. ### 友情提示:本脚本由 Au3.REHelper 于 2018/05/11 03:03 自动生成,不保证其正确性,请自行测试 ###
  2. Local $sSource = '"a1,a2"'
  3. ;~MsgBox(0, '源字符串', $sSource)
  4. Local $sSRERe = StringRegExpReplace($sSource, '.*?([^' & "'" & '",]+),([^' & "'" & '",]+).*', '"\1","\2"')
  5. MsgBox(0, '替换结果', $sSRERe)
复制代码
这样子好像可以!= =#感觉自问自答了

那再问问高级的
如果是
a1,a2,a3,a4,a5.....这样子的咋办

TOP

正则替换,表达式  [\s"']*?(\w+)  替换"$1"
手机没法测试,你自己试试吧
转身离开
分手说不出来
海鸟跟鱼相爱
只是一场意外
我们的爱差异一直存在
风中尘埃竟累积成伤害

TOP

  1. Local $sSource = _

  2.                 'a1,a2' & @CRLF & _

  3.                 '"a1,a2"' & @CRLF & _

  4.                 "'a3,a4'" & @CRLF & _

  5.                 "'a1,a2'" & @CRLF & _

  6.                 '"a1,a2"' & @CRLF & _

  7.                 '"192.168.1.1,8080"' & @CRLF & _

  8.                 'a1,a2,a3,a4,a5'

  9. ;~MsgBox(0, '源字符串', $sSource)

  10. Local $sSRERe = StringRegExpReplace($sSource, '(?m)[' & "'" & '"]*([^,\v' & "'" & '"]+)[' & "'" & '"]*', '"\1"')

  11. MsgBox(0, '替换结果', $sSRERe)

复制代码 高亮切换


  1. (?m)['"]*([^,\v'"]+)['"]*

复制代码 高亮切换
请勿私信提问,有问题请发帖。

TOP

回复 4# afan


    six  six  six

TOP

回复  afan


    six  six  six
haijie1223 发表于 2018-5-11 13:50



    哪有你six  手机都能上码

TOP

回复 5# haijie1223


    汗,我居然去摆渡了

TOP

回复 7# zldfsz


转身离开
分手说不出来
海鸟跟鱼相爱
只是一场意外
我们的爱差异一直存在
风中尘埃竟累积成伤害

TOP

返回列表