如何实现运行程序修改文本文件并打印，但是退出程序后文本文件仍旧保持原样不变。

Question

Dim allString As StringPrivate Sub Command2_Click()
     allString = Replace(allString, "$MODEL", Text11.Text)
     allString = Replace(allString, "$CPU", Text1.Text)
     allString = Replace(allString, "$LCD", Text5.Text)
     allString = Replace(allString, "$ODD", Text3.Text)
     allString = Replace(allString, "$MEM", Text6.Text)
     allString = Replace(allString, "$HDD", Text9.Text)
     allString = Replace(allString, "$MDC", Text4.Text)
     allString = Replace(allString, "$WLAN", Text10.Text)
     allString = Replace(allString, "$OS", Text8.Text)
     allString = Replace(allString, "$VIDEO", Text2.Text)
     allString = Replace(allString, "$LAN", Text7.Text)
     allString = Replace(allString, "$TX", Text12.Text)
     allString = Replace(allString, "$TY", Text13.Text)
     allString = Replace(allString, "$QTY", Text13.Text)
     Open "send\lg_con.txt" For Output As #1
     Print #1, allString
     Close #1End SubPrivate Sub Form_Load()
    Open "send\lg_con.txt" For Input As #1
    allString = Input(LOF(1), #1) '整个文件读到一个字符串
    Close #1
End Sub
此程序已实现点击按钮修改文本文件并保存，但是我不需要保存，我要原来的文本文件作为模版，请问如何实现？

Answer 1

每次copy一个模版，进行打印修改，再删除就行了