关于正则表达式替换字符串（已解决）

kevinchengcw

不知还有没有更简单的写法或做法，也希望大家能帮忙想想

aidixiao

感谢分享。

kevinchengcw

转来转去，原来VBA也可以这样替换，呵呵

Sub test()
Dim A As String
Dim RegEx As Object

A = "jgdl;asgds[1234]jgdlsaf[abccdaf]d;l;l[1]sajfsajf"
Set RegEx = CreateObject("vbscript.regexp")
With RegEx
    .Global = True
    .Pattern = "(\[)(\d+)(\])"
End With
A = RegEx.Replace(A, "($2)")
MsgBox A
End Sub

[ 本帖最后由 kevinchengcw 于 2010-6-7 20:16 编辑 ]

hanter007

很好用的正则表达式,慢慢消化一下..

onthetrip

原帖由 kevinchengcw 于 2010-6-7 19:44 发表
转来转去，原来VBA也可以这样替换，呵呵

Sub test()
Dim A As String
Dim RegEx As Object

A = "jgdl;asgds[1234]jgdlsaf[abccdaf]d;l;l[1]sajfsajf"
Set RegEx = CreateObject("vbscript.regexp")
With R ...

A = RegEx.Replace(A, "($2)")中$2是什么意思，实在没看懂

kevinchengcw

.Pattern = "(\[)(\d+)(\])"
.Pattern = " $1 $2 $3 "

这样写会不会清楚些,用括号将匹配规则分成了三段,参考六楼

onthetrip

原帖由 kevinchengcw 于 2010-6-7 21:21 发表
.Pattern = "(\[)(\d+)(\])"
.Pattern = " $1 $2 $3 "

这样写会不会清楚些,用括号将匹配规则分成了三段,参考六楼

经过反复试验，好像有了一点眉目了：($2)表示将第二段加上"()"。
谢谢你

[ 本帖最后由 onthetrip 于 2010-6-26 10:54 编辑 ]

bluexuemei

1. Sub t()
   
2. Dim ojs As Object, rng as range
   
3. Set ojs = CreateObject("scriptcontrol"): ojs.Language = "jscript"
   
4. ojs.eval "function gets(str){return str.replace(/\[(\d+)\]/g,'\($1\)')}"
   
5. For Each Rng In Range("a1", [a65536].End(3))
   
6. Rng(1, 2) = ojs.codeobject.gets(Rng.Value)
   
7. Next
   
8. End Sub
   
9. 
   

复制代码

datongye

ss = "83908308[859430]fjd;asfjl[jfkdsa;jf]fkdls;a"

Set rege = CreateObject("vbscript.regexp")
With rege
  .Global = True
  .Pattern = "\[(.*?)\]"
  Debug.Print .Replace(ss, "($1)")
End With
[jfkdsa;jf]当方括号里有有\W字符时就无效了。