台灣最大程式設計社群網站
線上人數
1018
 
會員總數:238609
討論主題:185184
歡迎您免費加入會員
討論區列表 >> VB6 >> vb6讀取多個文字檔
[ 變換順序 ]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
vb6讀取多個文字檔
價值 : 500 QP  點閱數:2141 回應數:4

樓主

Nice
門外漢
0 8
513 11
發送站內信

您好:
我有一個讀入TXT檔程式,讀單個TXT值OK,目前我想修改成可讀入多個TXT檔並存入同一個陣列(bl_data(i,j))中
請問要如何改下面程式?非常感謝~~~急

CommonDialog1.FileName = ""
CommonDialog1.Filter = "*.txt" & "|" & "*.txt"
CommonDialog1.ShowOpen
FileStr = CommonDialog1.FileName
If FileStr = "" Then Exit Sub
FNum = FreeFile
Open FileStr For Input As #1

thefilename = CommonDialog1.FileName '記錄檔名
Label15.Caption = thefilename
While Not EOF(1)
For j = 1 To n1
For i = 1 To m1
Input #1, data1
b_data(i, j) = data1
Next i
Next j
Wend

'MsgBox b_data(50, 50)
MsgBox "讀檔完成!"
Close #1


搜尋相關Tags的文章: [ vb6讀取多個文字檔存入同一陣列中 ] ,
本篇文章發表於2015-05-25 16:01
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
1樓
回應

香帥
檢舉此回應
程式碼如下請參考
本篇文章回覆於2015-05-25 23:52
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
回應

香帥
檢舉此回應
更正以上第17行為

取消不選時,才不會產生錯誤
本篇文章回覆於2015-05-26 00:19
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
3樓
作者回應

Nice
檢舉此回應
請問依您程式的寫法,需要多次選取.txt檔案嗎?
目前測試只選取一個檔案,但陣列數讀取有誤
如:設定一個5(m)*4(n)陣列
msgbox bl_data(7,7) 卻有值 "2"
本篇文章回覆於2015-05-28 10:51
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
4樓
回應

香帥
檢舉此回應
以上只是配合您的程式碼,老實說那種寫法不是很好,那m,n要預知您讀取多個檔案是固定型的m,n,才不會出錯
若會出錯,代表檔案資料與mn不相符,
只是不知您的目的,不然的話要每行讀取,再用split分解每行的欄位值,反而會更有彈性。
例如
http://www.blueshop.com.tw/board/show.asp?subcde=BRD20121113144534X82&fumcde=BRD20121113144534X82
我ㄧ樓的程式碼,每行的欄位不一樣,都可以很有彈性的處理。
本篇文章回覆於2015-05-28 13:02
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
[ 變換順序 ]   
1

回覆
如要回應,請先登入.