| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 778 人关注过本帖
标题:*.txt文件中的数据输出
只看楼主 加入收藏
guiyangl015
Rank: 1
等 级:新手上路
帖 子:125
专家分:0
注 册:2006-5-21
收藏
 问题点数:0 回复次数:5 
*.txt文件中的数据输出
请教一个实际的问题:本人尝试编一个小程序,相对一组矩阵数据进行各种计算,我想通过文件读操作,将储存在*.txt文件中的
数据(数据可以很整齐,用空格隔开,写成矩阵的形式的)读出,并且赋值给一个二维数组,这一过程想来想去都觉得难以实现,请教怎么实现?
搜索更多相关主题的帖子: txt 数据 文件 输出 
2006-05-25 14:16
zichenxz
Rank: 1
等 级:新手上路
帖 子:44
专家分:0
注 册:2006-5-21
收藏
得分:0 
这有什么难的。
你先用OPEN打开文件,然后定义给变量,再循环二维数组等于定义的变量。
2006-05-25 17:34
xinfresh
Rank: 4
等 级:贵宾
威 望:13
帖 子:594
专家分:0
注 册:2006-1-13
收藏
得分:0 

用空格隔开的话VB很难读的,快一点也要用Split再把一维数组转成二维,不如用","隔开的方便


E-mail:xinfresh@QQ:383094053校内:http:///getuser.do?id=234719042
2006-05-25 19:07
guiyangl015
Rank: 1
等 级:新手上路
帖 子:125
专家分:0
注 册:2006-5-21
收藏
得分:0 

我也想过!读数据的时候,用line input,只是一行一行循环读出.用split函数只能赋值给一维数组.我想的话,在读数的过程中,(若是二维的话)实际上只有一维在循环.下面的代码是获得数据的二维:
Dim i%, j%,x()%,y()%
Open File1.FileName For Input As #1
i = 0
Do While Not EOF(1)
i = i + 1
Text2.Text = ""
Line Input #1, inputdata
Text2.Text = Text2.Text + inputdata + vbCrLf
y = Split(Text2.Text, ",") '改成逗号隔开
j = UBound(y)
Loop
Close #1
Picture1.Print i; j
各位高手帮我看看,下面的代码应该怎么循环,才能把值赋给数据x():
redim x(i-1,j)
Open File1.FileName For Input As #1
Do While Not EOF(1)
Text2.Text = ""
Line Input #1, inputdata
Text2.Text = Text2.Text + inputdata + vbCrLf
Loop
Close #1


站的高,才能看的远!!
2006-05-25 23:01
xinfresh
Rank: 4
等 级:贵宾
威 望:13
帖 子:594
专家分:0
注 册:2006-1-13
收藏
得分:0 
我给你想个办法试试
先把所有的内容读到一个String里
然后,Replace,去掉所有的vbCrLf,再把所有的" "(两个),换成" "(一个)
这样的话,生成的String就是一个以" "(一个)分隔的数据串
Split一下,是一个一维数组
一维变二维还不容易……
你觉得呢?

E-mail:xinfresh@QQ:383094053校内:http:///getuser.do?id=234719042
2006-05-26 00:42
guiyangl015
Rank: 1
等 级:新手上路
帖 子:125
专家分:0
注 册:2006-5-21
收藏
得分:0 

很有道理哦!!那我就这样试试!
顺便还请教一下,还改变驱动器列表的默认驱动器,应该改什么属性!
我手上的资料对这个介绍的很少!
不知道
版主
xinfresh
有没有关于VB里面函数的详细介绍的资料!网上资源也行!
感激不尽!!


站的高,才能看的远!!
2006-05-26 10:46
快速回复:*.txt文件中的数据输出
数据加载中...
 
   



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

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