Re: [VB6 ]將下拉式選單內容，自動對應於某txt檔
※ 引述《needhope (Let's move out)》之銘言：
: ※ 引述《terance (修)》之銘言：
: : 1. 表單開啟，讀取txt檔
: 書上剛好有寫
: Open pathname For mode [Access access] [lock] As [#]filenumber
: pathname參數
: 檔案名稱或是完整路徑資訊
: mode參數
: Append：資料附加在檔尾
只可附加資料
: Binary：二進位檔案存取
讀寫皆可
: Input：讀取檔案的內容，通常用於文字檔存取
唯讀
: Output：寫入檔案的內容，通常用於文字檔寫入
唯寫
: Random：隨機檔存取，預設值
讀寫皆可，檔案大小≠資料長度
: Access參數
: Read：唯讀
: Write：唯寫?!
唯寫
: ReadWriter：可讀寫
多打了一個r喔:Q
: Lock參數
: Shared：共用
其它程序可以正常讀寫
: LockRead：讀取鎖定
其它程序無法讀取
: LockWrite：寫入鎖定
其它程序無法寫入
: LockReadWrite：鎖定二者
其它程序無法讀取亦無法寫入
: FileNumber參數
: 必要參數，可使用FreeFile()取得
一般來說，設1即可，
除非你有同時開數個檔案(不確定數量)才需要使用FreeFile()取得可使用的檔案代碼。
: Len參數
: 選用..
: -------------
: ex:
: num = FreeFile() '取得檔案通道編號
: Open "C:\test.txt" For Input Access Read As #num '開檔
: Dim vtDatas, tmp
: Do Until EOF(num) 'EOF()檢查檔案結尾?!
如果檔案讀寫指標到了檔尾的時候就離開迴圈
: Line Input #num, tmp '逐行讀入 -> vtDatas
修改一下，資料要放在暫存區中，再合併，不然永遠都是顯示最後一行的資料
vtDatas = vtDatas & tmp
: Loop
: Close #num '關閉檔案通道
#num 可以省略，代表關閉所有開啟中的檔案
: Text1.Text = vtDatas
: : 2. 讓combobox的內容＝txt內容
: : 至於怎麼判斷多少內容為一個item就再說吧
不知道發問者是要問什麼？
是指(類似)有逗點分隔的資料檔嗎？
vtDatas = Split(vtDatas, ",") '逗點分隔，把資料分割成陣列
combo1.AddItem vtDatas(index) '新增陣列某一元素至清單中
: 這我就不太懂了..
: 我猜可以在 Do While...Loop 裏修改
: 將讀入的文字指定為combobox的item
: : 但是這兩個，新手教學的書都沒有提到
: : 不知道有沒有什麼好功能可以用呢
: 希望對你有幫助
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半點癡情遺留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多悽悽慘慘的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 210.58.156.43
討論串 (同標題文章)
完整討論串 (本文為第 4 之 9 篇)：
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
