 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 1521 | 回復: 6 | |||
| 當前只顯示滿足指定條件的回帖，點擊這里查看本話題的所有回帖 | |||
[求助]
請問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 2.jpg 3.jpg |
回復此樓» 猜你喜歡
【求調(diào)劑】新能源材料本科，一志愿211，初試321
已經(jīng)有3人回復
-
材料考研調(diào)劑
已經(jīng)有3人回復
-
材料調(diào)劑
已經(jīng)有12人回復
-
英一數(shù)一408，總分284，二戰(zhàn)真誠求調(diào)劑
已經(jīng)有14人回復
-
085410 一志愿211 22408分數(shù)359求調(diào)劑
已經(jīng)有4人回復
-
271求調(diào)劑
已經(jīng)有19人回復
-
385分 生物學（071000）求調(diào)劑
已經(jīng)有3人回復
-
一志愿安徽大學計算機科學與技術學碩，331分求調(diào)劑
已經(jīng)有3人回復
-
318求調(diào)劑，計算材料方向
已經(jīng)有8人回復
-
291求調(diào)劑
已經(jīng)有25人回復
» 本主題相關價值貼推薦，對您同樣有幫助:
- 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人回復
【答案】應助回帖
|
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
deephill
鐵桿木蟲 (職業(yè)作家)
- 應助: 59 (初中生)
- 金幣: 5262.3
- 散金: 100
- 紅花: 16
- 帖子: 4425
- 在線: 425小時
- 蟲號: 305318
- 注冊: 2006-12-09
- 性別: GG
- 專業(yè): 微量元素地球化學
【答案】應助回帖
★
jjdg: 金幣+1, 感謝參與 2014-10-04 14:05:31
jjdg: 金幣+1, 感謝參與 2014-10-04 14:05:31
|
我非常好奇，樓主的程序居然能讀進去成為數(shù)組。我以前覺得讀進去的文本文字內(nèi)容沒有分段，怎么能成為數(shù)組，我就試了一下。我先驗證了一下是否真的生產(chǎn)了完整的數(shù)組，實現(xià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ù)組的轉換是沒有問題的。 我也不能在MSHFlexGrid1 中顯示。我看了樓主的截圖以后知道了問題所在。 需要用這個，就可以了。 Private Sub Form_Load() MSHFlexGrid1.Rows = 10 ' 指定表格的總行數(shù) MSHFlexGrid1.Cols = 4 '指定表格的總列數(shù) End Sub ===================== vb的人氣太那個那個了，所以來湊個熱鬧。 |
2樓2014-10-03 20:41:09
deephill
鐵桿木蟲 (職業(yè)作家)
- 應助: 59 (初中生)
- 金幣: 5262.3
- 散金: 100
- 紅花: 16
- 帖子: 4425
- 在線: 425小時
- 蟲號: 305318
- 注冊: 2006-12-09
- 性別: GG
- 專業(yè): 微量元素地球化學
3樓2014-10-03 20:44:08
4樓2014-10-03 20:44:50
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 288求調(diào)劑 一志愿哈工大 材料與化工 +28 | 洛神哥哥 2026-03-31 | 28/1400 |
|
|---|---|---|---|---|
|
[考研] 環(huán)境工程297分求調(diào)劑一志愿杭高院 +10 | GENJIOW 2026-03-31 | 11/550 |
|
|
|
[考研] 26考研調(diào)劑 +3 | Wnz.20030617 2026-04-01 | 3/150 |
|
|
|
[考研] 生物學學碩，一志愿湖南大學，初試成績338 +8 | YYYYYNNNNN 2026-03-26 | 10/500 |
|
|
|
[論文投稿]
chinese chemical letters英文版投稿求助
 120+4
|
Yishengeryi 2026-03-30 | 5/250 |
|
|
|
[考研] 化學0703 調(diào)劑 306分 一志愿211 +12 | 26要上岸 2026-03-28 | 12/600 |
|
|
|
[考研] 333求調(diào)劑 +4 | 阿科逸 2026-03-31 | 4/200 |
|
|
|
[考研] 085701環(huán)境工程，267求調(diào)劑 +17 | minht 2026-03-26 | 17/850 |
|
|
|
[考研] 本2一志愿C9-333分，材料科學與工程，求調(diào)劑 +9 | 升升不降 2026-03-31 | 9/450 |
|
|
|
[考研] 生醫(yī)工0831調(diào)劑求推薦 +4 | 小熊睿睿_s 2026-03-27 | 6/300 |
|
|
|
[考研] 一志愿浙江大學工科動力工程370,數(shù)一121,專業(yè)課135，現(xiàn)在能去哪里 +3 | 080700調(diào)劑 2026-03-30 | 4/200 |
|
|
|
[考研] 286求調(diào)劑 +5 | 丟掉懶惰 2026-03-27 | 8/400 |
|
|
|
[考研] 085600，專業(yè)課化工原理，320分求調(diào)劑 +6 | 大饞小子 2026-03-29 | 6/300 |
|
|
|
[考研] 323分 食品與營養(yǎng)調(diào)劑 +3 | 嘿ooo 2026-03-31 | 3/150 |
|
|
|
[有機交流]
 甲基亞磺磺酸鈉和甲基磺酸酯反應機理
10+3
|
kaobao456 2026-03-29 | 4/200 |
|
|
|
[考研] 0703化學求調(diào)劑 +6 | 丹青奶蓋 2026-03-26 | 8/400 |
|
|
|
[考研] 327求調(diào)劑 +6 | 汲亦昊 2026-03-29 | 6/300 |
|
|
|
[考研] 340求調(diào)劑 +6 | Amber00 2026-03-26 | 6/300 |
|
|
|
[考研] 一志愿吉大071010，316分求調(diào)劑 +3 | xgbiknn 2026-03-27 | 3/150 |
|
|
|
[考研] 324求調(diào)劑 +5 | hanamiko 2026-03-26 | 5/250 |
|