| 查看: 1415 | 回复: 6 | ||
[求助]
请问VB如何实现顺序读取文本文件中的数据，并将读取到的数据保存在二维数组呢 已有2人参与
|
|
现在有一组文本文件保存的数据（一个是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  1.jpg  2.jpg  3.jpg |
回复此楼» 猜你喜欢
自荐读博
已经有9人回复
-
投稿Elsevier的杂志（返修），总是在选择OA和subscription界面被踢皮球
已经有8人回复
-
自然科学基金委宣布启动申请书“瘦身提质”行动
已经有4人回复
-
求个博导看看
已经有18人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- matlab读取excel多个sheet数据，处理并重新保存，高价求教高人
已经有12人回复
- jade 6.5 中无法读取已保存的.sav文件
已经有4人回复
- VB文件读取的问题！！！急
已经有13人回复
- 【求助】CListCtrl列表框中数据保存，读取问题？（楼主取消）
已经有5人回复
- 【求助】vb.net的DataGridView如何编辑后保存到Access数据库中？
已经有7人回复
- 【求助】VB如何读取txt文件~~
已经有12人回复
deephill
铁杆木虫 (职业作家)
- 应助: 59 (初中生)
- 金币: 5262.3
- 散金: 100
- 红花: 16
- 帖子: 4425
- 在线: 425小时
- 虫号: 305318
- 注册: 2006-12-09
- 性别: GG
- 专业: 微量元素地球化学
【答案】应助回帖
★
jjdg: 金币+1, 感谢参与 2014-10-04 14:05:31
jjdg: 金币+1, 感谢参与 2014-10-04 14:05:31
|
我非常好奇，楼主的程序居然能读进去成为数组。我以前觉得读进去的文本文字内容没有分段，怎么能成为数组，我就试了一下。我先验证了一下是否真的生产了完整的数组，实现了转换。 加了textbox用了这个语句 Text1.Text = "" For i = 1 To 8 For j = 1 To 3 Text1.Text = Text1.Text & Chr(9) & a(i, j) Next j Text1.Text = Text1.Text & Chr(13) & Chr(10) Next i 检验了一下，能出结果，说明楼主的文本到数组的转换是没有问题的。 我也不能在MSHFlexGrid1 中显示。我看了楼主的截图以后知道了问题所在。 需要用这个，就可以了。 Private Sub Form_Load() MSHFlexGrid1.Rows = 10 ' 指定表格的总行数 MSHFlexGrid1.Cols = 4 '指定表格的总列数 End Sub ===================== vb的人气太那个那个了，所以来凑个热闹。 |
2楼2014-10-03 20:41:09
deephill
铁杆木虫 (职业作家)
- 应助: 59 (初中生)
- 金币: 5262.3
- 散金: 100
- 红花: 16
- 帖子: 4425
- 在线: 425小时
- 虫号: 305318
- 注册: 2006-12-09
- 性别: GG
- 专业: 微量元素地球化学
3楼2014-10-03 20:44:08
4楼2014-10-03 20:44:50
deephill
铁杆木虫 (职业作家)
- 应助: 59 (初中生)
- 金币: 5262.3
- 散金: 100
- 红花: 16
- 帖子: 4425
- 在线: 425小时
- 虫号: 305318
- 注册: 2006-12-09
- 性别: GG
- 专业: 微量元素地球化学
5楼2014-10-07 12:03:54
 |
6楼2014-10-07 12:05:21
【答案】应助回帖
|
Open CommonDialog1.filename For Binary As #1 DoEvents hang = Split(Input(LOF(1), 1), vbCrLf) 'input(lof(1),1)是文件全部内容 Close #1 hangyuan = Split(hang(0), vbTab) ReDim yuansu(UBound(hang), UBound(hangyuan)) For i = LBound(hang) To UBound(hang) - 1 hangy = Split(hang(i), vbTab) For j = LBound(hangyuan) To UBound(hangyuan) DoEvents '存放行分裂 yuansu(i, j) = Val(hangy(j)) '二维数组赋值完毕 Next Next这样才能读到二维数组 |
7楼2016-03-03 20:12:44