English
Forum

In Richedit Text search

 

Frank
Tretter
How can in a Richedit to one beliebigen Text Search.
Have unfortunately yet yet nothing here above red.

use WinXP and XProfan 8.

be for each Help grateful
 
Seit 2008 endlich XProfan 10, ist einfach klasse
03/30/07  
 




Nico
Madysa
How seek thou in normalen Edits? i'd simply whom Text with GetText$() read and then InStr() take.
 
Nico Madysa
03/30/07  
 




Frank
Abbing
NICO! ash on your master...
to that Search there z.B. The Message EM_FINDTEXT.
 
03/30/07  
 




Frank
Tretter

CompileMarkSeparation
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 
Seit 2008 endlich XProfan 10, ist einfach klasse
03/30/07  
 



[tb]minimalbeispiel[/tb]
 
03/30/07  
 




Frank
Tretter
Sorry, kenn me not yet so from. here the code
CompileMarkSeparation
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


i want in large Texten to Wörtern search. can Yes his that the sought word number of times vorkommt, therefore should one such a long time search To one The right place found has.
 
Seit 2008 endlich XProfan 10, ist einfach klasse
03/30/07  
 




Frank
Abbing
this is not sonderlich heavy:
CompileMarkSeparation
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


with whom Flagparametern can you yet to determine, whether the Suchbegriffe exakt so voices must (small/Grossbuchstaben), whether the Suchbegriff one vollständiges word in the Text his must, etc.
 
03/30/07  
 




Frank
Tretter
Vielen Thanks, very the I sought have.
have me very weitergeholfen, now can I on my editor weiterbasteln.

over again thanks all, gruß Fränki
 
Seit 2008 endlich XProfan 10, ist einfach klasse
03/30/07  
 




Nico
Madysa

NICO! ash on your master...
to that Search there z.B. The Message EM_FINDTEXT.


likes thoroughly his, i'd nevertheless so search, I The Message now first kennen learnt have.
 
Nico Madysa
04/02/07  
 




Frank
Abbing
speaks nothing against it. however is these method not grossen Files anzuraten, because sometime the memory concise becomes. then are two copies zeitgleich not advisable.
 
04/02/07  
 



Answer


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

5.165 Views

Untitledvor 0 min.
Rockford08/01/24
RudiB.09/10/22
Michael Hettner08/05/20
Peter Max Müller11/13/17
More...

Themeninformationen



Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.


all rightDatenschutzerklärung
i want none Cookie