回 帖 发 新 帖 刷新版面

主题:如何读入文本数据并赋值,最后把结果输出?

各位高手:
    有个难题请教了!
    请问如何用VB读取一个*.txt文本文件的内容啊?文本的部分内容如下
24929  26722  32  26985.75   1.690716E+08      183015680  169071616  2009-3-24 13:31:41
524    771       11  2563.1     3.137236E+07      45316436      31376476       2009-3-24 13:32:38
6939   463   26  4882.32     4.706098E+07    33116914       4706098   2009-3-24 13:32:59
10023  11816 38  12078.78    6.79771E+07      81921168       67977096  2009-3-24 13:44:24
现在想用VB编一个程序,读这个txt文件,并按照上面的的格式,将每行前面7个数读入内存,并赋值给7个变量,再把7个变量通过数学计算(如24929=a+b*256,26722=c+d*256……abcd等都是字节,计算方面我自己会),
最后把abcd……等值输出到另一个文本
我是菜鸟一个,希望各位详细指点下!谢谢

回复列表 (共6个回复)

沙发

1、如果每行只有7个数据就很简单。
open 文件 for input as #1
i=1
do while not eof(1)
input #1,变量1,变量2,变量3,变量4,变量5,变量6,变量7
处理数据
i=i+1
loop
close #1

2、如果每行不只7个数据,数据间都只有一个空格
open 文件 for input as #1
i=1
do while not eof(1)
line input #1,行
变量=split(行)'此后变量(0)、变量(1)……变量(6),就是你要的。
处理数据
i=i+1
loop
close #1



板凳

谢谢啦!
好像不行啊,说超出文件尾,[em8]
可不可以详细说说啊,谢谢啦

3 楼

就是就是,能不能说详细点?那行超出了?超出的时候独到哪里了?各个变量的状态是什么?

4 楼

还有你的数据文件能不能说详细点呢?我在上面的上面说了那么多,你能不能详细点呢?

5 楼

[quote]还有你的数据文件能不能说详细点呢?我在上面的上面说了那么多,你能不能详细点呢?[/quote]
在这一行出错:Input #1, a, b, c, d, e, f, g
我把abcdefg定义为7个变量

6 楼

免了,你说话老是说半截,留半截让人猜,太费劲了。

我来回复

您尚未登录,请登录后再回复。点此登录或注册