Highlight search result in edit.

[yxrkt]

CODE

$search = InputBox("search", "", "", "")

$contentmyedit = GUICtrlRead($myedit)

$searchresult = StringInStr($contentmyedit,$search)

SETFUCKINGFOCUS($myedit,$searchresult) <-- ?

is there a function or something that highlights the search-result in my edit ?

[Shevilie]

What kind of object is $myedit ?? GUIEdit ??

[yxrkt]

What kind of object is $myedit ?? GUIEdit ??

sorry forgot..

yep its GUIedit.

[SmOke_N]

CODE

$search = InputBox("search", "", "", "")

$contentmyedit = GUICtrlRead($myedit)

$searchresult = StringInStr($contentmyedit,$search)

SETFUCKINGFOCUS($myedit,$searchresult) <-- ?

is there a function or something that highlights the search-result in my edit ?

_GUICtrlEditGetSel/_GUICtrlEditSetSel/or _GUICtrlEdit* in general

Some effort on your part to customize it to fit your needs will be in order... or you can search for these on the forum to see how others do it.

Also... _GUICtrlEditFind

Edited March 11, 2007 by SmOke_N

[yxrkt]

Thank you for pointing me to _GuiGtrlEditSetSel.

Here's the code.

$search = InputBox("search", "", "", "")
$contentmyedit = GUICtrlRead($myedit)
$searchresult = StringInStr($contentmyedit,$search)

$searchlenght = StringLen($search)
$searchresult1 = $searchresult - 1
$searchresult2 = $searchresult + $searchlenght - 1
_guictrleditsetsel($myedit,$searchresult1 , $searchresult2)
_GUICtrlEditScroll($myedit, $SB_SCROLLCARET)

[SxyfrG]

Thanks yxrt.

I used some of your code in my own version of notepad (i also added a find next function just be replacing the 1 in StringInStr with a variable which is changed everytime you perform the find next function)

expandcollapse popup

Func SearchButton()
    $ReadInputS = GUICtrlRead ( $SearchInput )
    $ReadInputR = GUICtrlRead ( $ReplaceInput )
    $CaseMatch  = GUICtrlRead ( $MatchCase )
    $ReplaceCheck = GUICtrlRead ( $SearchReplaceChkBox )
    If $CaseMatch = 1 Then
        $MatchCase1 = 1
    Else
        $MatchCase1 = 0
    EndIf
    If $ReadInputS = "" Then
    Else
$contentmyedit = GUICtrlRead($Text)
$searchresult = StringInStr($contentmyedit,$ReadInputS,$MatchCase1,1)
If $searchresult = 0 Then
    MsgBox ( 48 , "Error!" , "Reached end of document." )
Else
$searchlenght = StringLen($ReadInputS)
$searchresult1 = $searchresult - 1
$searchresult2 = $searchresult + $searchlenght - 1
_guictrleditsetsel($Text,$searchresult1 , $searchresult2)
_GUICtrlEditScroll($Text, $SB_SCROLLCARET)
If $ReplaceCheck = 1 Then
    _GUICtrlEditReplaceSel ( $Text , TRUE , $ReadInputR )
Else
    GUICtrlSetState ( $SearchReplaceChkBox , $GUI_ENABLE )
    GUICtrlSetState ( $FindNButton , $GUI_ENABLE )
EndIf
    EndIf
    EndIf
EndFunc

Func SearchButtonN();Find next button
    $ReadInputS = GUICtrlRead ( $SearchInput )
    $ReadInputR = GUICtrlRead ( $ReplaceInput )
    $CaseMatch  = GUICtrlRead ( $MatchCase )
    $ReplaceCheck = GUICtrlRead ( $SearchReplaceChkBox )
    If $CaseMatch = 1 Then
        $MatchCase1 = 1
    Else
        $MatchCase1 = 0
    EndIf
    If $ReadInputS = "" Then
    Else
$contentmyedit = GUICtrlRead($Text)
$searchresult = StringInStr($contentmyedit,$ReadInputS,$MatchCase1,$Search)
If $searchresult = 0 Then
    MsgBox ( 48 , "Error!" , "Reached end of document." )
Else
$searchlenght = StringLen($ReadInputS)
$searchresult1 = $searchresult - 1
$searchresult2 = $searchresult + $searchlenght - 1
_guictrleditsetsel($Text,$searchresult1 , $searchresult2)
_GUICtrlEditScroll($Text, $SB_SCROLLCARET)
If $ReplaceCheck = 1 Then
    _GUICtrlEditReplaceSel ( $Text , TRUE , $ReadInputR )
Else
    GUICtrlSetState ( $SearchReplaceChkBox , $GUI_ENABLE )
    GUICtrlSetState ( $FindNButton , $GUI_ENABLE )
EndIf
    EndIf
$Search = $Search+1
EndIf
EndFunc

I have too much time on my hands