<font color=green>' Trainer neu schreiben</font>
  Dim F As Integer
  Dim N As Integer
  Dim sLine As String
  Dim sFile As String
  Dim sFile1 As String
  Dim sVerein As String
  Dim sTrainer As String
 
  <font color=green>' Hier stehen alle Infos drin</font>
  sFile = App.Path & "Test.txt"
 
  <font color=green>' nur temporär</font>
  sFile1 = App.Path & "Test.tmp"
 
  <font color=green>' Gesuchter Verein</font>
  sVerein = "Bayer Leverkusen"
 
  <font color=green>' Neuer Trainer</font>
  sTrainer = txtTrainer.Text
 
  <font color=green>' Originaldatei zeilenweise einlesen
  ' und zeilenweise in temporäre Datei schreiben,
  ' wobei dann automatisch der neue Trainer eines
  ' Vereins gespeichert wird</font>
  F = FreeFile: Open sFile For Input As #F
  N = FreeFile: Open sFile1 For Output As #N
  While Not EOF(F)
    Line Input #F, sLine
    Print #N, sLine
 
    If Left$(sLine, Len(sVerein) + 1) = sVerein + ":" Then
      <font color=green>' Verein gefunden</font>
      Line Input #F, sLine    <font color=green>' Allgemein</font>
      Print #N, sLine
 
      Line Input #F, sLine    <font color=green>' Manager</font>
      Print #N, sLine
 
      Line Input #F, sLine    <font color=green>' Trainer</font>
      sLine = "Trainer ; " & sTrainer & "!"
      Print #N, sLine
    End If
  Wend
  Close #F: Close #N
 
  <font color=green>' Originaldatei löschen</font>
  Kill sFile
 
  <font color=green>' temporäre Datei in Originaldatei umbenennen</font>
  Name sFile1 As sFile