Called Function Not Executed

[KnALLE]

Greetings,

try to understand how doing the modern way without goTo, but it isnt working.

The following code has no error, but it isnt executing a select line. It is working through, till the WinWaitActive line after EndSelect, please have a look:

expandcollapse popup

$one = 1
$multible = 2
Do
    WinWaitActive("Registrierungs-Editor", "Arbeitsplatz")
    Send("{ENTER}")
    Select
    Case WinExists("Zeichenfolge bearbeiten", "Abbrechen")
        Call("_oneLine" & $one)
    Case WinExists("Mehrteilige Zeichenfolge bearbeiten", "Abbrechen")
        Call("_multibleLines" & $multible)
    EndSelect
    WinWaitActive("Registrierungs-Editor", "Arbeitsplatz")
    Send("{F3}")
Until WinActive("Registrierungs-Editor", "Das Durchsuchen der Registrierung ist beendet")

#region; section for functions
Func _oneLine($one)
    Send("{CTRLDOWN}c{CTRLUP}")
    WinActivate("Unbenannt - Editor","")
    WinWaitActive("Unbenannt - Editor","")
    Send("{CTRLDOWN}v{HOME}{CTRLUP}")
    Do
        Send("{F3}")        Send("{SHIFTDOWN}f.{SHIFTUP}{CTRLDOWN}{ALTDOWN}ß{CTRLUP}{ALTUP}")
    Until WinExists("Editor", "kann nicht gefunden werden.")
    Send("{Space}")
    Send("{CTRLDOWN}ax{CTRLUP}")
    WinActivate("Zeichenfolge bearbeiten","Abbrechen")
    WinWaitActive("Zeichenfolge bearbeiten","Abbrechen")
    Send("{CTRLDOWN}v{CTRLUP}{ENTER}")
    Return
EndFunc

Func _multibleLines($multible)
    Send("{CTRLDOWN}c{CTRLUP}")
    WinActivate("Unbenannt - Editor","")
    WinWaitActive("Unbenannt - Editor","")
    Send("{CTRLDOWN}v{HOME}{CTRLUP}")
    Do
        Send("{F3}")        Send("{SHIFTDOWN}f.{SHIFTUP}{CTRLDOWN}{ALTDOWN}ß{CTRLUP}{ALTUP}")
    Until WinExists("Editor", "kann nicht gefunden werden.")
    Send("{Space}")
    Send("{CTRLDOWN}ax{CTRLUP}")
    WinActivate("Mehrteilige Zeichenfolge bearbeiten", "Abbrechen")
    WinWaitActive("Mehrteilige Zeichenfolge bearbeiten", "Abbrechen")
    Send("{CTRLDOWN}v{CTRLUP}{ENTER}")
    Return
EndFunc

KnALLE

[Jos]

what should this line do?

Call("_oneLine" & $one)

It will try to perform function: _oneLine1() which doesn't exists.......

[Xenobiologist]

HI,

try this:

expandcollapse popup

$one = 1
$multible = 2
Do
    WinWaitActive("Registrierungs-Editor", "Arbeitsplatz")
    Send("{ENTER}")
    Select
    Case WinExists("Zeichenfolge bearbeiten", "Abbrechen")
        _oneLine(1)
    Case WinExists("Mehrteilige Zeichenfolge bearbeiten", "Abbrechen")
        Call("_multibleLines" & $multible)
    EndSelect
    WinWaitActive("Registrierungs-Editor", "Arbeitsplatz")
    Send("{F3}")
Until WinActive("Registrierungs-Editor", "Das Durchsuchen der Registrierung ist beendet")

#region; section for functions
Func _oneLine($one)
    Send("{CTRLDOWN}c{CTRLUP}")
    WinActivate("Unbenannt - Editor","")
    WinWaitActive("Unbenannt - Editor","")
    Send("{CTRLDOWN}v{HOME}{CTRLUP}")
    Do
        Send("{F3}")        
        Send("{SHIFTDOWN}f.{SHIFTUP}{CTRLDOWN}{ALTDOWN}ß{CTRLUP}{ALTUP}")
    Until WinExists("Editor", "kann nicht gefunden werden.")
    Send("{Space}")
    Send("{CTRLDOWN}ax{CTRLUP}")
    WinActivate("Zeichenfolge bearbeiten","Abbrechen")
    WinWaitActive("Zeichenfolge bearbeiten","Abbrechen")
    Send("{CTRLDOWN}v{CTRLUP}{ENTER}")
    Return
EndFunc

