急等！！！我定义了一个文本文件，请问高手，用VB怎么读入到一个数组里！！多谢！

[mss]

文本文件如下：
<begin>
<1>100<1>
<2>200<2>
<3>300<3>
<4>400<4>
<5>500<5>
<end>
在VB中定义了数组data1[4],data2[4]
我想把文件中的1，2，3，4，5读给数组data1[],把100，200，300，400，500读给数组data2[]

[sxs69]

Private Sub Command1_Click()
Dim Data1(4) As Integer, data2(4) As Integer
Dim s As String, i As Integer
Open "d:\SXS\paramter.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, s
Dim k As Integer, m As Integer, n As Integer
k = InStr(s, "<")
If k > 0 Then
m = InStr(k + 1, s, ">")
n = InStr(m + 1, s, "<")
If n > 0 Then
Data1(i) = Val(Mid(s, k + 1, m - k - 1))
data2(i) = Val(Mid(s, m + 1, n - m - 1))
i = i + 1
End If
End If
Loop
Close #1
For i = 0 To 4
Text1(i) = Data1(i): Text2(i) = data2(i)
Next
End Sub

[落伍者]

用ini文件，更方便
或者用xml文档。

[mss]

用ini文件怎么编，或用xml文档
请高手告诉我！多谢！
多谢！多谢！多谢！
谢谢：上面的sxs69（）!我来试一下！！

[rainstormmaster]

用数据库思想处理，即把文本文件看成数据库，速度要快得多。

[mss]

文件名为：paramter.txt
请详细告诉我！
总之我是想把一个文件中的数据:一部分是档位，一部分是数据分别读入到两个数组中
因为我想可在文件中改数据，不用在VB中改代码！！就可实现档位所对应的数据的变化！
如我想给第一档：data[0]=1 所对应的data[0]=100想改为150
我就可把上面的：<1>100<1>改为<1>150<1>就行了
高手也给我想别的办法实现也行！
多谢！！！

[vikingleo]

MARK