※ 引述《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/cn.aspx?n=bbs/Visual_Basic/M.1417414167.A.051.html