Lautsprecher
Erfahrenes Mitglied
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.
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!
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:
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 SubSo 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!
