Is there a Console Copy function? OR how can I create one?

[taylansan]

Hi Autoit,

Is there a way that I can copy the output of ConsoleWrite without selecting C:\Program Files etc? 

Question-1: Let's say I have the below code

For $i = 1 To 10
    ConsoleWrite($i & @TAB)
Next
ConsoleWrite(@CRLF)

This is my output: 

I only want to copy the red box area. In this example, I'm just counting the numbers from 1 to 10 and there are only two ConsoleWrite. If I had a lot of ConsoleWrite with multiple (thousands) of result, how can I copy? Or copy everything and do notepading?

 

Question-2: How about if there's an error? The same code as above, but there's an unexpected number in the middle. Of course, the result will fail:

For $i = 1 To 10
    1
    ConsoleWrite($i & @TAB)
Next
ConsoleWrite(@CRLF)

But I want to copy this output in the red box: 

 

Both questions are similar but the idea is the same. I want to copy the content starting from ">Running AU3Check (3.3.16.1)" until "+>AutoIt3Wrapper Finished"

 

[mLipok]

Sure.  You can get entire text and parse with regexp

[argumentum]

3 hours ago, taylansan said:

If I had a lot of ConsoleWrite with multiple (thousands) of result, how can I copy? Or copy everything and do notepading?

..write a log file ?, I mean, thousands of results ?. Are you planning to use it to code, log, ..use how ?
The line of questioning goes towards the solution that would better fit your needs. 

[Musashi]

I second @argumentum 's suggestion, that writing a LOG file is most likely the preferable approach (especially when you have to deal with thousands of lines).

AutoIt already provides a suitable function, see : https://www.autoitscript.com/autoit3/docs/libfunctions/_FileWriteLog.htm

To turn logging on/off an additional switch would be beneficial.

#include <File.au3>

Global $g_sLogfile   = @ScriptDir & "\Example.log"
Global $g_bLoggingOn = True ; turning logging on/off

; Example :
_LogWrite('Start Logging')
_LogWrite('Logging some text')

Func _LogWrite($sLogStr)
    If $g_bLoggingOn Then
        _FileWriteLog($g_sLogfile, $sLogStr)
    EndIf
EndFunc

 

[rudi]

Hi.

simply process the required string content within your code, stored to some appropriate variables.

 

You don't need to write it to the console output and then to read back what YOUR CODE had written to the SciTE output console before, nor to write to a log file and then to re-read the content back into your program.

[ioa747]

4 hours ago, taylansan said:

I only want to copy the red box area.

Local $sTxt = ""
For $i = 1 To 10
   $sTxt &= $i & @TAB
Next
ConsoleWrite($sTxt & @CRLF)
ClipPut($sTxt)

 

Edited August 10, 2023 by ioa747

[taylansan]

Both logging and ClipPut or storing the output in a new variable are semi-acceptable answers when everything is working good, but not complete. Let's say I'm a fan of ConsoleWrite and I have 10k ConsoleWrite lines in my code. Then I need to write a new line for log or ClipPut the output 10k times or setting the $sText = $sText & "whatever new output" to store it.

ClipPut is kinda risky, because if I Ctrl+C something else accidentally, I will lose all my progress.

 

 

Replacing ConsoleWrite with (or adding) logging is an option. 

So, how about Question-2? There's in an error in my 2nd example (there's a random number "1" in the middle of the code, and I get the error message obviously). _FileWriteLog needs two parameters; file name (okay) and a text to log. How _FileWriteLog can store the are shown in the 2nd example in case of an error? What text should I input there to log? "1"? or "~^"? We can't do that, because we don't know what error I'm going to get until we run the code. 

 

 

That's why I specifically mentioned the red box in the success and error case. I wanted to focus on the output given by Autoit itself. How can I get (or store) Autoit output (that blue green yellow red lines or the bottom half of the window) into a text? Is there a way to target the Autoit output directly? 

[mLipok]

Out of computer, I will make example later.

[jchd]

1 hour ago, taylansan said:

So, how about Question-2? There's in an error in my 2nd example

For that there's one silver bullet: AU3Check your source, compile it but first, write correct code!

[mLipok]

I was working on such snippet:

#include <MsgBoxConstants.au3>

_Example()

Func _Example()
    Sleep(100)
    Local $sText = ControlGetText("[CLASS:SciTEWindow]", "", "[CLASSNN:Scintilla2]")
    MsgBox($MB_TOPMOST, "Test 1", $sText)

    Local $aTemp = StringRegExp($sText, '(?i)(\V+Running:.*?AutoIt.*\.exe.*\.au3\V+)', 3)
    ConsoleWrite(UBound($aTemp) & @CRLF)

    If UBound($aTemp) Then
        MsgBox($MB_TOPMOST, "Test 2", $aTemp[0])
    EndIf

EndFunc   ;==>_Example