版塊導航: 正在加載中...

登錄注冊

應《網(wǎng)絡安全法》要求，自2017年10月1日起，未進行實名認證將不得使用互聯(lián)網(wǎng)跟帖服務。為保障您的帳號能夠正常使用，請盡快對帳號進行手機號驗證，感謝您的理解與支持！

24小時熱門版塊排行榜

返回列表

阿什利揚

鐵桿木蟲 (知名作家)

應助: 19 (小學生)
金幣: 8189
散金: 151
紅花: 50
帖子: 6421
在線: 1034.7小時
蟲號: 3134031
注冊: 2014-04-13
性別: GG
專業(yè): 中國通史

[求助] 請問VB如何實現(xiàn)順序讀取文本文件中的數(shù)據(jù)，并將讀取到的數(shù)據(jù)保存在二維數(shù)組呢已有2人參與

現(xiàn)在有一組文本文件保存的數(shù)據(jù)（一個是8行3列），我想實現(xiàn)由VB順序讀取其中的每一個數(shù)據(jù)，然后保存到二維數(shù)組中，再由二維數(shù)組將數(shù)據(jù)添加到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\測試數(shù)據(jù).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

請問VB如何實現(xiàn)順序讀取文本文件中的數(shù)據(jù)，并將讀取到的數(shù)據(jù)保存在二維數(shù)組呢-1

2.jpg

請問VB如何實現(xiàn)順序讀取文本文件中的數(shù)據(jù)，并將讀取到的數(shù)據(jù)保存在二維數(shù)組呢-2

3.jpg

回復此樓

» 猜你喜歡

336求調(diào)劑已經(jīng)有3人回復
286求調(diào)劑已經(jīng)有3人回復
一志愿華中科技大學071000，求調(diào)劑已經(jīng)有3人回復
279分求調(diào)劑一志愿211 已經(jīng)有14人回復
332求調(diào)劑已經(jīng)有3人回復
0856材料專碩353求調(diào)劑已經(jīng)有3人回復
材料學學碩080502 337求調(diào)劑-一志愿華中科技大學已經(jīng)有5人回復
085601調(diào)劑 358分已經(jīng)有4人回復
0856 271求調(diào)劑已經(jīng)有3人回復
能源材料化學課題組招收碩士研究生8-10名已經(jīng)有15人回復

» 本主題相關價值貼推薦，對您同樣有幫助:

matlab讀取excel多個sheet數(shù)據(jù)，處理并重新保存，高價求教高人已經(jīng)有12人回復
jade 6.5 中無法讀取已保存的.sav文件已經(jīng)有4人回復
VB文件讀取的問題�。。〖� 已經(jīng)有13人回復
【求助】CListCtrl列表框中數(shù)據(jù)保存，讀取問題？（樓主取消）已經(jīng)有5人回復
【求助】vb.net的DataGridView如何編輯后保存到Access數(shù)據(jù)庫中？已經(jīng)有7人回復
【求助】VB如何讀取txt文件~~ 已經(jīng)有12人回復

海納百川，有容乃大

1樓 2014-09-29 14:31:44

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

deephill

鐵桿木蟲 (職業(yè)作家)

應助: 59 (初中生)
金幣: 5262.3
散金: 100
紅花: 16
帖子: 4425
在線: 425小時
蟲號: 305318
注冊: 2006-12-09
性別: GG
專業(yè): 微量元素地球化學

【答案】應助回帖

★
jjdg: 金幣+1, 感謝參與 2014-10-04 14:05:31

我非常好奇，樓主的程序居然能讀進去成為數(shù)組。我以前覺得讀進去的文本文字內(nèi)容沒有分段，怎么能成為數(shù)組，我就試了一下。我先驗證了一下是否真的生產(chǎn)了完整的數(shù)組，實現(xiàn)了轉(zhuǎn)換。
加了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
檢驗了一下，能出結果，說明樓主的文本到數(shù)組的轉(zhuǎn)換是沒有問題的。
我也不能在MSHFlexGrid1 中顯示。我看了樓主的截圖以后知道了問題所在。

