请教VB高手,关于TXT文档编程问题!

来源：百度知道 编辑：UC知道 时间：2024/06/19 06:35:51
D:/坐标.TXT 文档;
第一行数据为:x=0.1
第二行数据为:Y=0.2
现在就是这个问题,要把第一行的数据读出给 A1 ,把第二行的给A2,就是读一行加一次,还有这数据行数是不定,有可能是3行,有可能是20几行,怎么判断有几行,加几次! 望高手解答啊!感激不尽!
请高手些弄点代码,有代码才能研究!

用数组轻易解决你的问题,..

dim str(),i as long,tem as string
'判断文件的行数..
open "文件" for input as #1
do until eof(1)
line input #1,tem
i=i+1
loop
close #1
print "文件总行数是" & i
redim str(1 to i)
i=0
open "文件" for input as #1
do until eof(1)
i=i+1
line input #1,tem
str(i)=tem
loop
close #1

'str(1)就是第一行的数据. str(2)就是第2行的数据,,依次类推直到总行数i

最好用数组
dim a()
用redim a(20) 分配单元数，需要多少给多少
读一行，数组单元加1就可以