版塊導(dǎo)航: 正在加載中...

登錄注冊

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

24小時熱門版塊排行榜

返回列表

阿什利揚

鐵桿木蟲 (知名作家)

應(yīng)助: 19 (小學(xué)生)
金幣: 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

回復(fù)此樓

» 猜你喜歡

278求調(diào)劑已經(jīng)有9人回復(fù)
297求調(diào)劑已經(jīng)有12人回復(fù)
0703化學(xué)297求調(diào)劑已經(jīng)有3人回復(fù)
材料學(xué)碩301分求調(diào)劑已經(jīng)有6人回復(fù)
280求調(diào)劑已經(jīng)有11人回復(fù)
311求調(diào)劑已經(jīng)有3人回復(fù)
求調(diào)劑已經(jīng)有3人回復(fù)
313求調(diào)劑已經(jīng)有4人回復(fù)
317求調(diào)劑已經(jīng)有15人回復(fù)
307求調(diào)劑已經(jīng)有3人回復(fù)

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

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

海納百川，有容乃大

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

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

deephill

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

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

【答案】應(yīng)助回帖

★
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
檢驗了一下，能出結(jié)果，說明樓主的文本到數(shù)組的轉(zhuǎn)換是沒有問題的。
我也不能在MSHFlexGrid1 中顯示。我看了樓主的截圖以后知道了問題所在。

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

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

贊一下

回復(fù)此樓

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

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

deephill

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

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

【答案】應(yīng)助回帖

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

Text1.Text 的屬性不要忘記手動預(yù)設(shè) Text1.MultiLine的屬性為 True。

贊一下

回復(fù)此樓

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

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

阿什利揚

鐵桿木蟲 (知名作家)

應(yīng)助: 19 (小學(xué)生)
金幣: 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)解決，當(dāng)時的錯誤顯示基本上一直都是“下標越界”，后來我也是把控件的行列數(shù)改變之后就好了。VB相對于其他的語言好理解些，但是功能好像不太強大，用的人似乎也越來越少了，因此每每遇到問題都不方便求助，謝謝你的幫忙了

贊一下

回復(fù)此樓

海納百川，有容乃大

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

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

deephill

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

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

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

贊一下

回復(fù)此樓

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

已閱回復(fù)此樓關(guān)注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

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

york1996

新蟲 (初入文壇)

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

【答案】應(yīng)助回帖

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ù)組

贊一下

回復(fù)此樓

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

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

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

返回列表

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

[考研] 286分人工智能專業(yè)請求調(diào)劑愿意跨考！ +4	lemonzzn 2026-03-17	7/350	2026-03-21 16:09 by lemonzzn
[考研] 求助 +4	夢里的無言 2026-03-21	5/250	2026-03-21 15:53 by ColorlessPI
[考研] 0805材料320求調(diào)劑 +3	深海物語 2026-03-20	3/150	2026-03-21 15:46 by 無際的草原
[考研] 316求調(diào)劑 +6	梁茜雯 2026-03-19	6/300	2026-03-21 06:32 by Ecowxq666！
[考研] 機械專碩299求調(diào)劑至材料 +3	kkcoco25 2026-03-16	4/200	2026-03-21 03:52 by JourneyLucky
[考研] 303求調(diào)劑 +5	睿08 2026-03-17	7/350	2026-03-21 03:11 by JourneyLucky
[考研] 328求調(diào)劑，英語六級551，有科研經(jīng)歷 +4	生物工程調(diào)劑 2026-03-17	8/400	2026-03-21 02:12 by JourneyLucky
[考研] 材料 336 求調(diào)劑 +3	An@. 2026-03-18	4/200	2026-03-21 01:39 by JourneyLucky
[考研] 一志愿武理材料305分求調(diào)劑 +6	想上岸的鯉魚 2026-03-18	7/350	2026-03-21 01:03 by JourneyLucky
[考研] 材料專業(yè)求調(diào)劑 +6	hanamiko 2026-03-18	6/300	2026-03-21 00:24 by JourneyLucky
[考研] 求調(diào)劑，一志愿:南京航空航天大學(xué)大學(xué) ，080500材料科學(xué)與工程學(xué)碩，總分289分 +4	@taotao 2026-03-19	4/200	2026-03-20 22:14 by JourneyLucky
[考研] 0703化學(xué)調(diào)劑 +4	18889395102 2026-03-18	4/200	2026-03-19 16:13 by 30660438
[考研] 328求調(diào)劑，英語六級551，有科研經(jīng)歷 +4	生物工程調(diào)劑 2026-03-16	12/600	2026-03-19 11:10 by 生物工程調(diào)劑
[考研] 344求調(diào)劑 +6	knight344 2026-03-16	7/350	2026-03-18 20:13 by walc
[考研] 【同濟軟件】軟件（085405）考研求調(diào)劑 +3	2026eternal 2026-03-18	3/150	2026-03-18 19:09 by 搏擊518
[考研] 085601專碩，總分342求調(diào)劑，地區(qū)不限 +5	share_joy 2026-03-16	5/250	2026-03-18 14:48 by haxia
[考研] 0854，計算機類招收調(diào)劑 +3	胡辣湯放糖 2026-03-15	6/300	2026-03-18 12:09 by 上岸上岸……..
[考研] 085601求調(diào)劑 +4	Du.11 2026-03-16	4/200	2026-03-17 17:08 by ruiyingmiao
[考研] 一志愿南京大學(xué)，080500材料科學(xué)與工程，調(diào)劑 +4	Jy? 2026-03-16	4/200	2026-03-17 11:02 by gaoqiong
[考研] 11408 一志愿西電，277分求調(diào)劑 +3	zhouzhen654 2026-03-16	3/150	2026-03-17 07:03 by laoshidan

24小時熱門版塊排行榜

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

» 猜你喜歡

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

【答案】應(yīng)助回帖

【答案】應(yīng)助回帖

【答案】應(yīng)助回帖

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

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