January 2, 2019: New SciTE4AutoIt3 available with the updated SciTE v4.1.2 release

[joseLB]

4 minutes ago, Jos said:

I am obviously running the latest Beta, but would have expected the same for the latest production. 
Did you try the small script on your latest production install and did it not generate the errors?

Jos

I´m not sure about if my instaled version is the last one. I will ckeck, upgrade if needed  and make this test.

At my current production version it´s not warning about eval. So, probably is not the latest one.

Edited August 9, 2019 by joseLB

[joseLB]

oops, mistake: just ruiing the samll test, it Works...

>Running Au3Stripper (19.102.1901.0)  from:C:\Program Files (x86)\AutoIt3\SciTE\Au3Stripper cmdline:
- 0.03 Iteration 1 Strip and Rename Functions result: Output  7 lines and stripped 0 lines
-### StripOnly/StripFunc Error: Found eval() statement using unsolvable variable, which will/could lead to removal of Global Const definition for this variable.
>### current Func: @@
C:\Users\JOS~1\AppData\Local\Temp\OBsED45.tmp(3,1): Warning for line:MsgBox(4096,$K, GUICtrlRead( eval("tlNivMan_" & $K) ) &@cr& eval("tlNivMan_" & $K) &@cr& "tlNivMan_" & $K )

-### StripOnly/StripFunc Error: Found eval() statement using unsolvable variable, which will/could lead to removal of Global Const definition for this variable.
>### current Func: @@
C:\Users\JOS~1\AppData\Local\Temp\OBsED45.tmp(3,1): Warning for line:MsgBox(4096,$K, GUICtrlRead( eval("tlNivMan_" & $K) ) &@cr& eval("tlNivMan_" & $K) &@cr& "tlNivMan_" & $K )

-### StripOnly/StripFunc Error: Found eval() statement using unsolvable variable, which will/could lead to removal of Global Const definition for this variable.
>### current Func: @@
C:\Users\JOS~1\AppData\Local\Temp\OBsED45.tmp(4,1): Warning for line:If GUICtrlRead( eval( "tlNivMan_" & $K) ) = $GUI_CHECKED Then

-=============================================================================================================
-#### Au3Stripper Found   3 Error(s)!!!!    This means your script could have problems running properly.  ####
-=============================================================================================================
- 0.03 Iteration 2 Strip Variables result: Output  7 lines and stripped 0 lines
- 0.05 Iteration 3 Strip and Rename Variables result: Output  7 lines and stripped 0 lines

[Jos]

So now I am wondering what you have in that script that makes it not report the issue. Can you share it, or a stripped down version that doesn't report these errors?

Jos

[joseLB]

2 minutes ago, Jos said:

So now I am wondering what you have in that script that makes it not report the issue. Can you share it, or a stripped down version that doesn't report these errors?

Jos

It´s ok to share. The problem is that to work/compile as this is a 4 year Project, and is not so organized as supposed, I have parts scatered in many places.

So,  I will try to mount a stripped down version code with the problem so i can send you. But it will be a little later, ok. I´m in office just now.

[joseLB]

I think I got the compilation withou the warning arround the same piece of code.

While not totaly functional, I think it fullfil your needs.

expandcollapse popup

#AutoIt3Wrapper_Run_Au3Stripper=y
#Au3Stripper_Parameters=/so /rm

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ComboConstants.au3>
#include <ListviewConstants.au3>
#include <GUIListView.au3>
#include <EditConstants.au3>
#include <Array.au3>
#include <Date.au3>
#include <ScreenCapture.au3>
#include <SLG.au3>
#include <File.au3>
#include <FileConstants.au3>
#include <SliderConstants.au3>
#include <CommMG.au3>
#include <TrayConstants.au3>

Opt("GUIOnEventMode",1)                                     ;modo de interação com usuário via Eventos e não guiGetMsg


