*.txt文件中的数据输出
请教一个实际的问题:本人尝试编一个小程序,相对一组矩阵数据进行各种计算,我想通过文件读操作,将储存在*.txt文件中的数据(数据可以很整齐,用空格隔开,写成矩阵的形式的)读出,并且赋值给一个二维数组,这一过程想来想去都觉得难以实现,请教怎么实现?
我也想过!读数据的时候,用line input,只是一行一行循环读出.用split函数只能赋值给一维数组.我想的话,在读数的过程中,(若是二维的话)实际上只有一维在循环.下面的代码是获得数据的二维:
Dim i%, j%,x()%,y()%
Open File1.FileName For Input As #1
i = 0
Do While Not EOF(1)
i = i + 1
Text2.Text = ""
Line Input #1, inputdata
Text2.Text = Text2.Text + inputdata + vbCrLf
y = Split(Text2.Text, ",") '改成逗号隔开
j = UBound(y)
Loop
Close #1
Picture1.Print i; j
各位高手帮我看看,下面的代码应该怎么循环,才能把值赋给数据x():
redim x(i-1,j)
Open File1.FileName For Input As #1
Do While Not EOF(1)
Text2.Text = ""
Line Input #1, inputdata
Text2.Text = Text2.Text + inputdata + vbCrLf
Loop
Close #1