如何使用vb6.0支持的正则规则提取重复的字符串

Question

我做的时候发现Visual Basic Scripting Edition的规则或者VBScript的规则的向后引用跟网上的文章不一致 我都实现不了 请教高手 以下是我的代码
Private Sub Command1_Click()
Text3 = find(Text2, Text1)
End SubFunction find(tiaojian As String, neirong As String) As String
On Error Resume Next
If tiaojian = "" Or neirong = "" Then MsgBox "输入提醒": Exit Function
Dim re
Set re = CreateObject("VBScript.RegExp")
re.MultiLine = True
re.Global = True '设置匹配时搜索str的整个字符串，若为false，只搜索str里符合条件的第一项
re.Pattern = tiaojian '定义正则表达式
re.IgnoreCase = True ' 设置是否区分字符大小写。
re.Global = True ' 设置全局可用性。
Set Matches = re.Execute(neirong) ' 执行搜索。
For Each Match In Matches ' 遍历匹配集合。
RetStr = RetStr & "位置: "
RetStr = RetStr & (Match.FirstIndex + 1) & " 字符:"
RetStr = RetStr & Match.Value & " " & vbCrLf
Next
find = RetStr
End Function请高手帮我看看如何用它 提取一下重复的字符
000000
123457
123456
555555
000000
555555我要他得到00000 和555555

Answer 1

只要提供规则就可以了,也就是这个re.Pattern = 正则表达式  呵呵 先谢谢各位~~~

Answer 2

汗 图片居然........呵呵 这是那个图片http://hi.baidu.com/lijinfeng042/album/item/0e319319c6888e1935fa41b3.html

Answer 3

先谢谢 3 楼 SYSSZ
这是三楼的结果
位置: 1 字符:000000 
位置: 25 字符:555555 
位置: 33 字符:000000 
位置: 41 字符:555555 呵呵 还是提取不了啊 你的表达式我看得懂 ^0{6}|^5{6}:匹配以0或5的重复6次 即匹配000000和555555 但是如果没重复时例如
555555
000000 
也会得到结果