In einer Datei Temp.txt steht grundsätzlich in der 19. Zeile ein
Materialtyp, den ich über VBA auslesen möchte.
Dazu habe ich das folgende Proggi:
Sub ZeileNeunzehnEintragen()
'19. Zeile auslesen (Material)
Dim strText As String
Dim intFile As Integer, intZeile As Integer
intFile = FreeFile
Open "C:\Temp.txt" For Input Access Read Lock Read As #intFile
For intZeile = 1 To 19
Input #intFile, intZeile, strText
Next
Close #intFile
Cells(13, 1).Value = "Material.......:"
Cells(13, 2).Value = strText
End Sub
Nun aber folgendes Problem:
In der Datei Temp.txt steht z. B. in Zeile 14 "Farbe, grün". Wenn jetzt
die Schleife sich auf den Weg zur 19. Zeile macht wird das Komma als Zeilentrennung gewertet, d. h. in Zeile 14 ermittelt die Schleife den Wert "Farbe" und für die Zeile 15 den Wert "grün".
Dadurch glaubt die Schleife am Ende die 19. Zeile einzulesen,
tatsächlich ist es aber erst Zeile 18.
Ich könnte ja die Schleife auf "For intZeile = 1 To 20" erweitern. Das
hilft aber nicht wirklich, da nicht immer in Zeile 14 ein Komma steht.
Wie kann ich also erreichen, daß die Schleife die Zeile 14 als komplette
Zeile zählt?
Bin für jede Hilfe dankbar.
Gruß, Maik