| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 759 人关注过本帖, 1 人收藏
标题:请问 VB 如何实现顺序读取文本文件中的数据,并将读取到的数据保存在二维数 ...
只看楼主 加入收藏
阿什利扬
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2014-9-28
结帖率:0
收藏(1)
 问题点数:0 回复次数:2 
请问 VB 如何实现顺序读取文本文件中的数据,并将读取到的数据保存在二维数组呢
现在有一组文本文件保存的数据(一个是8行3列),我想实现由VB顺序读取其中的每一个数据,然后保存到二维数组中,再由二维数组将数据添加到MSHFlexGrid控件的表格里,下面是我编的程序,但是最后只能读出第一行,恳请大家看看到底是哪出错了(最后希望读出的也是8行3列才对),谢谢大家!
程序如下:
Option Base 1
Private Sub Command1_Click()
Dim i As Long, j As Long, a() As Double
   Open "C:\Users\lenovo\Desktop\测试数据.txt" For Input As #1
        ReDim Preserve a(1 To 8, 1 To 3)
        For i = 1 To 8
            For j = 1 To 3
               Input #1, a(i, j)
          Next j
        Next i
     Close #1
   For i = 1 To 8
      For j = 1 To 3
        MSHFlexGrid1.TextMatrix(i - 1, j - 1) = a(i, j)
      Next j
   Next i
End Sub
图片附件: 游客没有浏览图片的权限,请 登录注册
图片附件: 游客没有浏览图片的权限,请 登录注册
图片附件: 游客没有浏览图片的权限,请 登录注册
搜索更多相关主题的帖子: 文本文件 Desktop lenovo Users 如何 
2014-09-29 14:33
alike123
Rank: 6Rank: 6
等 级:侠之大者
威 望:8
帖 子:107
专家分:428
注 册:2014-2-10
收藏
得分:0 
MSHFlexGrid属性页--通用--行8列3设定一下,再试一下执行程序
2014-09-30 15:41
阿什利扬
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2014-9-28
收藏
得分:0 
回复 2 楼 alike123
谢谢,问题已经解决
2014-09-30 16:09
快速回复:请问 VB 如何实现顺序读取文本文件中的数据,并将读取到的数据保存在二 ...
数据加载中...
 
   



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

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