; Soll einen String suchen diesen wiederausgeben mit 2 zusätzlichen zeichen.
; Variablen
Global wor$

wor$ = input("Welches Wort?:")
getstring("C:\test.txt",wor$)


;Hauptfunktion zum suchen eines strings
Function getstring(datei$,word$)
            ;   print (datei$ + wor$)
filein    =    Openfile (datei$)

repeat
txt$       =    readline (filein)
wordl$  =    len(word$)                ;lönge des Wortes
pos$      =    instr(txt$,wor$,1)           ;stelle des Wortes
ergeb$  =      Mid(txt$,pos$,wordl$)       ;das Wort mit den zusatzstellen auslesen
print (ergeb$)
until   ergeb$ = wor$                            


                  Closefile (filein)
         
Return
end Function
                                 

Function GetString (datei$, word$)
    filein = OpenFile (datei$)
    wordl  = Len(word$)                 ; brauchst du ja nur einmal zu berechnen
                                        ; Außerdem gibt Len ein Integer zurück

    While Not Eof(filein)               ; durchforste die ganze datei, bis zum ende

        txt$ = ReadLine(filein)         ; Komplette Zeile auslesen

        pos%  = Instr(txt$,word$,1)      ; Zum einen gibt Instr ein Integer zurück
                                        ; zum anderen hattest du die Variable falsch eingetragen

        If pos% > 0                      ; Vorher prüfen ob Instr überhaupt was zurück gibt

            ergeb$ = Mid(txt$,pos%,wordl); hier wieder zwei mal Integer anstatt String
            Print (ergeb)
        EndIf

    Wend
    CloseFile (filein)

    ;wenn du eh nichts zurückgeben willst brauchst du auch kein Return ;)
End Function

Function GetString$ (datei$, word$) ;hier noch den Rückgabetyp definieren

;...
        If pos% > 0
            ergeb$ = Mid(txt$,pos%,wordl)

;hier die Print Anweisung entfernen

        EndIf

;...
        Return ergeb$
End Function