如何将文本框和文本文件中的某个字符帮定，修改文本框中的内容即可修改文本文件中的内容？

Question

假设文本文件1.txt有如下内容：
^FO410,110^B3N,N,80,Y,N^FR^FD$MODEL^FS
^FO221,472^A0N,60,100^CI13^FR^FD$MODEL^FS
^FO221,622^A0N,50,45^CI13^FR^FDFeatures:^FS
^FO231,692^A0N,40,45^CI13^FR^FD* CPU : $CPU ^FS我想实现$MODEL和程序中的一个文本框1绑定，$CPU和文本框2绑定。在文本框1输入 LS50-UE5Y,文本框2输入 Celeron 1.3GHz 后点击确定，即可改变文本为：
^FO410,110^B3N,N,80,Y,N^FR^FDLS50-UE5Y^FS
^FO221,472^A0N,60,100^CI13^FR^FDLS50-UE5Y^FS
^FO221,622^A0N,50,45^CI13^FR^FDFeatures:^FS
^FO231,692^A0N,40,45^CI13^FR^FD* CPU : Celeron 1.3GHz^FS
并保存。
不知用VB如何实现?

Answer 1

我的意思是把1.txt中的$model和$cpu作为两个变量和两个文本框绑定。在文本框中输入信息点击确定后即可替代$model和$cpu保存到1.txt中。

Answer 2

VB可以实现删除、替换、插入内容到文本中某一行文本行的列值:)
         VB类之文本处理

Answer 3

Dim allString As String    Open "1.txt" For Input As #1
    allString = Input(LOF(1), #1) '整个文件读到一个字符串
    Close #1    allString = Replace(s, "$MODEL", 文本框1.text)
    allString = Replace(s, "$CPU",   文本框2.text)    Open "1.txt" For Output As #1
    Print #1, allString
    Close #1
    MsgBox "转换完成"

Answer 4

失误，应该是Dim allString As String    Open "1.txt" For Input As #1
    allString = Input(LOF(1), #1) '整个文件读到一个字符串
    Close #1    allString = Replace(allString, "$MODEL", 文本框1.text)
    allString = Replace(allString, "$CPU",   文本框2.text)    Open "1.txt" For Output As #1
    Print #1, allString
    Close #1
    MsgBox "转换完成"