Problem with Notepad++

[Klusek_]

Hello. I have a problem with Notepad++. When I have a lot of "Names", I don't want to replace it with "Klusek1" and no text has been loaded because it is empty in MsgBox. I tested on notepad.exe, it works, but on notepad++.exe it doesn't. As if Autoit could not detect text in Notepad++. I will be very grateful for your help and explanation.

 

>>>> Window <<<<
Title:    new 1 - Notepad++
Class:    Notepad++
Position:    -8, -8
Size:    1940, 1060
Style:    0x17CF0000
ExStyle:    0x00000110
Handle:    0x00000000001B0428

>>>> Control <<<<
Class:    SysTabControl32
Instance:    5
ClassnameNN:    SysTabControl325
Name:    
Advanced (Class):    [CLASS:SysTabControl32; INSTANCE:5]
ID:    
Text:    Tab
Position:    0, 25
Size:    1920, 950
ControlClick Coords:    680, 445
Style:    0x5600A000
ExStyle:    0x00000000
Handle:    0x00000000002E0464

>>>> Mouse <<<<
Position:    680, 510
Cursor ID:    0
Color:    0x3F3F3F

>>>> StatusBar <<<<
1:    Normal text file
2:    length : 0    lines : 1
3:    Ln : 1    Col : 1    Pos : 1
4:    Windows (CR LF)
5:    UTF-8
6:    INS

>>>> ToolsBar <<<<

>>>> Visible Text <<<<
Tab
Normal text file
X
Find:
<
>
Match &case
&Highlight all

>>>> Hidden Text <<<<
Selected Tab
Caption
Tab1
Selected Tab
Caption
Tab1
Selected Tab
Caption
Tab1
Selected Tab
Caption
Tab1
Tab

 

MsgBox(0, "Test", "Load the source text into the notebook")

$sTxt = ControlGetText("[CLASS:Notepad++]", "", "SysTabControl325")

$iNR = 99

MsgBox(64, "Source text", $sTxt)

Do
   $iNR += 1
   $sTxt = StringReplace($sTxt, "Names", "Klusek" & $iNR, 1)
Until @extended = 0

ControlSetText("[CLASS:Notepad++]", "", "SysTabControl325", $sTxt)

 

[Danp2]

16 minutes ago, Klusek_ said:

Advanced (Class):    [CLASS:SysTabControl32; INSTANCE:5]

That's the tab control, which won't contain the desired text. You likely need to use UIAutomation in order to successfully retrieve the text.

[mLipok]

20 minutes ago, Klusek_ said:

As if Autoit could not detect text in Notepad++

Not true.

Tip: Scintilla, SendMessage

[Klusek_]

3 hours ago, Danp2 said:

That's the tab control, which won't contain the desired text. You likely need to use UIAutomation in order to successfully retrieve the text.

I'll check and try it. Thanks for the information.

 

3 hours ago, mLipok said:

Not true.

Tip: Scintilla, SendMessage

Right. Shows all text in MsgBox but delete all text and yield one letter "K".

[Klusek_]

I tried UIAutomation. I did as it was described in the guide. Yes, it works on notepad and nothing works on notepad++.

[mLipok]

11 hours ago, Klusek_ said:

but delete all text and yield one letter "K".

?

[Klusek_]

1 hour ago, mLipok said:

?

In Notepad ++ I have text

Names
Names
Names

When I turn on the script, it changes everything to

K

I think you understood

[mLipok]

1 hour ago, Klusek_ said:

When I turn on the script

?

[Danp2]

Show your revised code.

[Klusek_]

1 hour ago, mLipok said:

?

This means that after running the script .au3

 

33 minutes ago, Danp2 said:

Show your revised code.

Nothing works. On the console it shows me the message "$oValue ERR"

expandcollapse popup

#include "..\Include\Includes\CUIAutomation2.au3"

Example()

