ReadLIne

Function GetRow$(txt$, row = 1)
	
	;Stop
	
	For b = 1 To row
		c$ = ""
		Repeat
			a = a + 1
			tmpc$ = c$
			c$ = Mid$(txt$, 1, a)
		Until Right$(c$, 1) = Chr$(10)
	Next
	If tmpc$ = "" And b <> row tmpc$ = " "
	Return tmpc$
End Function

;Stop
t$ = GetFileText$(RequestFile("Browse a file!"))

Repeat
	a = a + 1
	r$ = GetRow$(t$, a)
	Notify r$
Until r$ = ""



;under functions ; not here created

Function GetFileText$(file$)
	If Not FileType(file$) Return
	f = ReadFile(file$)
	If Not f Return
	ret$ = ReadLine$(f)
	Repeat
		ret$ = ret$ + Chr$(10) + ReadLine$(f)
	Until Eof(f)
	Return ret$
End Function

; syntax: INSTR( VorlageText$, GesuchtesZeichen$, AbHierSuchen%)
Local Da%=0
Repeat
    Da=Instr(Text$ , Chr(10) , da%+1)
   Print "Zeilenumbruch gefunden bei  " + Da
Until da=0

Stream=ReadFile("datei.txt")
     While Eof(Stream)=0
          Txt$=ReadLine(Stream)
          i=i+1
          Print "Zeile " + i + "=" + txt
     Wend

Function GetRow$(Txt$, Row%=1)
     Local Da%=0, AbHier%=1, Teil$="", i%=0
     Repeat
          ; zunächst wird nach der Stelle mit dem CHR(10) Zeichen gesucht:
          Da=Instr(Txt$ , Chr(10) , AbHier)

          ; Stelle erfolgreich gefunden und wird gezählt
          i=i+1
          Print i +  ". Zeilenumbruch gefunden bei  " + Da

          ; falls die Anzahl der gesuchten Row entspricht dann weitere behandlung des Textes:
          If i=Row Then 

               ; Schnitt  
               Teil$= Mid(Txt$ , AbHier,  Da-Abhier-1)
               Print "Der Teilstring=" + Teil$
               Return Teil$
          EndIf

          ; die nächste Suche beginnt da, wo die alte Suche endete
          AbHier=Da+1  
     Until da=0
End Function

file$ = RequestFile$()

Global rows = CountFileRows(file$)
Dim farray$(rows)

LoadFileArray(file$)

Notify farray$(7)


Function LoadFileArray(file$)
	If Not FileType(file$) Return
	f = ReadFile(file$)
	If Not f Return
	For a = 1 To rows
		farray$(a) = ReadLine$(f)
	Next
	Return True
End Function
	
	
Function CountFileRows(file$)
	ft = FileType(file$)
	If ft = 0 Then Return
	If ft = 1 Then stream = ReadFile(file$)
	If ft = 2 Then stream = ReadDir(file$)
	nf$ = 1
	Repeat
		;Stop
		If ft = 1 Then ReadLine$(stream)
		If ft = 2 Then nf$ = NextFile$(stream)
		nor = nor + 1
		If ft = 1 nf$ = Eof(stream) - 1
	Until Int(nf$) = 0
	Return nor
End Function

Dim Zeilen$(0)

;[...]

Function LoadFileArray(file$)
	;[...]
	Dim Zeilen$(CountFileRows(file$))
End Function