"2008155025":{"info":[2,"65",0,0,"足球","FOXTEL C 2","Australia Foxtel Cup U21","16 Aug","23:45","南墨尔本 U21","vs","萨巴拉斯 U21",0,0,2,0,0,0],"rb":[0,"0",0,"1.219",0,"0.700"],"rbou":[0,"2.5/3",0,"1.111",0,"0.760"],"rb1st":[0,"",0,"",0,""],"rbou1st":[0,"",0,"",0,""],"1x2rb":[0,"",0,"",0,""],"1sthf1x2rb":[0,"",0,"",0,""]},"2008153932":{"info":[2,"5",0,0,"足球","JAP1","日本职业联赛J1","17 Aug","01:00","札幌冈萨多","vs","京都不死鸟",1,0,0,0,0,0],"rb":[0,"0",0,"0.900",0,"1.020"],"rbou":[0,"2/2.5",0,"0.900",0,"1.000"],"rb1st":[0,"0",0,"0.950",0,"0.950"],"rbou1st":[0,"0.5/1",0,"0.710",0,"1.234"],"1x2rb":[0,"2.75",0,"2.75",0,"3.10"],"1sthf1x2rb":[0,"3.30",0,"3.50",0,"1.95"],"child":{"info":["2008155671"],"rb":[0,"0/0.5",0,"1.282",0,"0.700"],"rbou":[0,"2.5",0,"1.219",0,"0.720"],"rb1st":[0,"",0,"",0,""],"rbou1st":[0,"",0,"",0,""],"1x2rb":[0,"",0,"",0,""],"1sthf1x2rb":[0,"",0,"",0,""]}},
Private Sub Command1_Click()
Dim src As String
src = Text1.Text
Dim l As Long
l = Len(src)
Dim old As Long
old = 1
Dim s As String
Do
old = InStr(old, src, "&#")
If 0 = old Then
Exit Do
Else
s = Trim(ChrW$(Val(Mid(src, old + 2, 5))))
src = Mid(src, 1, old - 1) & s & Mid(src, old + 8)
old = 1
End If
Loop While 1
Debug.Print src
End Sub