Re: [VB6 ] TXT內資料比對並列印出來

看板Visual_Basic作者ClubT (風)時間10年前 (2014/12/01 14:09)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串2/2 (看更多)

※ 引述《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://www.ptt.cc/bbs/Visual_Basic/M.1417414167.A.051.html