Hallo an alle.

wir haben mal wieder eine Prüfungsfrage

Gegen ist ein Random File (c:\daten.dat), dessen Satz aus 3 Datenfeldern besteht: Feld1: Messungsnr (integer), messwert1 (double), messwert2 (single).

Beim Versuch die Datensätze in eine listbox einzugeben, scheitern wir immer.

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Option Explicit Private Type Datenfeld Messungsnr As Integer Messwert1 As Double Messwert2 As Single End Type   Dim zeile As Datenfeld   Private Sub Command1_Click() 'auslesen Dim dateinr As Integer Dim k As Integer dateinr = FreeFile Dim a As Integer Open "C:\Dokumente und Einstellungen\uebung56\Desktop\vb daten.txt" For Random As dateinr Len = Len(zeile) For k = 1 To LOF(dateinr) / Len(zeile) Get #dateinr, k, zeile List1.AddItem zeile Next k Close dateinr End Sub

So schaut unser bisheriger Versuch. Wir haben die Daten in dem gegebenen File selbst erstellt und zu Testzwecken nur eine '1' eingegeben, muss man bestimmte Abstände zwischen den Feldern beachten? Oder liegt der Hase woanders begraben?

Bei ner String-Variablen kann man ja die Länge angeben - z.B. *5 - wie läuft das aber bei Integer, double, etc zweckes len = Len(zeile)?

Vielen Dank schonim Voraus!

Hallo,

ich hätte gerne die *.dat-Datei und den gesamten Code als vbp und frm.

Mehr gibts eigentlich nicht dazu

Wir haben grad noch die Caption im FOrm_load drinnen und die Form beinhaltet eine listbox und einen Auslese-Button, mehr nicht...

Brauchst du noch welche Infos?