※ 引述《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 参数
这些都会就写得出来囉 ^.<