Jump to content

cout and cin in Autoit?


Greek
 Share

Recommended Posts

You can use the FileOpen method shown here :

http://www.autoitscript.com/forum/index.php?showtopic=79275&st=0&p=571658&#entry571658

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Change2CUI=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

$maxchr = 123
$input = ""

ConsoleWrite(@CRLF&"Enter your Name:"&@CRLF)

$file = FileOpen("con", 4)
$line = BinaryToString(FileRead($file, $maxchr))
FileClose($file)

ConsoleWrite("Your name is: " & $line & @CRLF)

Sleep(2000) ; I put a sleep here, so you don't have to run it from the cmd to see the output

P.S.: Of course it's much easier to use InputBox and MsgBox :D

Edited by Inverted
Link to comment
Share on other sites

You can use the FileOpen method shown here :

http://www.autoitscript.com/forum/index.php?showtopic=79275&st=0&p=571658&#entry571658

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Change2CUI=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

$maxchr = 123
$input = ""

ConsoleWrite(@CRLF&"Enter your Name:"&@CRLF)

$file = FileOpen("con", 4)
$line = BinaryToString(FileRead($file, $maxchr))
FileClose($file)

ConsoleWrite("Your name is: " & $line & @CRLF)

Sleep(2000) ; I put a sleep here, so you don't have to run it from the cmd to see the output

P.S.: Of course it's much easier to use InputBox and MsgBox :D

I Compile it and run it, but nothing to see there?

Link to comment
Share on other sites

Nice trick, Inverted. Thanks for sharing.

Just did a little function to help with this:

Func _ConsoleRead($StripCRLF=1) ;If called with no parameters, it returns the user input stripped from CRLF, which should be the expected behaviour.
    Local $maxchr = 123
    Local $file = FileOpen("con", 4)
    Switch $StripCRLF
        Case 1
            Return StringReplace(BinaryToString(FileRead($file, $maxchr)),@CRLF,"")
        Case 0
            Return BinaryToString(FileRead($file, $maxchr))
    EndSwitch
    FileClose($file)
EndFunc   ;==>_ConsoleRead

For Greek:

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Change2CUI=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

ConsoleWrite("Enter your Name:" & @CRLF)
$name = _ConsoleRead()
ConsoleWrite("Your name is " & $name)

Func _ConsoleRead($StripCRLF=1) ;If called with no parameters, it returns the user input stripped from CRLF, which should be the expected behaviour.
    Local $maxchr = 123
    Local $file = FileOpen("con", 4)
    Switch $StripCRLF
        Case 1
            Return StringReplace(BinaryToString(FileRead($file, $maxchr)),@CRLF,"")
        Case 0
            Return BinaryToString(FileRead($file, $maxchr))
    EndSwitch
    FileClose($file)
EndFunc   ;==>_ConsoleRead
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...