Zeile aus datei auslesen

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 :smile:
Sollte das File nicht soviel zeilen haben, so erhaelst du „“

MFG Alex

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]