_GUICtrlRichEdit_FindText (F3) or Find Next

[l3ill]

Hi,

  looking for a way to search through a txt file in a _GUICtrlRichEdit_Create like you can with F3 (find next) where you just click through each found item until you get to the one you are looking for. (for example find in scite works like this).

  I found >this but its not what I'm looking for. It changes the button which I dont mind but it runs out after 2 searches.

Any help would be appreciated!

Bill

[Melba23]

billo,

Pretty easy to fix that:

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiRichEdit.au3>

Global $sText = "This is a line." & @CRLF & _
            "And this is another line." & @CRLF & _
            "And yet another line." & @CRLF & _
            "And yet another line." & @CRLF & _
            "And yet another line." & @CRLF & _
            "And yet another line." & @CRLF & _
            "And yet another line." & @CRLF & _
            "And yet another line." & @CRLF & _
            "And yet another line." & @CRLF & _
            "And yet another line." & @CRLF & _
            "And yet another line." & @CRLF & _
            "And yet another line." & @CRLF & _
            "And yet another line."

Main()

Func Main()

    Local $sLastSearch = ""
    Local $iSearchStart = 0

    Local $hGui = GUICreate("Example (" & StringTrimRight(@ScriptName, 4) & ")", 320, 350, -1, -1)

    Local $hRichEdit = _GUICtrlRichEdit_Create($hGui, $sText, 10, 10, 300, 220, BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))

    Local $cSearch_Input = GUICtrlCreateInput("", 10, 300, 200, 20)
    Local $cFind_Button = GUICtrlCreateButton("Find", 230, 300, 80, 30)

    GUISetState()

    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                GUIDelete()
                Exit
            Case $cFind_Button
                ; Get search term
                $sSearchTerm = GUICtrlRead($cSearch_Input)
                If $sSearchTerm Then
                    ; If new search then reset start
                    If $sSearchTerm <> $sLastSearch Then
                        $iSearchStart = 0
                        $sLastSearch = $sSearchTerm
                    EndIf
                    _GUICtrlRichEdit_SetSel($hRichEdit, $iSearchStart, $iSearchStart)
                    $iIndex = _GUICtrlRichEdit_FindText($hRichEdit, $sSearchTerm)
                    _GUICtrlRichEdit_SetSel($hRichEdit, $iIndex, $iIndex + StringLen($sSearchTerm))
                    $iSearchStart = $iIndex + StringLen($sSearchTerm)
                EndIf

        EndSwitch
    WEnd
EndFunc   ;==>Main

M23

[l3ill]

_{What can be said that hasnt already been said....?  thanks! &....}

_{You Rock M23 !!!}