Dim LineOfText As String
  URL = Pfad
 
      F = FreeFile
      Open URL For Input As #F
      Do Until EOF(F)
        Line Input #F, LineOfText
          i = 1
          TextWert = LineOfText
          ZeilenLänge = Len(TextWert)
          Do While i <> (ZeilenLänge + 1)
          SuchWert = Mid(TextWert, i, 1)
          If CStr(SuchWert) = "%" Then
            DerSucher = Mid(TextWert, i, 6)
             If CStr(DerSucher) = "%name%" Then
             Weitergabe = Weitergabe & ErsetzWert
             i = i + 6
             End If
          End If
          Weitergabe = Weitergabe & Mid(TextWert, i, 1)
 
          i = i + 1
          DoEvents
          Loop
              Loop
      Close #F

MfG Lord_Duke
a.k.a. Loki

Design is 4 your Life and not for the others

________________________________________________________________
Windows XP Prof. SP 2 @ 2X 3,45 GHz P4 D ( 830) // DDR2 1024 MB //
GeForce 6600 GT Silent Pipe // 500 GB HDD