您的位置：程序门 -> vb ->

怎么读取文本文件？急急急

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

怎么读取文本文件？急急急[已结贴,结贴人:woaini1988]

发表于：2007-05-25 09:55:45 楼主

怎么从c:\123.txt读取一行数据，每个数据之间用
“,“隔开，读取后第一行数据为阿a（0,0),a（0,1)......第二行为a（1,0),a（1,1)....

发表于：2007-05-25 09:57:571楼得分:100

一下代码可以读出这个文本文档有多行，每行多少列！和内容，要把内容放数组，只要再做循环就可以了,这个问题不难解决呀
dim i%, k as integer, t（), a（)

private sub command1_click（)

text1.text = " "
dim inputdata
open "c:3.txt " for input as #1
do while not eof（1)
line input #1, inputdata
i = i + 1
redim t（i)
t（i) = len（inputdata) '算出每行多少字符，就是多少列
redim a（i, t（i))
a（i, t（i)) = inputdata '为了能把每个对应这里把每行的数据记录
picture1.print i; t（i); "（ "; a（i, t（i)); ") "
text1.text = text1.text + inputdata + vbcrlf
loop
close #1
end sub

其他资讯