第1个回答 2010-03-27
Private Sub Command1_Click()
aa = Split(Text1.Text, "{name:""")
bb = Split(Text1.Text, "QQ:""")
List1.Clear
List2.Clear
For n = 1 To UBound(aa)
List1.AddItem Left(aa(n), InStr(aa(n), """") - 1)
Next
For n = 1 To UBound(bb)
List2.AddItem Left(bb(n), InStr(bb(n), """") - 1)
Next
End Sub
第2个回答 2010-03-27
Private Sub Command1_Click() '截取字符串
Dim tmpStr As String
For i = 0 To Split(Text1, vbLf)
tmpStr = Split(Split(i, ",")(0), ":")(1)
List1.AddItem Mid(tmpStr, 1, Len(tmpStr) - 2)
tmpStr = Split(Split(i, ",")(1), ":")(1)
List1.AddItem Mid(tmpStr, 1, Len(tmpStr) - 3)
End Sub '未测试 如果有错请通知
第3个回答 2010-03-27
Private Sub Command1_Click()
Dim a, b$, i&
b$ = Text1
b = Replace(b, """", ",")
List1.Clear
List1.Clear
a = Split(b, ",")
For i = 1 To UBound(a) Step 5
List1.AddItem a(i)
List2.AddItem a(i + 3)
Next
End Sub