Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.10.2025 18:18:42
Anzahl in einer Zelle automatisch ermitteln
04.10.2025 17:44:54
Power Query - Filtern einer Spalte mittels einer Liste
04.10.2025 15:35:03
Range um eine Einzelzelle erweiternerweitern
04.10.2025 14:27:49
Was ist mit dem CEF Forum passiert?
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
380to384
380to384
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

BINÄRE NUSS - HELP: GET/PUT Problem

Forumthread: BINÄRE NUSS - HELP: GET/PUT Problem

BINÄRE NUSS - HELP: GET/PUT Problem
17.02.2004 10:15:30
ben
2.ANLAUF!!!
Das Problem: habe ein Datenfeld -> AMSKM(i,j,k), das groß ist (800*1000*3). Dieses Feld schreibe ich binär in eine Datei welches noch ganz gut geht. Undzwar mit folgendem code:
dateinummer = Freefile
Open "testdatei" For Binary Access Write As #dateinummer
For index1 = LBound(AMSKM()) To UBound(EMSKM())
For index2 = 0 To 2
Put #dateinummer, q1, AMSKM(index1, index2)
q1 = q1 + 1
Next index2
Next index1
Close #dateinummer
tja, und dann beim zurücklesen verließen sie ihn ...
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: BINÄRE NUSS - HELP: GET/PUT Problem
17.02.2004 10:21:22
Alex K.
Hallo Ben,
das Problem ist, dass du beim Einlesen nicht weißt, wie gross die Indexe 1 und 2 sind und ausserdem können die einzelen Array-Elemente unterschiedlich lang sein.
Deshalb mein Vorschlag, definiere beim Schreiben immer eine feste Länge für die Array-Elemente und schreibe am Anfang die Indexe 1 und 2 in die Datei. Diese kannst du dann auslesen und mit festen Element-Länge die einzelnen Element einlesen.
Anzeige
Blödsinn - vergiss vorheriges Posting
17.02.2004 10:48:56
Alex K.
Hallo Ben,
ist echt von Vorteil, wenn man vorher die Hilfe liest, bevor man Blödsinn schreibt. Sorry für das vorherige Posting.
Put / Get kann Arrays wunderbar verarbeiten. Hier mal ein Beispiel, du musst dies nur entsprechend anpassen.

Public Sub BinäreDatei()
Dim ar(0 To 10, 0 To 2, 0 To 3) As String
Dim index1, index2, index3      As Integer
Dim fileNo                      As Integer
For index1 = 0 To 10
For index2 = 0 To 2
For index3 = 0 To 3
ar(index1, index2, index3) = "Eintrag" & index1 & " - " & index2 & " - " & index3
Next index3
Next index2
Next index1
fileNo = FreeFile
Open "c:\eigene dateien\binär.txt" For Binary Access Write As #fileNo
Put #fileNo, , ar
Close #fileNo
Erase ar
Open "c:\eigene dateien\binär.txt" For Binary Access Read As #fileNo
Get #fileNo, , ar
Close #fileNo
End Sub

Anzeige
AW: Blödsinn - vergiss vorheriges Posting
17.02.2004 11:04:29
ben
YEEEEEAAAAAAAAHHHHHHHHH !!! Super, das hats gebracht. Echt Danke für das Posting!!!
Viele Grüße
Martin
Teile dein Freude, habe auch wieder gelernt :-) oT
17.02.2004 11:12:57
Alex K.
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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