have a Inputbox or a GUI to exit on string followed by a CR

[baamr 0]

Hi Everyone,

I`m a newbie to scripting, but i try to find a simple solution

for a simple question.

I want a inputbox to exit on a variable string followed by a CR.

Not by cliking on exit.

Please give some hints.I have search but could not find it so far.

Thanks for a very interesting proggy and forum!

cheers,

baamr

[jdelaney 272]

throwing you a fish this time:

expandcollapse popup

#include <GuiEdit.au3>
#include <WinAPI.au3> ; used for Lo/Hi word
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
Global $hEdit
_Example1()
Func _Example1()
Local $hGUI
; Create GUI
$hGUI = GUICreate("Edit Create", 400, 300)
$hEdit = GUICtrlCreateEdit("", 2, 2, 394, 150)
$hEdit2 = GUICtrlCreateEdit("", 2, 155, 394, 150)
GUISetState()
$hCurrentEditText = ""
; Loop until user exits
While 1
$msg = GUIGetMsg()
$hEditString = GuiCtrlRead ( $hEdit )
If $hCurrentEditText <> $hEditString Then
If StringRegExp ( $hEditString, "[rn]+", 0 ) Then

    $hEditString = StringRegExpReplace ( $hEditString, "[rn]+",""  )
    GUICtrlSetData ( $hEdit, $hEditString )
    ControlFocus ( $hGUI, "", $hEdit2 )
EndIf
$hCurrentEditText = $hEditString
ConsoleWrite ( $hEditString )
EndIf
Switch $msg
Case $GUI_EVENT_CLOSE
    Exit
Case $hEdit
Case $hEdit2
Case $hGUI
EndSwitch
WEnd
EndFunc ;==>_Example1

Edited August 23, 2012 by jdelaney

[PhoenixXL 159]

I want a inputbox to exit on a variable string followed by a CR.

U could check if the string ends with the CR before calling the InputBox and then exit if required

Example

$VarString='Hie There'
_ExitOnCR($VarString)
ConsoleWrite($VarString&@CR)
$VarString='Hello'&@CRLF ;Note that this will get typed Since its having @LF as the Last Char
_ExitOnCR($VarString)
ConsoleWrite($VarString&@CR)
$VarString='Nice Meeting You'&@CR; This will make the script End with the Exit Code -1 and the String will not be printed
_ExitOnCR($VarString)
ConsoleWrite($VarString&@CR)

Func _ExitOnCR($sString)
If StringRight($sString,1)=Chr(13) Then Exit -1
EndFunc

Edited August 24, 2012 by PhoenixXL

[Melba23 2,734]

baamr,

Welcome to the AutoIt forum.

I use an Accelerator key to do this:

#include <GUIConstantsEx.au3>

$hGUI = GUICreate("Test", 500, 500)

$cInput = GUICtrlCreateInput("", 10, 10, 200, 20)

$cDummy = GUICtrlCreateDummy()

GUISetState()

Local $aAccelKeys[1][2] = [["{ENTER}", $cDummy]]
GUISetAccelerators($aAccelKeys)

While 1

    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $cDummy
            MsgBox(0, "Input Content", GUICtrlRead($cInput))
            GUICtrlSetData($cInput, "")
    EndSwitch

WEnd

Please ask if you have any questions - but try the Help file first.

M23