请问如何实现以下的要求？？？

[tatty_bad]

代码如下：

432uior23uio3r2$$0001 jkfdsjkjk jkj9j8$$0003 j3iuo43jio$$0004 kkjjkljkljlk$$0006

这几个红色的字符格式是一样的，即都是$$＋四位数字的形式

我如何做到从其中把$$0001,$$0003,$$0004,$$0006提取出来？

请教。

[pangpangxu]

Dim ss, re, rv
ss = "432uior23uio3r2$$0001 jkfdsjkjk jkj9j8$$0003 j3iuo43jio$$0004 kkjjkljkljlk$$0006"
Set re = New RegExp
re.Pattern = "\$\$[0-9]{4}"
re.Global = True
re.IgnoreCase = True
re.MultiLine = True
Set Matches = re.Execute(ss) '执行搜索。
For Each Match in Matches '遍历匹配集合。
RetStr = RetStr & "Match found at position "
RetStr = RetStr & Match.FirstIndex & ". Match Value is '"
RetStr = RetStr & Match.Value & "'." & "<BR>"
Next
response.write RetStr

[tatty_bad]

感谢 pangpangxu(一天就够了)
接下来的问题是，如何在此基础上，把找出来的内容给替换成指定的内容，然后再放回原来的位置呢？

[是是非非]

用正则表达式
/(\$\$(\d{4}))/

[chenxuchen]

a="432uior23uio3r2$$0001 jkfdsjkjk jkj9j8$$0003 j3iuo43jio$$0004 kkjjkljkljlk$$0006"
str=split(a,"$$")
dim str1(100)
for i=1 to ubound(str)
str1(i)=mid(str(i),1,4)
next
for j=1 to ubound(str)
response.write str1(j)
next

[qunluo]

结合mid函数和split函数，先分割，标志=======》$
然后用用split处理！