vb 从txt中提取数据

来源：百度知道 编辑：UC知道 时间：2024/06/01 11:39:50
我有一个文件"C:\22.txt"

文件里包含 "state":["66136","92663","1053412","327315"]这段字符

请问VB如何把
66136读取到文本框1
92663读取到文本框2
1053412读取到文本框3
327315读取到文本框4

其中的数据大小是有变化的,,请问我该如何提取..

请各位大虾帮帮忙,回答的好的在追加分数

Private Sub Command1_Click()
Dim temp As String, result

temp = """state"":["
Open "c:\22.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, s
If InStr(s, temp) <> 0 Then Exit Do
Loop
Close #1
nstart = InStr(s, temp) + Len(temp)
nend = InStr(s, """]") + Len("""]")
s = Mid(s, nstart, nend - nstart - Len("""]") + 1)
Print s
s = Replace(s, """", "")
result = Split(s, ",")

Text1.Text = result(0)
Text2.Text = result(1)
Text3.Text = result(2)
Text4.Text = result(3)

End Sub

Private Sub Command1_Click()
Dim r As String, b, i As Integer, n As Integer
Open "c:\22.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, r
r = Replace(r, ":", ",")
r = Replace(r, &q