需要用這個，就可以了。
Private Sub Form_Load()
MSHFlexGrid1.Rows = 10 ' 指定表格的總行數(shù)
MSHFlexGrid1.Cols = 4  '指定表格的總列數(shù)
End Sub
=====================

vb的人氣太那個那個了，所以來湊個熱鬧。

贊一下

回復此樓

2樓2014-10-03 20:41:09

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

deephill

鐵桿木蟲 (職業(yè)作家)

應助: 59 (初中生)
金幣: 5262.3
散金: 100
紅花: 16
帖子: 4425
在線: 425小時
蟲號: 305318
注冊: 2006-12-09
性別: GG
專業(yè): 微量元素地球化學

【答案】應助回帖

★
jjdg: 金幣+1, 感謝參與 2014-10-04 14:05:48

Text1.Text 的屬性不要忘記手動預設 Text1.MultiLine的屬性為 True。

贊一下

回復此樓

3樓2014-10-03 20:44:08

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

阿什利揚

鐵桿木蟲 (知名作家)

應助: 19 (小學生)
金幣: 8189
散金: 151
紅花: 50
帖子: 6421
在線: 1034.7小時
蟲號: 3134031
注冊: 2014-04-13
性別: GG
專業(yè): 中國通史

引用回帖:

2樓: Originally posted by deephill at 2014-10-03 20:41:09
我非常好奇，樓主的程序居然能讀進去成為數(shù)組。我以前覺得讀進去的文本文字內(nèi)容沒有分段，怎么能成為數(shù)組，我就試了一下。我先驗證了一下是否真的生產(chǎn)了完整的數(shù)組，實現(xiàn)了轉(zhuǎn)換。
加了textbox用了這個語句
Te ...

這個問題前幾天已經(jīng)解決，當時的錯誤顯示基本上一直都是“下標越界”，后來我也是把控件的行列數(shù)改變之后就好了。VB相對于其他的語言好理解些，但是功能好像不太強大，用的人似乎也越來越少了，因此每每遇到問題都不方便求助，謝謝你的幫忙了

贊一下

回復此樓

海納百川，有容乃大

4樓2014-10-03 20:44:50

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

deephill

鐵桿木蟲 (職業(yè)作家)

應助: 59 (初中生)
金幣: 5262.3
散金: 100
紅花: 16
帖子: 4425
在線: 425小時
蟲號: 305318
注冊: 2006-12-09
性別: GG
專業(yè): 微量元素地球化學

確實vb的人越來越少，不過現(xiàn)在vb出新版本了，不過我沒有跟上。
個人覺得vb很適合我們這些用vb解決一些小問題的非計算機專業(yè)的人員。
希望以后多交流!

贊一下

回復此樓

5樓2014-10-07 12:03:54

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

阿什利揚

鐵桿木蟲 (知名作家)

引用回帖:

5樓: Originally posted by deephill at 2014-10-07 12:03:54
確實vb的人越來越少，不過現(xiàn)在vb出新版本了，不過我沒有跟上。
個人覺得vb很適合我們這些用vb解決一些小問題的非計算機專業(yè)的人員。
希望以后多交流!

6樓2014-10-07 12:05:21

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

york1996

新蟲 (初入文壇)

應助: 0 (幼兒園)
帖子: 3
在線: 27分鐘
蟲號: 4462753
注冊: 2016-03-03

【答案】應助回帖

Open CommonDialog1.filename For Binary As #1
DoEvents
hang = Split(Input(LOF(1), 1), vbCrLf)                                     'input(lof(1),1)是文件全部內(nèi)容
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))                                     '二維數(shù)組賦值完畢


      Next
Next這樣才能讀到二維數(shù)組

贊一下

回復此樓

7樓2016-03-03 20:12:44

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

相關版塊跳轉(zhuǎn) 我要訂閱樓主阿什利揚的主題更新

