7,759
社区成员
发帖
与我相关
我的任务
分享
Dim strData As String
Dim strLine() As String, strItem() As String
Dim lngData() As Long
Dim i As Long
strData = "onclick='Odds(942057)' " & vbCrLf & _
"onclick='Odds(942058)' " & vbCrLf & _
"onclick='Odds(942059)' " & vbCrLf & _
"onclick='Odds(942060)' " & vbCrLf & _
"onclick='Odds(942061)' "
strLine = Split(strData, vbCrLf)
ReDim lngData(UBound(strLine))
For i = 0 To UBound(strLine)
strItem = Split(strLine(i), "(")
If UBound(strItem) = 1 Then
lngData(i) = Val(strItem(1))
Debug.Print lngData(i)
End If
Next i
Dim strData As String
Dim strLine() As String
Dim lngData() As Long
Dim i As Long
strData = "onclick='Odds(942057)' " & vbCrLf & _
"onclick='Odds(942058)' " & vbCrLf & _
"onclick='Odds(942059)' " & vbCrLf & _
"onclick='Odds(942060)' " & vbCrLf & _
"onclick='Odds(942061)' "
strLine = Split(strData, vbCrLf)
ReDim lngData(UBound(strLine))
For i = 0 To UBound(strLine)
lngData(i) = Val(Mid(strLine(i), 15))
Debug.Print lngData(i)
Next i
运行结果
942057
942058
942059
942060
942061
'此代码由“正则测试工具 v1.1.35”自动生成,请直接调用TestReg过程
Private Sub TestReg()
Dim strData As String
Dim reg As Object
Dim matchs As Object, match As Object
strData = "onclick='Odds(942057)' " & vbCrLf & _
"onclick='Odds(942058)' " & vbCrLf & _
"onclick='Odds(942059)' " & vbCrLf & _
"onclick='Odds(942060)' " & vbCrLf & _
"onclick='Odds(942061)' "
Set reg = CreateObject("vbscript.regExp")
reg.Global = True
reg.IgnoreCase = True
reg.MultiLine = True
reg.Pattern = "onclick='Odds\((\d*)\)'"
Set matchs = reg.Execute(strData)
For Each match In matchs
'Debug.Print match.Value
Debug.Print match.SubMatches(0)
Next
End Sub