Zitat:

%4711 N1 N2 N3 N4%4712 N5 N6 %4712 N7 N8 N9 N10%4713 N11 %4713 N12 N13 N14 N15 G99

Zitat:

%4711 N1 N2 N3 N7 N8 N9 N12 N13 N14 N15 G99 N11 N5 N6

For Each line As String In File.ReadLines(Dummy)
 
' Nur wenn Prozentzeichen da ist
 
If line.Contains("%") And Not line.Contains("N") And Not zaehler = 1 Then
'Zeilen speichern
Schreiben = 1
End If
 
'Aufhören Zeilen zu speichern, wenn %-Zeichen kommt !
If line.Contains("%") And line.Contains("N") And Not zaehler = 1 Then
'Nicht mehr speichern
Schreiben = 0
End If
 
If Schreiben = 1 Then
'Speichern der Zeilen je nach Variable             
End If
 
zaehler = zaehler + 1
Next