返回列表

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 085601調(diào)劑 358分 +3	zzzzggh 2026-03-20	4/200	2026-03-21 10:21 by luoyongfeng
[考研] 一志愿重慶大學085700資源與環(huán)境總分308求調(diào)劑 +6	墨墨漠 2026-03-20	6/300	2026-03-21 09:23 by 天青等煙雨
[考研] 一志愿天津大學化學工藝專業(yè)（081702）315分求調(diào)劑 +12	yangfz 2026-03-17	12/600	2026-03-21 03:30 by JourneyLucky
[考研] 一志愿華中科技大學，080502，354分求調(diào)劑 +5	守候夕陽CF 2026-03-18	5/250	2026-03-21 01:06 by JourneyLucky
[考研] 22408 344分求調(diào)劑一志愿華電計算機技術 +4	solanXXX 2026-03-20	4/200	2026-03-20 23:49 by alg094825
[考研] 323求調(diào)劑 +3	洼小桶 2026-03-18	3/150	2026-03-20 22:54 by JourneyLucky
[考研] 324求調(diào)劑 +5	lucky呀呀呀鴨 2026-03-20	5/250	2026-03-20 22:30 by 促天成
[考研] 一志愿西南交通專碩材料355 本科雙非求調(diào)劑 +5	西南交通專材355 2026-03-19	5/250	2026-03-20 21:10 by JourneyLucky
[考研] 289求調(diào)劑 +6	懷瑾握瑜l 2026-03-20	6/300	2026-03-20 20:30 by 學員8dgXkO
[考研] 0703化學調(diào)劑，六級已過，有科研經(jīng)歷 +13	曦熙兮 2026-03-15	13/650	2026-03-20 19:35 by Dream007008
[考研] 261求B區(qū)調(diào)劑，科研經(jīng)歷豐富 +3	牛奶很忙 2026-03-20	4/200	2026-03-20 19:34 by JourneyLucky
[考研] 工科材料085601 279求調(diào)劑 +7	困于星晨 2026-03-17	9/450	2026-03-20 17:38 by 無懈可擊111
[考研] 0856調(diào)劑，是學校就去 +8	sllhht 2026-03-19	9/450	2026-03-20 14:25 by 無懈可擊111
[考研] 0703化學調(diào)劑 +5	pupcoco 2026-03-17	8/400	2026-03-19 13:58 by houyaoxu
[考研] 材料專碩306英一數(shù)二 +10	z1z2z3879 2026-03-16	13/650	2026-03-18 14:20 by 007_lilei
[考研] 293求調(diào)劑 +11	zjl的號 2026-03-16	16/800	2026-03-18 08:10 by zhukairuo
[考研] 301求調(diào)劑 +4	A_JiXing 2026-03-16	4/200	2026-03-17 17:32 by ruiyingmiao
[考博] 26申博 +4	八6八68 2026-03-16	4/200	2026-03-17 13:00 by 輕松不少隨
[考研] 0703化學調(diào)劑 290分有科研經(jīng)歷，論文在投 +7	膩膩gk 2026-03-14	7/350	2026-03-16 10:12 by houyaoxu
[考研] 326求調(diào)劑 +3	mlpqaz03 2026-03-15	3/150	2026-03-16 07:33 by Iveryant

24小時熱門版塊排行榜

[求助] 請問VB如何實現(xiàn)順序讀取文本文件中的數(shù)據(jù)，并將讀取到的數(shù)據(jù)保存在二維數(shù)組呢 已有2人參與

» 猜你喜歡

» 本主題相關價值貼推薦，對您同樣有幫助:

【答案】應助回帖

【答案】應助回帖

【答案】應助回帖

[求助] 請問VB如何實現(xiàn)順序讀取文本文件中的數(shù)據(jù)，并將讀取到的數(shù)據(jù)保存在二維數(shù)組呢已有2人參與

» 本主題相關價值貼推薦，對您同樣有幫助: