Jump to content

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


baamr
 Share

Recommended Posts

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

Link to comment
Share on other sites

throwing you a fish this time:

#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 by jdelaney
IEbyXPATH-Grab IE DOM objects by XPATH IEscriptRecord-Makings of an IE script recorder ExcelFromXML-Create Excel docs without excel installed GetAllWindowControls-Output all control data on a given window.
Link to comment
Share on other sites

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 by PhoenixXL

My code:

PredictText: Predict Text of an Edit Control Like Scite. Remote Gmail: Execute your Scripts through Gmail. StringRegExp:Share and learn RegExp.

Run As System: A command line wrapper around PSEXEC.exe to execute your apps scripts as System (LSA). Database: An easier approach for _SQ_LITE beginners.

MathsEx: A UDF for Fractions and LCM, GCF/HCF. FloatingText: An UDF for make your text floating. Clipboard Extendor: A clipboard monitoring tool. 

Custom ScrollBar: Scroll Bar made with GDI+, user can use bitmaps instead. RestrictEdit_SRE: Restrict text in an Edit Control through a Regular Expression.

Link to comment
Share on other sites

  • Moderators

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

Public_Domain.png.2d871819fcb9957cf44f4514551a2935.png Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind

Open spoiler to see my UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...