在文件中有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

怎么得到每行数组吗？我这样做可以吗？
谢谢指导！