hay,
hab jetzt 1000 verschiedene auslesevarianten,
bin auf der suche nach dem code, für eine bestimmte zeile in einer datei auszulesen
z.B. Zeile 7 aus …/test.datei
hay,
hab jetzt 1000 verschiedene auslesevarianten,
bin auf der suche nach dem code, für eine bestimmte zeile in einer datei auszulesen
z.B. Zeile 7 aus …/test.datei
Hallo,
Private Function Zeile (File as string, Zeilennummer as long) as String
on error resume next
dim fnr as byte
dim zaehler as long
fnr=freefile
zeile="":zaehler=0
open File for input as #fnr
do while not eof(fnr)
zaehler=zaehler+1
line input #fnr,wert
if zaehler=Zeilennummer then
zeile=wert
close fnr
exit function
end if
loop
close fnr
end function
open
Aufruf über bsp
x=Zeile(„c:\test.txt“,7)
in x steht dann der Inhalt aus dem File aus der Zeile x was du uebergeben hast
Sollte das File nicht soviel zeilen haben, so erhaelst du „“
MFG Alex
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]