Func Example()

    ; Open Notepad++
    Run( "C:\Program Files (x86)\Notepad++\notepad++.exe" )

    Sleep( 1000 )

    Local $oUIAutomation = ObjCreateInterface( $sCLSID_CUIAutomation, $sIID_IUIAutomation, $dtagIUIAutomation )
    If Not IsObj( $oUIAutomation ) Then Return ConsoleWrite( "$oUIAutomation ERR" & @CRLF )
    ConsoleWrite( "$oUIAutomation OK" & @CRLF )

    Local $pDesktop, $oDesktop
    $oUIAutomation.GetRootElement( $pDesktop )
    $oDesktop = ObjCreateInterface( $pDesktop, $sIID_IUIAutomationElement, $dtagIUIAutomationElement )
    If Not IsObj( $oDesktop ) Then Return ConsoleWrite( "$oDesktop ERR" & @CRLF )
    ConsoleWrite( "$oDesktop OK" & @CRLF )

    ConsoleWrite( "--- Notepad++ window ---" & @CRLF )

    Local $pCondition
    $oUIAutomation.CreatePropertyCondition( $UIA_ClassNamePropertyId, "Notepad++", $pCondition )
    If Not $pCondition Then Return ConsoleWrite( "$pCondition ERR" & @CRLF )
    ConsoleWrite( "$pCondition OK" & @CRLF )

    Local $pNotepad, $oNotepad
    $oDesktop.FindFirst( $TreeScope_Descendants, $pCondition, $pNotepad )
    $oNotepad = ObjCreateInterface( $pNotepad, $sIID_IUIAutomationElement, $dtagIUIAutomationElement )
    If Not IsObj( $oNotepad ) Then Return ConsoleWrite( "$oNotepad ERR" & @CRLF )
    ConsoleWrite( "$oNotepad OK" & @CRLF )

    ConsoleWrite( "--- Fill Edit element ---" & @CRLF )

    ; $oUIAutomation.CreatePropertyCondition( $UIA_AutomationIdPropertyId, "15", $pCondition )
    $oUIAutomation.CreatePropertyCondition( $UIA_ClassNamePropertyId, "Scintilla", $pCondition )
    If Not $pCondition Then Return ConsoleWrite( "$pCondition ERR" & @CRLF )
    ConsoleWrite( "$pCondition OK" & @CRLF )

    Local $pEdit, $oEdit
    $oNotepad.FindFirst( $TreeScope_Descendants, $pCondition, $pEdit )
    $oEdit = ObjCreateInterface( $pEdit, $sIID_IUIAutomationElement, $dtagIUIAutomationElement )
    If Not IsObj( $oEdit ) Then Return ConsoleWrite( "$oEdit ERR" & @CRLF )
    ConsoleWrite( "$oEdit OK" & @CRLF )

    Local $pValue, $oValue
    ; $oEdit.GetCurrentPattern( $UIA_ValuePatternId, $pValue )
    $oEdit.GetCurrentPattern( $UIA_LegacyIAccessiblePatternId, $pValue )
    $oValue = ObjCreateInterface( $pValue, $sIID_IUIAutomationValuePattern, $dtagIUIAutomationValuePattern )
    If Not IsObj( $oValue ) Then Return ConsoleWrite( "$oValue ERR" & @CRLF )
    ConsoleWrite( "$oValue OK" & @CRLF )
    $oValue.SetValue( "HelloWorld" )

EndFunc

 

[Danp2]

16 hours ago, Klusek_ said:

Right. Shows all text in MsgBox but delete all text and yield one letter "K".

You never showed this code. From your description, it sounds like you were able to retrieve the original text. Please elaborate.

[Klusek_]

It's the same code as at the top

MsgBox(0, "Test", "Load the source text into the notebook")

$sTxt = ControlGetText("[CLASS:Notepad++]", "", "Scintilla1")

$iNR = 99

MsgBox(64, "Source text", $sTxt)

Do
   $iNR += 1
   $sTxt = StringReplace($sTxt, "Names", "Klusek" & $iNR, 1)
Until @extended = 0

ControlSetText("[CLASS:Notepad++]", "", "Scintilla1", $sTxt)

 

[Klusek_]

Excuse me. I am typing too fast and I noticed that it cannot be edited.. Yes. We managed to recover all the text because it showed up in MsgBox but it all turned into one letter in the Notepad++ editor

[Danp2]

Seems like the ControlSetText isn't working as intended. There is likely a better solution, but here's an alternative for now --

ControlSetText("[CLASS:Notepad++]", "", "Scintilla1", "")
ControlSend("[CLASS:Notepad++]", "", "Scintilla1", $sTxt)

 

[Klusek_]

Pity. This solution could damage my file and notepad does not have the proper encoding for the file with special characters.

[Danp2]

