※ 引述《q741456963 (趴趴狗)》之銘言： : 1.TEXT內輸入號碼，外面有個TXT檔案內有資料，數字代表的物品。 : TXT檔案如下： : 123=手錶 : 456=香水 : 789=手機 : 110=香菸 : 900=照相機 S95 : 100=室內拖鞋 : ....等 : 例 : TEXT:123 LABEL1:手錶 再次輸入456 LABEL1:香水 開啟文字檔 將檔案內容讀到 tempStr變數中 Open "C:\檔案.txt" For Input As #1 tempStr = StrConv(InputB(LOF(1), #1), vbUnicode) Close #1 將字串用換行符號(vbCrLf)切成陣列arr arr()=Split(tempStr, vbCrLf) 最後再TEXT的Change事件中透過回圈+字串比對arr陣列就可以得到你要的結果 字串函數可參考我在本板7771這篇 : 2.TXT檔內有資料，但我打開時想寫入現在時間。 : 例 : 999 : 888 : 777 : 666 : 打開 : 999 : 888 : 777 : 666 : 2014/11/29 14:07 : 以上請大大幫幫忙，小弟還在學習中，感謝大大 將"要修改的部分"寫入文字檔: Append 只新增在最後 或是用 Output 全部修改 Open "C:\檔案.txt" For Append As #1 Print #1, "要修改的部分" Close #1 現在的時間可用 Date 參數 這些都會就寫得出來囉 ^.< -- 我的P2個板 自然就是美 傾聽‧自然之美 NB_COLSPRING 科技 Σ 冷 泉 港 >生命孕育地，海洋之心 ClubT [風] 有空可以來逛逛^_^ Blog: http://clubtblog.blogspot.tw --

※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 1.171.188.191 ※ 文章網址: http://webptt.com/m.aspx?n=bbs/Visual_Basic/M.1417414167.A.051.html