Jump to content
Sign in to follow this  

Get selected text and replace

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)

[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]

Share this post

Link to post
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
Sign in to follow this  

  • Create New...