Get script line number before compiling

[ngskicker]

I often use this in my script

If @error then
MsgBox(262144 + 8192 + 16, "Error: 455", "Process failed, cannot find object or connection timeout.")
EndIf

where 455 is line number in my au3 file, the problem is when I add new lines before line 455, the script line number change, and no longer valid, I know I can use @ScriptLineNumber, but as help file says:

Line number currently being executed. Useful for debug statements such as the calling line number for a function. (Not significant in compiled scripts)

 

this is not significant in compiled scripts, what I want is some scite function maybe, than can set line number before compiling, so the line number is stitll same when displayed on uncompiled and compiled script,

[Jos]

The easiest way is to use @ScriptLineNumber and run au3stripper to generate a single script which is exactly stored in the generated EXE.

See Full SciTE4AutoIt3 installer for details on au3stripper.

Jos

Edited December 11, 2014 by Jos

[ngskicker]

Hi Jos, thanks for your suggestion,

I know that Jos, but I find it hard to do, that make my script even bigger and difficult to maintain, I have a few thousands of line on my main au3 file, not including included file.

Edited December 11, 2014 by ngskicker

[Jos]

Hi Jos, thanks for your suggestion,

I know that Jos, but I find it hard to do, that make my script even bigger and difficult to maintain, I have a few thousands of line on my main au3 file, not including included file.

Why?

You keep on maintaining your original script as you do today.

Just use the Script_Stripped.au3 version for the reference to the error lines.

Jos

[mLipok]

Hi Jos, thanks for your suggestion,

 

I know that Jos, but I find it hard to do, that make my script even bigger and difficult to maintain, I have a few thousands of line on my main au3 file, not including included file.

 

You can use @ScriptLineNumber without Au3Stripper.

Just use this in your MsgBox(....

If @error then
MsgBox(262144 + 8192 + 16, "Error: " & @ScriptLineNumber, "Process failed, cannot find object or connection timeout.")
EndIf

btw.

using Au3Stripper you can use this parameter:

 

- Added #Au3Stripper_Parameters Parameter:

        - /rsln -> Replace @ScriptLineNumber with the actual line number for source debug purposes with compiled scripts. (Idea of mLipok)

 

 

EDIT:

and remember

When you use @ScriptLineNumber in Run mode (not compiled) this macro  ( I mean @ScriptLineNumber) return line number relative to each au3 file separately.

 

EDIT2:

but if you want to use compiled version then the only way is using @ScriptLineNumber with Au3Stripper and /rsln parameter

Then you get Line Number which all are relative to a single file [your_Script_name]_Stripped.au3

But this is very easy to find exactly that one line, and after that you can easily find the same line in you original script file.

I use it almost every day.

Summarizing: just like Jos say here:

 

You keep on maintaining your original script as you do today.

Just use the Script_Stripped.au3 version for the reference to the error lines.

Edited December 11, 2014 by mLipok

[mrider]

I realize this isn't going to be very helpful in this context, since my solution uses Perl rather than AutoIt.  Having said that, I have a program that all totalled is roughly 10k LOC, and it would be interesting (in the Chinese curse sense) to maintain the internal logging line numbers.  And considering that there are 12 different modules, I didn't want to go the route of one huge source file with line numbers for that - I log the module where the problem occurs along with the line number in that module.

My solution is a separate Perl program that parses the code, tracks the current file line number, and then rewrites the source file with proper numbers.  I run this program after any change to the source. 

Again, I realize this won't help you directly.  But maybe it can give you an idea?

My Perl code is:

expandcollapse popup

#!/usr/bin/perl
use strict;
use warnings;

my @files = qw(
    Advanced.au3
    Containing.au3
    FileAttributes.au3
    FileDates.au3
    FileSearch.au3
    FileSearch_Globals.au3
    FileSize.au3
    Logging.au3
    NameAndLocation.au3
    Preferences.au3
    SQLite3.au3
    ContextMenu.au3
);

foreach my $file (@files) {
    renumber_file($file);
}

sub renumber_file {
    my $fn = shift;
    my @lines;
    my $line;
    my $changed = 0;
    my $linenum = 1;
    open(my $in, "<", $fn) or die;
    while(<$in>) {
        if (m/(^\s*WriteLog\s*\(".*?", ".*?", )[0-9]+(.*\))$/) {
            $line = $1 . $linenum . $2 . "\n";
            $changed++;
        } else {
            $line = $_;
        }
        push @lines, $line;
        $linenum++;
    }
    close($in);

    if($changed) {
        $line = 0;
        open(my $out, ">", $fn) or die;
        foreach $line (@lines) {
            print $out $line;
        }
        close($out);
    }
}

[ngskicker]

Hi @jos, thanks to you and @mLipok now I understand what you mean, I try it and it's not bad,

and @mrider, you give me good idea, combining with AutoItWrapper Run Before/After this is also good solutions, thanks all of you

this is my script:

#include <File.au3>

If(Number($CmdLine[0]) >= 1) Then
    _RenewLineNumber($CmdLine[1])
EndIf

Func _RenewLineNumber($sFileList)
    Local $sFileLines
    _FileReadToArray($sFileList, $sFileLines)

    For $i = 1 To $sFileLines[0]
        If StringInStr($sFileLines[$i], "Error: ") Then
            $sFileLines[$i] = StringRegExpReplace($sFileLines[$i], '(["])(\bError: [\d]{1,})(["])', '"Error: ' & $i & '"')
        EndIf
    Next

    _FileWriteFromArray($sFileList, $sFileLines, 1)
EndFunc

then I add

#AutoIt3Wrapper_Run_Before=%scriptdir%\__AddLineNumber.exe %in%

on my other script, so every time I compile my script, my error line ("Error: 455") is updated, please tell me if something I miss.

Edited December 11, 2014 by ngskicker