Question

在线等VB将TXT中三列内容，分别定义成三个数组a（i）, b(i),c(i)

如马 21 军守门"
马 20 五守门"
李 19 四守门"
张 18 味后卫"
张 17 后卫
刘 16 六与后卫
马 15 军后卫"
王 14 五后卫
李 13 四后卫
张 12 三后卫
刘 11 猛前卫
刘 10 力前卫
马 9 军前卫
王 8 五前卫
李 7 qiang
张 6 前卫
六 5 与前卫
马 4 军前锋
王 3 军前锋
张 2 军前锋
张 1 三军前锋
定义成三个数组

Answer 1

Private Sub Command1_Click()
Dim i As Integer
Dim a() As String, b() As String, c() As String

Open "路径" + "文件名.txt" For Input As #1
Do While Not EOF(1)
ReDim Preserve a(0 To i)
ReDim Preserve b(0 To i)
ReDim Preserve c(0 To i)
Input #1, a(i), b(i), c(i)
i = i + 1
Loop
Close #1
End Sub