16,556
社区成员
发帖
与我相关
我的任务
分享
Dim ss As String = "[001][002][003][004][005][006]"
Dim ms As System.Text.RegularExpressions.MatchCollection = System.Text.RegularExpressions.Regex.Matches(ss, "(?<=\[)\d+?(?=\])")
Dim rtValue(ms.Count - 1) As String
For i As Integer = 0 To ms.Count - 1
rtValue(i) = ms.Item(i).Value
'MsgBox(rtValue(i))
Next