Hi

Ich habe folgendes Problem ein geöffnetes Textfile soll eine neue Zeile erhalten dazu habe ich diese Funktion zum Durchlaufen gebaut.

Dim einfüg As String

Dim A As String

Public Sub Einfügen(einfüg)

Open Filepath For Input As #1
Do Until EOF(1)
 Line Input #1, A
  If InStr(A, "einfügpunkt") > 0 Then  'Hier muss der Punkt in dem FIle gesucht werden nachem das Signal eingefügt werden soll
  'HIER FEHLT DER BEFEHL UM EINE ZEILE IN DEN TEXT ZU INTEGRIEREN
  End If
 

Loop
Close #1
End Sub

Mir fehlt nur lediglich der befehl um einfüg nach der Zeile im Textdokument zu Integrieren. Und der Befehlt um die Rausgefilterte Zeile zu löschen

Vielen Dank