| Von |
Konstantin Wollsiefer |
| Am |
11. Dezember 2007 um 09:00:22 |
| Frage |
Greeßle
ig brauch mal ganz dringend hilfe ich schreib momentan nen Programm in den ich öffter ganze Zeilen aus einer Datei lesen muss (eigentlich leicht) doch nun kommt der hagen die zeieln müssen zufählig herausgelesen werden soll heißen mal die 3 dann die 8 Zeile und so weiter.
Um mir die ganze sache zu vereinfachen wollte ich eine Funktion schreiben die ich einfach nur noch aufrufen muss allerdings bin ich jetzt am ende und komm irgendwie nicht weiter. Ich hoffe ichkonnte euch die grundproblematik erklären und ihr könnt mir helfen, schon mal danke im voraus und ihr mein entstandener Code'RandomFunction
Function Random(DateiPfad As String, Laenge As Long) As String
Randomize
'Variablendeklarierung
Dim FileNum As Long
Dim MaxAnzahl As Long
Dim Position As Long
'Variablenbelegung (FileNum)
FileNum = FreeFile
'Datei Öffnen
Open Dateiname For Random As FileNum
'Variablenbelegung (MaxAnzahl, Position)
MaxAnzahl LOF(FileNum) / Laenge
Position = Int((MaxAnzahl - 1 + 1) * Rnd + 1)
'Dateizugriff
End Function |
|
Zum Seitenanfang