index lines

[Andreik]

I want to know if is possible to get current line from my script.

For example:

GUICreate("TEST",200,200,-1,-1)
$BUTTON = GUICtrlCreateButton("EXIT",50,80,100,40)
GUISetState(@SW_SHOW)
Line()
While 1
    $MSG = GUIGetMsg()
    If $MSG = -3 Then Exit
    Sleep(25)
WEnd

Func Line()
    ...
EndFunc

And Line function return the number of current line, in this case 4.

Any ideas?

[GEOSoft]

I want to know if is possible to get current line from my script.

For example:

GUICreate("TEST",200,200,-1,-1)
$BUTTON = GUICtrlCreateButton("EXIT",50,80,100,40)
GUISetState(@SW_SHOW)
Line()
While 1
    $MSG = GUIGetMsg()
    If $MSG = -3 Then Exit
    Sleep(25)
WEnd

Func Line()
    ...
EndFunc

And Line function return the number of current line, in this case 4.

Any ideas?

Only in a script. Not a compiled script.

See the macro @ScriptLineNumber in the help file.

[Andreik]

Only in a script. Not a compiled script.

See the macro @ScriptLineNumber in the help file.

And is no other way to get line number?

[Xenobiologist]

TrayIconDebug

[martin]

And is no other way to get line number?

Is there some special reason to know the line number?

[Andreik]

Is there some special reason to know the line number?

Some time ago I programming QBasic and there is TRON command, I want a command like that.

[martin]

Some time ago I programming QBasic and there is TRON command, I want a command like that.

Yes I understand that you want it but I just wondered if there was some special reason, like was it for debugging the script for example.

Why is @ScriptLineNumber no good, or TrayIconDebug no good? Do you need it for a compiled script?

[Andreik]

Yes I understand that you want it but I just wondered if there was some special reason, like was it for debugging the script for example.

Why is @ScriptLineNumber no good, or TrayIconDebug no good? Do you need it for a compiled script?

Yes, I want to use for a compiled script but if is not possible I will search for other ways to do that.

Thanks martin and Xenobiologist for help!

[martin]

Yes, I want to use for a compiled script but if is not possible I will search for other ways to do that.

Thanks martin and Xenobiologist for help!

Here's a suggestion

Step one, you have a function which must be called LineOutFunc that you use to deal with the line number. It could be like this

Func LineOutFunc($ll);$ll is the line number
    ToolTip("line = " & $ll,0,0)
EndFunc

and you save this function in a script of it's own called LineOut.au3, and you make sure that it's saved in the same folder as the script you want to compile with line numbers.

Then you use this script

$sf = FileOpen(FileOpenDialog("script to compile with line numbers", "\", "AutoIt Script (*.au3)"), 0)
$opname = InputBox("Enter name for compiled script", "exe name?")
$of = FileOpen($opname & ".au3", 2)
FileWriteLine($of, '#include "LineOut.au3"');contains your function to handle to line number
$lcount = 0
$lastline = ''
While 1
    $nextl = FileReadLine($sf)
    If @error Then ExitLoop
    $lcount += 1
    If StringRight($lastline, 2) <> " _" Then
        FileWriteLine($of, "LineOutFunc(" & $lcount & ")")
    EndIf
    
    FileWriteLine($of, $nextl)
    $lastline = $nextl
WEnd

FileClose($of)
FileClose($sf)

This will produce a new script with the name you chose. Compile it and you will get the line numbers shown if you use my example function.

Edited June 28, 2008 by martin

[Andreik]

Here's a suggestion

Step one, you have a function which must be called LineOutFunc that you use to deal with the line number. It could be like this

Func LineOutFunc($ll);$ll is the line number
    ToolTip("line = " & $ll,0,0)
EndFunc

and you save this function in a script of it's own called LineOut.au3, and you make sure that it's saved in the same folder as the script you want to compile with line numbers.

Then you use this script

$sf = FileOpen(FileOpenDialog("script to compile with line numbers", "\", "AutoIt Script (*.au3)"), 0)
$opname = InputBox("Enter name for compiled script", "exe name?")
$of = FileOpen($opname & ".au3", 2)
FileWriteLine($of, '#include "LineOut.au3"');contains your function to handle to line number
$lcount = 0
$lastline = ''
While 1
    $nextl = FileReadLine($sf)
    If @error Then ExitLoop
    $lcount += 1
    If StringRight($lastline, 2) <> " _" Then
        FileWriteLine($of, "LineOutFunc(" & $lcount & ")")
    EndIf
    
    FileWriteLine($of, $nextl)
    $lastline = $nextl
WEnd

FileClose($of)
FileClose($sf)

This will produce a new script with the name you chose. Compile it and you will get the line numbers shown if you use my example function.

I like your idea, thank you martin for all help!