Textdatei auslesen

18/04/2011 - 11:35 von Heinz-Mario Frühbeis | Report spam
Hallo!

Ich möchte mir eine Collection aus einer Textdatei bauen.

Was mir so vorschwebt ist:

Inhalt ->
1 4585666
2 4654898
3 6989966
4 4654888
Datei öffnen im Random-Modus ->
mit Seek fFreeFile, 3 möchte ich dann in die dritte Textzeile springen
->
und mit Get fFreeFile, 3, nStr möchte ich diese Zeile auslesen

Das klappt aber nicht :(

Wie könnte ich das hinbekommen?

Mit Gruß
Heinz-Mario Frühbeis
 

Lesen sie die antworten

#1 Wilfried Dietrich
18/04/2011 - 12:07 | Warnen spam
"Heinz-Mario Frühbeis" schrieb im Newsbeitrag news:ioh0kv$i87$
Hallo!

Ich möchte mir eine Collection aus einer Textdatei bauen.

Was mir so vorschwebt ist:

Inhalt ->
1 4585666
2 4654898
3 6989966
4 4654888
Datei öffnen im Random-Modus ->
mit Seek fFreeFile, 3 möchte ich dann in die dritte Textzeile springen
->
und mit Get fFreeFile, 3, nStr möchte ich diese Zeile auslesen

Das klappt aber nicht :(

Wie könnte ich das hinbekommen?



Hallo Heinz-Mario,

z.B. so:

Private Type Datensatz
nID As Long 'ist 1, 2, 3, 4...
sKey As String * 7 'ist 4585666, 4654898, ...
End Type

...
Dim iFNr As Integer
Dim uDSatz As Datensatz

iFNr = FreeFile
Open FilePath For Random As #iFNr Len = Len(uDSatz)
Get #iFNr, 3 , uDSatz
Close #iFNr

Gruß
Wilfried

Ähnliche fragen