台灣最大程式設計社群網站
線上人數
1466
 
會員總數:242268
討論主題:187358
歡迎您免費加入會員
討論區列表 >> VB6 >> listbox資料數太多無法完全存檔在.txt檔
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
listbox資料數太多無法完全存檔在.txt檔
價值 : 20 QP  點閱數:207 回應數:4

樓主

JJ
門外漢
0 8
126 11
發送站內信

各位大大好
我要把listbox的檔案存檔到.txt檔, 如下的程式碼
但如果listbox的資料數太多,存檔時會無法所有的資料都存檔,請問如果修改程式碼讓所有的資料都存檔呢?

Close #1
Close #f
On Error GoTo ErrHandler

With CmDialog1
.CancelError = True
.DialogTitle = "開啟檔案"
.Filter = "txt File (*.*)|*.txt;|txt files(*.txt)|*.txt"
.ShowOpen
f = FreeFile
Open .FileName For Output As #f
End With

For II = 0 To List1.ListCount - 1

Print #1, List1.List(II)


Next


Exit Sub

Close #1
Close #f
End

搜尋相關Tags的文章: [ vb6 listbox 存檔 ] ,
本篇文章發表於2018-02-09 10:38
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
1樓
回應

Ader Chen
檢舉此回應

是不是找錯 handle 了? 試試看:
將 Print #1, List1.List(II)
改為 Print #f, List1.List(II)
本篇文章回覆於2018-02-09 12:18
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
作者回應

JJ
檢舉此回應
Ader Chen 不好意思是我打錯,改為 Print #f, List1.List(II) →這個是正確,但我的問題是無法儲檔超過32767筆的資料
本篇文章回覆於2018-02-09 15:29
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
3樓
回應

P陳
檢舉此回應
可能是 II 的問題
II 請用 LONG 試一下
本篇文章回覆於2018-02-09 15:55
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
4樓
最有價值解答

Ader Chen
檢舉此回應

雖然可以加入超過 32767 個項目 (超過 32767 後 .ListCount 會變負數, 仍可加入項目),
但是 .List() 不能用超過 32767 的索引取值.
參考: https://tw.answers.yahoo.com/question/index?qid=20101221000015KK03745
本篇文章回覆於2018-02-09 16:35
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

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