Question

VB环境下 从txt文件读取二维数据 然后赋值到数组中，应该怎么写？

Answer 1

Private Type IPoint
X As Double
Y As Double
End Type

Private Sub Command1_Click()
Form1.Cls
Dim s As String, p() As IPoint, N As Integer
Dim arrS() As String
Open "D:\1.txt " For Input As #1 '添加你的txt路径
Do While Not EOF(1)
Line Input #1, s
ReDim Preserve p(N)
arrS = Split(Trim(s), " ")
With p(N)
.X = Val(arrS(0))
.Y = Val(arrS(UBound(arrS)))
End With
Print p(N).x , p(N).y
N = N + 1
Loop
Close #1
End Sub

txt格式为
0,0
1,1
2,2
3,3
试试看吧 呵呵

Answer 2

Public Function openfile(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)