※ 引述《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 參數
這些都會就寫得出來囉 ^.<