XProfan

Startsuche& = 0--Ab hier wird gesucht
..
--Das ist die Suchroutine
n$ = Klaus--ist der zu suchende Text
Suchtext$ = GetText$(RichEdit&)--Text aus Richedit
DIM Bereich#,32000
clear Bereich#
String Bereich#,0 = Suchtext$
Gefunden& = MemPos(Bereich#,Startsuche&,n$)
Sendmessage(Richedit&,$00B1,Gefunden&,Gefunden&+Len(n$))Cursor setzen
setfocus(Richedit&)
Dispose Bereich#
Startsuche& = Gefunden&+Len(n$)--An dieser stelle soll dann weiter gesucht werden

Declare FileName$,RichEdit&,Ende&,Suchen&,Beenden&
Declare n$,Bereich#,Gefunden&,Startsuche&,Suchtext$
Startsuche& = 0
Ende&       = 0
*******************************************************************************************************************
cls
Suchen&   = Control(Button,Suchen,$40000000+$10000000+$10000,420,10,200,22,%hwnd,20000,%HINSTANCE)
Beenden&  = Control(Button,Ende,$40000000+$10000000+$10000,420,40,200,22,%hwnd,20001,%HINSTANCE)
RichEdit& = Create(RichEdit,%hwnd,,0,5,400,300)
RTF laden
FileName$ = LoadFile$(Als RTF öffnen,*.RTF)
RTF(LoadRTF,Richedit&,Filename$)
setfocus(Richedit&)
Tastatur und Maus abfragen

WhileNot Ende&

    Case Getfocus(Beenden&) : Ende& = 1

    If Getfocus(Suchen&)

        n$        = Klaus--Dieser Text soll gesucht werden(Nur zum Beispiel)
        Suchtext$ = GetText$(RichEdit&)--Text aus Richedit
        DIM Bereich#,32000
        clear Bereich#
        String Bereich#,0 = Suchtext$
        Gefunden& = MemPos(Bereich#,Startsuche&,n$)
        Startsuche& = Gefunden&+Len(n$)
        Sendmessage(Richedit&,$00B1,Gefunden&,Gefunden&+Len(n$))--Cursor setzen
        setfocus(Richedit&)
        Dispose Bereich#--Hatt ich vergessen

    EndIf

ENDWHILE

Declare x&

If Getfocus(Suchen&)

    n$=Klaus--Dieser Text soll gesucht werden(Nur zum Beispiel)
    DIM Bereich#,16
    clear Bereich#
    x&=-1

    While 1

        Long bereich#,0=x&+1
        Long bereich#,4=-1
        Long bereich#,8=Addr(n$)
        x&=Sendmessage(Richedit&,$0438,1,bereich#)--EM_FINDTEXT (1=Flagparameter)
        Case x&=-1:BREAK
        Sendmessage(Richedit&,$00B1,x&,x&+Len(n$))--Cursor setzen
        SetFocus(Richedit&)
        Sleep 500

    EndWhile

    SetFocus(Richedit&)
    Dispose Bereich#--Hatt ich vergessen

EndIf