Func _multibleLines($multible)
    Send("{CTRLDOWN}c{CTRLUP}")
    WinActivate("Unbenannt - Editor","")
    WinWaitActive("Unbenannt - Editor","")
    Send("{CTRLDOWN}v{HOME}{CTRLUP}")
    Do
        Send("{F3}")       
        Send("{SHIFTDOWN}f.{SHIFTUP}{CTRLDOWN}{ALTDOWN}ß{CTRLUP}{ALTUP}")
    Until WinExists("Editor", "kann nicht gefunden werden.")
    Send("{Space}")
    Send("{CTRLDOWN}ax{CTRLUP}")
    WinActivate("Mehrteilige Zeichenfolge bearbeiten", "Abbrechen")
    WinWaitActive("Mehrteilige Zeichenfolge bearbeiten", "Abbrechen")
    Send("{CTRLDOWN}v{CTRLUP}{ENTER}")
    Return
EndFunc

So long,

Mega

GERMAN: KnALLE: Wenn du die Übergabe-Parameter nicht nutzt, dann kannst du sie auch gleich weglassen und der Funktion nicht übergeben. Es gibt auch ein deutsches Forum und ein deutsches Help-File.

[Uten]

I would do somthing like this

$one = 1
$multible = 2
do
    ConsoleWrite("Do select case" & @LF)
    Select
        
        Case 1 = WinWaitActive("Untitled -", "", 1); You need a timeout on WinWaitActive
            _oneLine($one )                       ;Normal function call
        Case 1 = WinExists("C:\","")
                        Call("_multibleLines",  $multible ) ;You used & rather than a seperator ","
        case else 
            ConsoleWrite("NOTHING DONE: @errror:=" & @error & @LF)
    EndSelect
    sleep(1000) 
Until GUIGetMsg() = -3

#region; section for functions
Func _oneLine($one)
    Msgbox(0,"MSG", "_oneLine(" & $one & ")",10)
EndFunc

Func _multibleLines($multible)
    Msgbox(0,"MSG", "_multibleLines(" & $multible & ")",10)
EndFunc

This works on my system. Scite has "C:\" as its window title. Notepad should be easy to start.

[KnALLE]

Solution is working perfectly

As JdeB has pointed out I call a function which is not present because of the missed parameter.

And right th.meger I dont work which these parameters before, but the Call- command only works with a parameter.

So Im happy with the following code to make this TabletPC System independent from his first Partition.

expandcollapse popup

$one = 1
$multible = 2
Do
    WinWaitActive("Registrierungs-Editor", "Arbeitsplatz")
    Send("{ENTER}")
    Select
    Case WinExists("Zeichenfolge bearbeiten", "Abbrechen")
        _line(1)
    Case WinExists("Mehrteilige Zeichenfolge bearbeiten", "Abbrechen")
        _lines(2)
    EndSelect
    WinWaitActive("Registrierungs-Editor", "Arbeitsplatz")
    Send("{F3}")
Until WinExists("Registrierungs-Editor", "Das Durchsuchen der Registrierung ist beendet")
Exit

#region; section for functions
Func _line($one)
    Send("{CTRLDOWN}c{CTRLUP}")
    WinActivate("Unbenannt - Editor","")
    WinWaitActive("Unbenannt - Editor","")
    Send("{CTRLDOWN}v{HOME}{CTRLUP}")
    Do
        Send("{F3}")
        Send("{SHIFTDOWN}f.{SHIFTUP}{CTRLDOWN}{ALTDOWN}ß{CTRLUP}{ALTUP}")
    Until WinExists("Editor", "kann nicht gefunden werden.")
    Send("{Space}")
    Send("{CTRLDOWN}ax{CTRLUP}")
    WinActivate("Zeichenfolge bearbeiten","Abbrechen")
    WinWaitActive("Zeichenfolge bearbeiten","Abbrechen")
    Send("{CTRLDOWN}v{CTRLUP}")
    ControlClick("Zeichenfolge bearbeiten", "Abbrechen", 1)
    Return
EndFunc

Func _lines($multible)
    Send("{CTRLDOWN}c{CTRLUP}")
    WinActivate("Unbenannt - Editor","")
    WinWaitActive("Unbenannt - Editor","")
    Send("{CTRLDOWN}v{HOME}{CTRLUP}")
    Do
        Send("{F3}")
        Send("{SHIFTDOWN}f.{SHIFTUP}{CTRLDOWN}{ALTDOWN}ß{CTRLUP}{ALTUP}")
    Until WinExists("Editor", "kann nicht gefunden werden.")
    Send("{Space}")
    Send("{CTRLDOWN}ax{CTRLUP}")
    WinActivate("Mehrteilige Zeichenfolge bearbeiten", "Abbrechen")
    WinWaitActive("Mehrteilige Zeichenfolge bearbeiten", "Abbrechen")
    Send("{CTRLDOWN}v{CTRLUP}")
    ControlClick("Mehrteilige Zeichenfolge bearbeiten", "Abbrechen", 1)
    Return
EndFunc

In former times of NT4.0 the system was so concise, that this was possible doing manually

good old days. And with the hint from Uten I keep it as well as with such old systems:

· Never change it as long as it is working out what you want, NEVER. Gladly next time, thank you.

KnALLE, improve his English because of staying abroad soon