Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Binäre Datei einlesen und als Text umwandeln
Autor: HarryC
Datum: 23.10.05 12:16
Hallo Level220, ich nehme mal an, mit "Plain Text" meinst Du jetzt keine Buchstaben. Da es sich offensichlich um Koordinaten handelt, geht es wohl darum diese umzuwandeln. Type tCoord lat as Long lon as Long End Type   sub ReadCoord() Dim Coord as tCoord Open "worldmap.dat" For binary As #1 While not EOF (1) Get #1, , Coord Wend Close #1 End Sub In Coord.lat und Coord.lon stehen dann die Koordinaten (bzw. die Steueranweisungen) als Long-Werte. Zu klären wäre dann allerdings, wie diese Werte zu interpretieren bzw. umzurechnen wären. Da mir im Moment unklar ist, warum bei dieser Einlesemethode der letzte Datensatz nur Nullen enthält, wäre auch ein anderes Vorgehen denkbar: Da die beiden Variablen jeweils vom Typ Long (= 4 Byte) sind, ist jeder Datensatz insgesamt 8 Byte lang. Demnach müßte die Datei ein Vielfaches von 8 (Byte) lang sein. Teilt man also die Dateilänge durch 8, weiß man, wieviele Datensätze kommen werden und kann ein Array entsprechend dimensionieren. In einer For-Next-Schleife könnte man dann die Datensätze gleich in ein Array einlesen: Get #1,, CoordArray(Counter) HarryC

Binäre Datei einlesen und als Text umwandeln	875	Level220	23.10.05 11:18
Re: Binäre Datei einlesen und als Text umwandeln	665	HarryC	23.10.05 12:16

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen