| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 557 人关注过本帖
标题:【求助】如何在TXT文件中读取数据段?
只看楼主 加入收藏
糊涂虫
Rank: 1
等 级:新手上路
帖 子:87
专家分:0
注 册:2006-2-11
收藏
 问题点数:0 回复次数:0 
【求助】如何在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

怎么得到每行数组吗?我这样做可以吗?
谢谢指导!
搜索更多相关主题的帖子: TXT 数据 文件 
2006-02-26 18:38
快速回复:【求助】如何在TXT文件中读取数据段?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.023716 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved