mein Code liest jeweils eine Zeile aus einer Text Datei aus.
Sobald in dieser Zeile aber nur NUMMERN (0-9) OHNE Buchstaben vorkommen trennt er die Zeile nach jedem Leerzeichen hinter einer Nummer.
Hier mal als Bsp.
A 3 2 4 5 6
Ergibt: A 3 2 4 5 6
3 2 4 5 6
Ergibt:
3
2
4
5
6
Der CODE ist folgendermaßen:
Open .FoundFiles(L) For Input As #1 ' Datei zum Einlesen öffnen.
Do Until EOF(1)
Input #1, dateidaten
wenn buchstaben dabei sind steht in "dateidaten" die komplette zeile
wenn nicht dann nur eine Zahl
und beim nächsten Loop dann die nächste zahl aus der zeile.
Weiss da jemand eine Lösung, ohne das Textfile zu bearbeiten?
VIELEN DANK FÜR ANTWORTEN !