vb 读取文本文件 数据放到二维数组中，

像http://wenwen.sogou.com/z/q745386581.htm，但是格式是这样的
1 “你好" 0.1
2 “很不好" 0.2
行与行之间是 vbcrlf 一行内用 空格间隔
开始的时候想用结构体 但是一直出错，然后想先存入二维数组，然后再转为结构体的
请您给指导下。谢谢

(ByVal filepath As String) As String
Dim s As String
Open filepath For Input As #1
While Not EOF(1)
Line Input #1, sline
s = s & sline & vbCrLf
Wend
Close #1
openfile = s
End Function

如果是按一行一行读取进数组 你可以用

dim a
a = split(openfile(App.Path & "\1.txt"),vbcrlf)

你要做什么计算？aa和bb都可以用于计算的 private sub command1_click() dim aa(), bb(), a, b, n as integer, i as integer, fname as string fname = "d:\1.txt" '文件名，可自行更改 '获得文本文件的行数，实际行数为n+1 open fname for binary as #1 a = strconv(inputb(lof(1), 1), vbunicode) close #1 b = split(a, vbcrlf) n = ubound(b) redim aa(n, 1),bb(n, 1) '将动态数组定义为二维数组 '开始从文件中读取数据，赋值给二维数组aa和bb i = 0 open fname for input as #1 do while not eof(1) input #1, aa(i, 0), aa(i, 1) bb(i, 0)=aa(i, 0) bb(i, 1)=aa(i, 1) i = i + 1 loop close #1 '打印读出的二维数组 cls for j = 0 to i - 1 print aa(j, 0), aa(j, 1) next end sub