How so? Also, why not perform the editing directly in Autoit (ie: FileRead / FileWrite, etc) instead of using an external editor?

[mLipok]

1 hour ago, Klusek_ said:

notepad does not have the proper encoding for the file with special characters.

Which characters ?

[mLipok]

2 hours ago, Klusek_ said:

It's the same code as at the top

$sTxt = ControlGetText("[CLASS:Notepad++]", "", "Scintilla1")

 

You don't  understand me well.

I mean here:

22 hours ago, mLipok said:

Tip: Scintilla, SendMessage

You should use Scintilla API:

https://www.scintilla.org/ScintillaDoc.html

Edited October 24, 2021 by mLipok

[jugador]

You need GUICtrlMenuClick for this
https://www.autoitscript.com/forum/topic/205640-guictrlmenuclick/
This not the way to do it but for fun
Open Notepad++ then type the word Name(in  order you like) and no need to save it

Name
Name

Name
Name

Run the code from SciTE

#include "GUICtrlMenuClick.au3"
Example()
Func Example()
    Local $hWnd = WinGetHandle("[Class:Notepad++]")

    ControlFocus($hWnd, "", "Scintilla1")
    Send("{APPSKEY}")
    Local $P_hWnd = WinWait("[CLASS:#32768]")
    Local $P_Menu = _SendMessage($P_hWnd, 0x01E1)
    Local $o_SelectAll = __GUICtrlMenu_GetID($P_Menu, 'Select All')
    Local $o_Copy = __GUICtrlMenu_GetID($P_Menu, 'Copy')
    Local $o_Paste = __GUICtrlMenu_GetID($P_Menu, 'Paste')
    Send('{ESC}')
    If ($o_SelectAll <> -1) And ($o_Copy <> -1) Then
        __GUICtrlMenu_ClickByID($hWnd, $o_SelectAll)
        __GUICtrlMenu_ClickByID($hWnd, $o_Copy)
   
        Local $sData = ClipGet()
        Local $sText = StringReplace($sData, "Name", "Age" & 55)
        ClipPut($sText)
        __GUICtrlMenu_ClickByID($hWnd, $o_Paste)
     Endif
EndFunc

 

Edited October 24, 2021 by jugador

[Klusek_]

4 hours ago, Danp2 said:

You never showed this code. From your description, it sounds like you were able to retrieve the original text. Please elaborate.

Will it help? With these features it will definitely damage my file. If I remove even one letter or spaces, the whole file will be damaged

 

1 hour ago, mLipok said:

Which characters ?

For example, the characters: EM, NUL, ETX, EOT, ENQ

 

1 hour ago, mLipok said:

You don't  understand me well.

I mean here:

You should use Scintilla API:

https://www.scintilla.org/ScintillaDoc.html

How am I supposed to use it? With inclusion of a DLL?

 

1 hour ago, jugador said:

You need GUICtrlMenuClick for this
https://www.autoitscript.com/forum/topic/205640-guictrlmenuclick/
This not the way to do it but for fun
Open Notepad++ then type the word Name(in  order you like) and no need to save it

Name
Name

Name
Name

Run the code from SciTE

#include "GUICtrlMenuClick.au3"
Example()
Func Example()
    Local $hWnd = WinGetHandle("[Class:Notepad++]")

    ControlFocus($hWnd, "", "Scintilla1")
    Send("{APPSKEY}")
    Local $P_hWnd = WinWait("[CLASS:#32768]")
    Local $P_Menu = _SendMessage($P_hWnd, 0x01E1)
    Local $o_SelectAll = __GUICtrlMenu_GetID($P_Menu, 'Select All')
    Local $o_Copy = __GUICtrlMenu_GetID($P_Menu, 'Copy')
    Local $o_Paste = __GUICtrlMenu_GetID($P_Menu, 'Paste')
    Send('{ESC}')
    If ($o_SelectAll <> -1) And ($o_Copy <> -1) Then
        __GUICtrlMenu_ClickByID($hWnd, $o_SelectAll)
        __GUICtrlMenu_ClickByID($hWnd, $o_Copy)
   
        Local $sData = ClipGet()
        Local $sText = StringReplace($sData, "Name", "Age" & 55)
        ClipPut($sText)
        __GUICtrlMenu_ClickByID($hWnd, $o_Paste)
     Endif
EndFunc

 

It will come in handy for later. Thank you