Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 18:57:33
17.04.2024 16:56:58
Anzeige
Archiv - Navigation
928to932
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
928to932
928to932
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datei einlesen und beliebiges Zeichen als Line End

Datei einlesen und beliebiges Zeichen als Line End
20.11.2007 20:06:00
Paul
Hallo Leute.
Ich habe so gute Erfahrungen mit euch allen gemacht, dass ich es nicht lassen kann.
Deshalb mal wieder ein Hilferuf.
Ich habe eine Date welche von einem Datenlogger geschrieben wird. Diese Datei moechte, nein, muss ich in Excel rein bringen. Nur schade, dass der ganze Inhalt eigentlich BCD codiert ist und Excel den deshalb nicht einfach darstellen kann. Ich muss das Dingens sowieso unterteilen.
Weiterer Nachteil ist, dass die Datei nicht mit CR oder LF sondern, komisch, mit &H08 (Backspace) getrennt ist. Die Line Input Funktion liest also, bis der Buffer voll ist, auf jeden Fall viiiieeeel zu viel am Stueck.
Kennt jemand im Forum eine Rutine welche es mir ermoeglicht, eine sequentielle (Datensaetze sind nicht immer gleich lang) Datei bis zu einem beliebigen Zeichen einzuladen, dann diesen Input zu bearbeiten und weiter zu lesen bis zum naechsten dieser Zeichen?
Ganz konkret ist das Zeichen das ich als letztes im String haben will die &H08 was der Backspace entspricht.
Hihihi, zu meinen alten Basiczeiten konnte man mit dem Input Befehl jeweils einfach den naechsten Charakter einlesen und so selber Delimiter setzen.
Jetzt schon Danke fuer die Hilfe. Ich weiss, dass sie kommt.
Gruesse, Paul (Schaerer)

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei einlesen und beliebiges Zeichen als Line
20.11.2007 20:57:53
Harry
Hallo Paul,
Zitat VBA-Hilfe

Input-Funktion (Beispiel)
In diesem Beispiel wird die Input-Funktion verwendet, um Zeichen einzeln aus einer Datei zu  _
lesen und im Direktfenster auszugeben. In diesem Beispiel wird angenommen, daß DATEI1 eine Textdatei ist, die einige Zeilen mit Beispieldaten enthält.
Dim Zeichen1
Open "DATEI1" For Input As #1    ' Datei öffnen.
Do While Not EOF(1)    ' Schleife bis Dateiende.
Zeichen1 = Input(1, #1)    ' Ein Zeichen lesen.
Debug.Print Zeichen1    ' Ausgabe im Direktfenster.
Loop
Close #1    ' Datei schließen.


Gruß
Harry

Anzeige
AW: Datei einlesen und beliebiges Zeichen als Line
21.11.2007 17:47:00
Paul
Danke Harry
Ja, ja, man sollte hald lesen koennen.
Trotzdem schoen von dir nicht nur den Hinweis auf die Hilfe sondern gleich den rauskopierten Text.
Ja, genau was ich brauche.
Gruss aus der Schweiz
Paul

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige