Datenimport aus .txt Datei ab Zeile 5

Hallo Excel-Experten,
mit den untenstehenden Code-Zeilen importiere ich eine große Menge an Zahlen aus einer .txt Datei in ein Array.
Nun haben sich die Rohdaten in der einzulesenden Rohdaten.txt derart geändert, dass die zu importierenden Daten nicht mehr in Zeile 1 beginnen, sondern in Zeile 5. In den Zeilen 1 bis 4 stehen jetzt zusätzliche Informationen, die mich jedoch nicht interessieren.
Meine erste Idee war, dass ich beim get-Befehl einen Wert für [Satznummer] eintrage um "irgendwie" die ersten 4 Zeilen zu überspringen.
Auszug aus der Excel-Hilfe: Wert vom Typ Variant (Long). Datensatznummer (Dateien im Modus Random) oder Byte-Nummer (Dateien im Modus Binary), an der der Lesevorgang beginnt.
Meine zweite Idee war, dass ich die ersten 4 Zeilen "irgendwie" mit einer Art "Backspace" Funktion lösche und die Rohdaten, die in Zeile 5 beginnen, damit in Zeile 1 verschiebe.
Bei beiden Ideen habe ich ein Problem mit der Umsetzung. Vielleicht kann mir einer der Experten etwas Hilfestellung geben und mir die Codezeilen ergänzen?
MfG,
Thias
-------------------------------------
Open sFile For Binary As #1
sText = Space(LOF(1))
Get #1, , sText
arrInput = Split(sText, vbCrLf)
Close #1

Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

ein code aus dem forum:


Sub Read_Extern_File()
'Hilfsvariable für Anzahl Datensätze
On Error Resume Next
Dim Text1 As String
'Variablen für den Array nötig
Dim TxtLines As Long, i As Long
Dim TextArr As Variant
Dim ReadFile As String
'Dialog öffnen auf Basis von *.txt, *.log oder *.dat Files
ReadFile = Application.GetOpenFilename("DAT Files (*.txt; *.log; *.rtf),")
'Schliessen einer geöffneten Datei
Close #1
'1. Öffnen der Datei
'Den Namen und Pfad bitte anpassen
Open ReadFile For Input As #1
'Die anzahl ist nötig um die Grösse des Arrays zu deklarieren
'Zähler auf 0 setzen
TxtLines = 0
Do While Not EOF(1) ' Schleife bis Dateiende.
Input #1, Text1 ' Hilfsvariable zum einlesen verwenden
'         Zähler hochzählen
TxtLines = TxtLines + 1
Loop
'Schliessen der Datei weil Dateiende erreicht wurde
Close #1
'Erneutes Öffnen um zum Dateianfang zu kommen
Open ReadFile For Input As #1 ' Datei zum Einlesen öffnen.
'Array neu auf die Anzahl der Linien initialisieren
ReDim TextArr(TxtLines)
'Einlesen der Dateien in das Array
For i = 1 To TxtLines
Input #1, TextArr(i)
Next i
Close #1
'Daten in aktuelles Sheet schreiben
For i = 1 To TxtLines
Cells(i, 1) = TextArr(i)
Next i
End Sub

gruß selli

Beliebteste Forumthreads (12 Monate)

Datenimport aus .txt Datei ab Zeile 5

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread