7,757
社区成员
发帖
与我相关
我的任务
分享
'此代码由“正则测试工具V1.1.43”自动生成,请直接调用TestReg过程
Private Sub TestReg()
Dim strData As String
Dim reg As Object
Dim matchs As Object, i As Integer
strData = ",""team_id"":""开拓者"",""team_id_val"":""23"", 。。。。。"
Set reg = CreateObject("vbscript.regExp")
reg.Global = True
reg.MultiLine = True
reg.Pattern = """team_id"":""(.*?)"""
Set matchs = reg.Execute(strData)
For i = 0 To matchs.Count - 1
Debug.Print "(" & i + 1 & ")." & matchs(i).SubMatches(0) & " ";
Next
End Sub
Private Sub Command1_Click()
Dim s As String
Dim team(100) As String
Dim i As Long
Dim j As Long
Dim k As Long
Dim n As Long
s = "{""total"":30,""rows"":[{""dynasty_id"":35,""dynasty_id_val"":""35"",""id"":143,""pk_val"":""143"",""pof_lose_match_counts"":0,""pof_win_match_counts"":0,"
s = s + """pof_win_persent"":""0"",""point"":256,""sea_all_match_counts"":98,""sea_lose_match_counts"":19,""sea_win_match_counts"":79,""sea_win_persent"":"
s = s + """80.61%"",""team_id"":""太阳"",""team_id_val"":""22"",""team_status"":""常规赛中"",""team_status_val"":""2"",""user_id"":""山西"",""user_id_val"":""5""},"
s = s + "{""dynasty_id"":35,""dynasty_id_val"":""35"",""id"":144,""pk_val"":""144"",""pof_lose_match_counts"":0,""pof_win_match_counts"":0,""pof_win_persent"":"
s = s + """0"",""point"":175,""sea_all_match_counts"":69,""sea_lose_match_counts"":16,""sea_win_match_counts"":53,""sea_win_persent"":""76.81%"",""team_id"":"
s = s + """开拓者"",""team_id_val"":""23"",""team_status"":""常规赛中"",""team_status_val"":""2"",""user_id"":""北极"",""user_id_val"":""6""},{""dynasty_id"":35,"
s = s + """dynasty_id_val"":""35"",""id"":139,""pk_val"":""139"",""pof_lose_match_counts"":0,""pof_win_match_counts"":0,""pof_win_persent"":""0"",""point"":35,"
s = s + """sea_all_match_counts"":18,""sea_lose_match_counts"":8,""sea_win_match_counts"":10,""sea_win_persent"":""55.55%"",""team_id"":""鹈鹕"","
s = s + """team_id_val"":""18"",""team_status"":""常规赛中"",""team_status_val"":""2"",""user_id"":""小鱼"",""user_id_val"":""33""}]}"
n = 0
k = 1
Do
k = InStr(k, s, """team_id"":""")
If k > 0 Then
k = k + Len("""team_id"":""")
j = InStr(k, s, """")
If j > 0 Then
n = n + 1
If n > 100 Then Exit Do
team(n) = Mid(s, k, j - k)
k = j + 1
Else
Exit Do
End If
Else
Exit Do
End If
Loop
For i = 1 To n
Debug.Print "team(" + CStr(i) + "):[" + team(i) + "]"
Next
End Sub
'team (1): [太阳]
'team (2): [开拓者]
'team (3): [鹈鹕]
Set ojs = CreateObject("msscriptcontrol.scriptcontrol"): ojs.Language = "jScript"
y = ojs.eval("eval(" & strText & ")['rows']['team_id']")
MsgBox y