Private Sub cmdLaden_Click()
  Dim No As Integer, sInput As String
  No = FreeFile
  Open "C:\MeineDatei.txt" For Binary As #No
  sInput = Space(LOF(No))
  Get #No,, sInput
  Close #No
  txtVorlage.Text = sInput
End Sub

Private Sub cmdErsetzen_Click()
  Dim No As Integer, sOutput As String
  sOutput = txtVorlage.Text
  sOutput = Replace(sOutput, "%name%", txtName.Text)
  sOutput = Replace(sOutput, "%date%", txtDate.Text)
  ' ...
  ' in die Datei speichern
  No = FreeFile
  Open "C:\MeineAusgabe.txt" For Output as #No
  Print #No, sOutput
  Close #No
End Sub

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.