Func NivelDensidadeManual()
    ;este é um modelo de rotina ativada pelo Menu_manut, que tem botões que executam atividades quaisquer.
    ;diferente das rotinas feitas até agora (08/08/19) , foi feita uma simplificação. Aqui os eventos dos campos da tela e do "X", chama diretamente a rotina, atraves
    ; dos comandos GUISetOnEvent($GUI_EVENT_CLOSE, "NivelDensidadeManual") e GUICtrlSetOnEvent(-1, "NivelDensidadeManual") colocados na definição da tela abaixo
    Static $tl_NivDenMan=0, $tlNivMan_endEL=0, $tlNivMan_nomEL=0,$tlNivMan_btSalvar=0, $tlNivMan_motivo=0
    Static $tlNivMan_1=0,$tlNivMan_2=0,$tlNivMan_3=0,$tlNivMan_4=0,$tlNivMan_5=0,$tlNivMan_6=0,$tlNivMan_7=0,$tlNivMan_8=0,$tlNivMan_9=0,$tlNivMan_10=0, $tlNivMan_11=0
    Static $tlDenMan_1=0,$tlDenMan_2=0,$tlDenMan_3=0,$tlDenMan_4=0,$tlDenMan_5=0,$tlDenMan_6=0,$tlDenMan_7=0,$tlDenMan_8=0,$tlDenMan_9=0
    Static $endELNiv=1, $nomELNiv="", $EL_Nom=0
    local $msgCTRL=0, $msgTela


    If $tl_NivDenMan = 0 Then   ;#### Momento1: criação da tela
        #Region ### START Koda GUI section ### Form=C:\SMB\Central_PC\V6\testeDensidade.kxf
            $tl_NivDenMan = GUICreate("Nivel & Densidade Manuais", 304, 361, 595, 226)
            GUISetBkColor(0xFFFFFF)
            GUISetOnEvent($GUI_EVENT_CLOSE, "NivelDensidadeManual")
            $Group1 = GUICtrlCreateGroup("NÍVEL", 80, 12, 73, 341)
            $tlNivMan_1 = GUICtrlCreateRadio("+25", 88, 35, 57, 17)
            GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
            $tlNivMan_2 = GUICtrlCreateRadio("+20", 88, 63, 49, 17)
            GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
            $tlNivMan_3 = GUICtrlCreateRadio("+15", 87, 91, 49, 17)
            GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
            $tlNivMan_4 = GUICtrlCreateRadio("+10", 87, 119, 49, 17)
            GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
            $tlNivMan_5 = GUICtrlCreateRadio("+5", 86, 149, 49, 17)
            GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
            $tlNivMan_6 = GUICtrlCreateRadio("nivel", 86, 177, 65, 17)
            GUICtrlSetState(-1, $GUI_CHECKED)
            GUICtrlSetFont(-1, 14, 800, 0, "Arial")
            $tlNivMan_7 = GUICtrlCreateRadio("-5", 87, 208, 49, 17)
            GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
            $tlNivMan_8 = GUICtrlCreateRadio("-10", 87, 236, 49, 17)
            GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
            $tlNivMan_9 = GUICtrlCreateRadio("-15", 86, 264, 49, 17)
            GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
            $tlNivMan_10 = GUICtrlCreateRadio("-20", 86, 292, 49, 17)
            GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
            $tlNivMan_11 = GUICtrlCreateRadio("-25", 85, 322, 49, 17)
            GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
            GUICtrlCreateGroup("", -99, -99, 1, 1)
            $tlNivMan_endEL = GUICtrlCreateInput("", 8, 36, 41, 28)
            GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
            GUICtrlSetOnEvent(-1, "NivelDensidadeManual")
            $Label1 = GUICtrlCreateLabel("endEL", 4, 12, 51, 24)
            GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
            GUICtrlSetTip(-1, "endereço  EL medido")
            $tlNivMan_nomEL = GUICtrlCreateInput("", 9, 108, 41, 28)
            GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
            $Label2 = GUICtrlCreateLabel("nomEL", 5, 84, 55, 24)
            GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
            $tlNivMan_btSalvar = GUICtrlCreateButton("SALVAR", 8, 300, 63, 53)
            GUICtrlSetOnEvent(-1, "NivelDensidadeManual")
            $Group3 = GUICtrlCreateGroup("DENSIDADE", 160, 12, 137, 341)
            $tlDenMan_1 = GUICtrlCreateRadio("até 1.125", 168, 35, 117, 17)
            GUICtrlSetFont(-1, 12, 800, 0, "Arial")
            $tlDenMan_2 = GUICtrlCreateRadio("1.125 a 1.150", 168, 67, 117, 17)
            GUICtrlSetFont(-1, 12, 800, 0, "Arial")
            $tlDenMan_4 = GUICtrlCreateRadio("1.175 a 1.200", 168, 140, 117, 17)
            GUICtrlSetFont(-1, 12, 800, 0, "Arial")
            $tlDenMan_3 = GUICtrlCreateRadio("1.150 a 1.175", 168, 104, 117, 17)
            GUICtrlSetFont(-1, 12, 800, 0, "Arial")
            $tlDenMan_5 = GUICtrlCreateRadio("1.200 a 1.225", 168, 175, 117, 17)
            GUICtrlSetFont(-1, 12, 800, 0, "Arial")
            $tlDenMan_8 = GUICtrlCreateRadio("1.275 a 1.300", 168, 288, 117, 17)
            GUICtrlSetFont(-1, 12, 800, 0, "Arial")
            $tlDenMan_6 = GUICtrlCreateRadio("1.225 a 1.250", 168, 215, 117, 17)
            GUICtrlSetFont(-1, 12, 800, 0, "Arial")
            $tlDenMan_7 = GUICtrlCreateRadio("1.250 a 1.275", 168, 256, 117, 17)
            GUICtrlSetFont(-1, 12, 800, 0, "Arial")
            $tlDenMan_9 = GUICtrlCreateRadio("1.300 e acima", 168, 323, 121, 17)
            GUICtrlSetFont(-1, 12, 800, 0, "Arial")
            GUICtrlCreateGroup("", -99, -99, 1, 1)
            $tlNivMan_motivo = GUICtrlCreateCombo("rotina", 4, 180, 73, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
            GUICtrlSetData(-1, "+solução|+agua|carga|descarga")
            GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
            $Label3 = GUICtrlCreateLabel("motivo", 4, 156, 50, 24)
            GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
            GUICtrlSetTip(-1, "motivo para a medida manual")
            GUISetState(@SW_SHOW)
        #EndRegion ### END Koda GUI section ###
    Else
        $msgCTRL= @GUI_CtrlId
        $msgTela= @GUI_WinHandle
    EndIf
    ;###Momento2: usuario clicou num dos botões da tela
;   GUICtrlSetData( $tlNivMan_endEL, $endELNiv)     ;mantem o ultimo endEL digitado
;   $nomELNiv= $Els[$endELNiv][$EL_Nom]
;   GUICtrlSetData($tlNivMan_nomEL, $nomELNiv)
    GUICtrlSetState($tlNivMan_endEL, $GUI_FOCUS)

    Switch $msgCTRL                                 ;caso rotina tenha sido chamada por click em um de seus botões...
        Case 0
        Case $GUI_EVENT_CLOSE
            If $msgTela = $tl_NivDenMan Then            ;se clicou no "X" desta própria tela, ela deixa de ser vista, porém nao é apagada.
                GUIDelete($tl_NivDenMan)                ;tela é apagada e todos os parametros forçam a criar nova tela se chamar novamente
                $tl_NivDenMan= 0                        ;indica que a tela deve ser criada novamente se clicar no botao
                $msgCTRL= 0
                $msgTela= 0
                Return
            EndIf
        Case $tlNivMan_btSalvar
            $endELNiv= GUICtrlRead($tlNivMan_endEL)
            GUICtrlSetState( $tlNivMan_endEL, $GUI_FOCUS)
            $nivel=0
            $densidade=0
            For $K=1 to 11
MsgBox(4096,$K, GUICtrlRead( eval ( "tlNivMan_" & $K) ) &@cr& eval ( "tlNivMan_" & $K) &@cr& "tlNivMan_" & $K )
                If GUICtrlRead( eval ( "tlNivMan_" & $K) ) = $GUI_CHECKED Then
                    $nivel= 25 - ($K-1) * 5
                EndIf
            Next
            For $K=1 to 9
                If GUICtrlRead( eval ( "tlDenMan_" & $K) ) = $GUI_CHECKED Then
                    $densidade= 1.101 + (($K-1)* 0.025)
                EndIf
            Next
            $motivo= GUICtrlRead( $tlNivMan_motivo )
            TrayTip("Nivel/Densidade EL " &$endELNiv & " salvos" ,"nivel=" & $nivel &@cr& "densidade=" & $densidade &@cr& "motivo=" & $motivo,2)
;           FileWriteline($arqLog,"NDM;" & @HOUR &":"& @MIN &":"& @SEC &";"& $endELNiv &";"& $motivo &";"& $nivel &";"& $densidade)
            $endELNiv +=1
;           $nomELNiv= $Els[$endELNiv][$EL_Nom]
            GUICtrlSetData($tlNivMan_nomEL, $nomELNiv)
            GUICtrlSetData($tlNivMan_endEL, $endELNiv)
            GUICtrlSetState( $tlNivMan_endEL, $GUI_FOCUS)
;           GUICtrlSetState($tlNivMan_6, $GUI_CHECKED)
        Case $tlNivMan_endEL
            $endELNiv= GUICtrlRead($tlNivMan_endEL)
;           $nomELNiv= $Els[$endELNiv][$EL_Nom]
            GUICtrlSetData($tlNivMan_nomEL, $nomELNiv)
            GUICtrlSetData($tlNivMan_endEL, $endELNiv)

        Case Else   ;aqui alternativamente pode ser implementado o momento3 (chamada por Func ExecFuncoesAdicionais())
    EndSwitch
EndFunc


    NivelDensidadeManual()
    while 1
        sleep(200)
    WEnd

>"C:\Program Files (x86)\AutoIt3\SciTE\..\AutoIt3.exe" "C:\Program Files (x86)\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.au3" /ShowGui /prod /in "C:\SMB\Central_PC\V6\lixo.au3"
+>15:07:28 Starting AutoIt3Wrapper v.19.102.1901.0 SciTE v.4.1.2.0   Keyboard:00000416  OS:WIN_7/Service Pack 1  CPU:X64 OS:X64  Environment(Language:0416)  CodePage:0  utf8.auto.check:0
+>         SciTEDir => C:\Program Files (x86)\AutoIt3\SciTE   UserDir => C:\Users\José\AppData\Local\AutoIt v3\SciTE\AutoIt3Wrapper   SCITE_USERHOME => C:\Users\José\AppData\Local\AutoIt v3\SciTE
-> No changes made..
>Running AU3Check (3.3.14.5)  from:C:\Program Files (x86)\AutoIt3  input:C:\SMB\Central_PC\V6\lixo.au3
+>15:07:31 AU3Check ended.rc:0
>Running Au3Stripper (19.102.1901.0)  from:C:\Program Files (x86)\AutoIt3\SciTE\Au3Stripper cmdline:
- 3.61 Iteration 1 Strip and Rename Functions result: Output  4232 lines and stripped 16096 lines
- 6.80 Iteration 2 Strip Variables result: Output  680 lines and stripped 3552 lines
- 6.92 Iteration 3 Strip Variables result: Output  557 lines and stripped 123 lines
- 7.03 Iteration 4 Strip Variables result: Output  548 lines and stripped 9 lines
- 7.14 Iteration 5 Strip and Rename Variables result: Output  548 lines and stripped 0 lines
+> Source    35315 lines 1629211 Characters.
+> Stripped  19780 Func/Var lines and  14615 comment lines, Total 1611265 Characters.
+> Saved     97% lines 98% Characters.
+> Au3Stripper v19.102.1901.0 finished created:C:\SMB\Central_PC\V6\lixo_stripped.au3
+>15:07:38 Au3Stripper ended.rc:0
>Running AU3Check (3.3.14.5)  from:C:\Program Files (x86)\AutoIt3  input:C:\SMB\Central_PC\V6\lixo_stripped.au3
+>15:07:38 AU3Check ended.rc:0
>Running:(3.3.14.5):C:\Program Files (x86)\AutoIt3\aut2exe\aut2exe.exe  /in "C:\SMB\Central_PC\V6\lixo_stripped.au3" /out "C:\Users\José\AppData\Local\AutoIt v3\Aut2exe\~AU558.tmp.exe" /nopack /comp 2
+>15:07:39 Aut2exe.exe ended.C:\Users\José\AppData\Local\AutoIt v3\Aut2exe\~AU558.tmp.exe. rc:0
+>15:07:39 Created program:C:\SMB\Central_PC\V6\lixo.exe
+>15:07:39 AutoIt3Wrapper Finished.
>Exit code: 0    Time: 11.88

[joseLB]

Please notice as it is part of a much longer program, I had to do some "changes" so I could compile/run it. It´s based on events. So, please click at button "Salvar" at the screen (Save) to see the msgbox displayin it´s results.

[joseLB]

And how I eliminated eval() so I didnt have to  use a long case or edit Koda output each change if I use na array?

;### we must assure that fields are in desired order at Koda...
;### group1 -> 11 radio buttons
    $tlNivMan_1 = GUICtrlCreateRadio("+25", 88, 35, 57, 17)
    $tlNivMan_2 = GUICtrlCreateRadio("+20", 88, 63, 49, 17)
    ...
    $tlNivMan_11 = GUICtrlCreateRadio("+20", 88, 63, 49, 17)
;### group2 -> 9 radio buttons
    $tlDenMan_1 = GUICtrlCreateRadio("até 1.125", 168, 35, 117, 17)
    ...
    $tlDenMan_9 = GUICtrlCreateRadio("1.125 a 1.150", 168, 67, 117, 17)
    
    
;### as fields are created sequentialy we can use 1st field ID value and increment for next fields of each group
   For $K=1 to 11
        $idCtrl= $tlNivMan_1 + ($K-1)                   ;group1: 1st field ID value is incremented sequentially for the next 11 fields
        If GUICtrlRead( $idCtrl ) = $GUI_CHECKED Then
            $nivel= 25 - ($K-1) * 5
        EndIf
        If $K > 9 Then ContinueLoop                     ;as group 2 has only 9 fields, skip 10..11
        $idCtrl= $tlDenMan_1 + ($K-1)                   ;group2: 1st field ID value is incremented sequentially for the next 9 fields
        If GUICtrlRead( $idCtrl ) = $GUI_CHECKED Then
            $densidade= 1.101 + (($K-1)* 0.025)
        EndIf
    Next

 

[Jos]

On 8/9/2019 at 8:35 PM, joseLB said:

I think I got the compilation withou the warning arround the same piece of code.

While not totaly functional, I think it fullfil your needs.

I do not have the SLG.au3 include you use. could you provide that?

Thanks Jos

Edited August 11, 2019 by Jos

[pseakins]

https://www.autoitscript.com/site/autoit/downloads/

This is the link that is offered to you in the "Check for updates" option in the Windows start menu. I have been checking regularly to see if there have been any updates and it keeps telling me my installed version is 3.3.14.5 dated March 15th, 2018 and the latest public release is 3.3.14.4 dated March 8th 2018.

Via the link at the end of this forum article I see there is a new (?) update link, although it still says it is 3.3.14.5 but dated 2/1/19.

https://www.autoitscript.com/site/autoit-script-editor/downloads/?new

I'm wondering if the obsolete link should be deleted or updated to redirect to the current download page, or is there something I don't understand?

 

Edited September 18, 2019 by pseakins
Wording

[Jos]

This first link provides information about the AutoIt3 installer and the second link about the separate SciTE4AutoIt3 installer updates.

Jos

[seadoggie01]

When I'm compiling a script to a3x, it seems that AutoIt3Wrapper doesn't update the file version. Is this intended?
(I realize that the a3x file won't have the version in it, I was just attempting to use it for documentation)

#AutoIt3Wrapper_Outfile_type=a3x
#AutoIt3Wrapper_Res_Fileversion=0.0.0.1
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y

[Jos]

24 minutes ago, seadoggie01 said:

Is this intended?

Not really. Fixed that in the current Beta.  

Thanks for the report.
Jos

[Jos]

Continue here: