【求助】如何在TXT文件中读取数据段?
在文件中有50个整数,每5个一行,一共10行,文件地址c:\data.txt读取文件中的数据(每一行的第一个整数是唯一的),写入数据时候第一个整数如果存在就覆盖,没有就重新添加一行。如文本中有500,1,5,10,15的当写入是500,2,7,55,85 ,在文件中写500,2,7,55,85 并保存。
dim ia(50) as Integer
dim i%,i1%,i2%,i3%,i4%
open "c:\data.txt" for input lock read as #1 '同一个文件可以用多个文件号打开
i= text1.text
input #1,ia(0),ia(1),ia(2),ia(3),ia(4)
if instr(i,ia(0)) then
open "c:\data.txt" for output access write shared as #2
else
open "c:\data.txt" for append access write shared as #2
end if
'(i = text2……)
write #2,i,i1,i2,i3,i4
怎么得到每行数组吗?我这样做可以吗?
谢谢指导!