※ 引述《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