Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Datenimport aus .txt Datei ab Zeile 5

Forumthread: Datenimport aus .txt Datei ab Zeile 5

Datenimport aus .txt Datei ab Zeile 5
18.07.2007 13:36:00
Thias
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

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datenimport aus .txt Datei ab Zeile 5
18.07.2007 14:32:42
selli
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

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige