| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 778 人关注过本帖
标题:*.txt文件中的数据输出
取消只看楼主 加入收藏
guiyangl015
Rank: 1
等 级:新手上路
帖 子:125
专家分:0
注 册:2006-5-21
收藏
 问题点数:0 回复次数:2 
*.txt文件中的数据输出
请教一个实际的问题:本人尝试编一个小程序,相对一组矩阵数据进行各种计算,我想通过文件读操作,将储存在*.txt文件中的
数据(数据可以很整齐,用空格隔开,写成矩阵的形式的)读出,并且赋值给一个二维数组,这一过程想来想去都觉得难以实现,请教怎么实现?
搜索更多相关主题的帖子: txt 数据 文件 输出 
2006-05-25 14:16
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
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.025765 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved