作者ClubT (風)
看板Visual_Basic
標題Re: [VB6 ] TXT內資料比對並列印出來
時間Mon Dec 1 14:09:21 2014
※ 引述《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