PutScriptName.au3

-

 

Put the ScriptName in Selection 

 

; https://www.autoitscript.com/forum/topic/208404-scite-plusbar/page/2/#comment-1517517
;------------------------------------------------------------------------------
; Title...........: PutScriptName.au3
; Description.....: Put the ScriptName in Selection
;------------------------------------------------------------------------------
#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 -w 7
#include <WindowsConstants.au3>
#include <SendMessage.au3>

Global $hScite_Editor_hWnd = ControlGetHandle("[CLASS:SciTEWindow]", '', '[CLASS:Scintilla; INSTANCE:1]')
Global $ClipBack

If Not WinExists("[CLASS:SciTEWindow]") Then
    Exit
EndIf

$ClipBack = ClipGet() ; backup clip data

SciTE_PutItInSelection()

ClipPut($ClipBack) ; Restore clip data

;----------------------------------------------------------------------------------------
Func SciTE_PutItInSelection()

    Local $sTxt = CurrentSciteFile()

    ClipPut($sTxt)
    _SendMessage($hScite_Editor_hWnd, $WM_PASTE)

EndFunc   ;==>SciTE_PutItInSelection
;--------------------------------------------------------------------------------------------
Func CurrentSciteFile($FullPath = 0) ; Return the Current Scite [0=ScriptName; 1=ScriptFullPath]

    WinMenuSelectItem("[CLASS:SciTEWindow]", "", "&File", "Copy Pat&h")

    Local $ScriptName, $ScriptFullPath = ClipGet()

    If $FullPath = 0 Then
        Local $sSplit = StringSplit($ScriptFullPath, "\")
        $ScriptName = $sSplit[$sSplit[0]]
    Else
        $ScriptName = $ScriptFullPath
    EndIf

    Return $ScriptName

EndFunc   ;==>CurrentSciteFile
;----------------------------------------------------------------------------------------
 

Comments

Post a Comment

Popular posts from this blog

ControlGetHandle ($hWnd, "", "[REGEXPCLASS:<>; INSTANCE:<>]")

-
Image
  RegExpQuickTester 2.5p   will help  put all the ClassNameNN keys here old and new here you can put your filter (Search pattern) an, in live time, test the pattern, and see which cases it catches, and readjust it here it shows which cases it catches here I have put '3 - Retum array of global matches'  here you can use it as a storage space (for copying and pasting)   Until now we use CLASSNN which is CLASS & INSTANCE ControlClick( $hWnd, "", "WindowsForms10.Window.8.app.0.1a52015_r22_ad11" ) WindowsForms10.Window.8.app.0.1a52015_r22_ad11 = WindowsForms10.Window.8.app.0.1a52015_r22_ad1 & 1 now we will go to logic ControlClick( $hWnd, "", "[ REGEXPCLASS:<>; INSTANCE:<> ]" ) where REGEXPCLASS:<> we put the * 2 Search pattern where INSTANCE :<> we put the instance e.g. 1 ControlClick( $hWnd, "", "[ REGEXPCLASS:WindowsForms10\.Window\.8\.app\.0\..*._r.*._ad1 ; INSTANCE:1 ]" )   [ REGEXPCLASS...
Read more

Simple Calculator

-
Image
    Simple calculator Perform basic arithmetic operations directly from the numeric keypad. Easy copy and paste (data transfer) between different applications. Advanced Features The calculator also includes an checkbox that enables you to apply offsets to your calculations. For instance, using the "+23" offset will add 23 to your result, making it perfect for scenarios where you need to adjust the position of graphical elements in a user interface (GUI). Imagine you want to reposition existing elements by 23 pixels on the Y-axis, you can easily recalculate the new coordinates by adding an offset. https://www.autoitscript.com/forum/topic/211838-simple-calculator/      
Read more