Jump to content

Get selected text and replace


Yuraj
 Share

Recommended Posts

Func _AddTag (ByRef $hEdit, $szTag)
    Local $iSelected = GUICtrlRecvMsg ($hEdit, 0x00B0)
    If (IsArray($iSelected)) And ($iSelected[0] < $iSelected[1]) Then
        GUICtrlSetData ($hEdit, StringLeft (GUICtrlRead ($hEdit), $iSelected[0]) & "[" & $szTag & "]" & _ 
        StringMid (GUICtrlRead ($hEdit), $iSelected[0]+1, $iSelected[1]-$iSelected[0]) & "[/" & $szTag & "]" & _
        StringTrimLeft (GUICtrlRead ($hEdit), $iSelected[1]))
        GUICtrlSetState ($hEdit, $GUI_FOCUS)
    EndIf   
EndFunc

[quote name='Valik' post='301213' date='Jan 31 2007, 10:36 PM']You seem to have a habit of putting things in the wrong place. I feel sorry for any female you attempt to have sex with.[/quote][font="Lucida Sans Unicode"][/font]

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...