_FileCountLines error?

[Subhobroto]

Hi

I implemented the line counting in PERL because I did not have much time to whip it up in C++ or AutoIt.

The bonus of this code is I get to show people how to embed PERL in AutoIt :-)

Ah - but that means to do so/try out this example, you need ActivePerl to be installed on your system (but how does not ;-) )

Altough I did not compare the test results of the other functions, I would believe MrCreatoR's matches mine so far.

His results will differ with mine only in those cases where we don't want to count trailing blank.

Infact I will be interested in knowing why would anyone want to dismiss count trailing blank line?

Anyways, here is the code:

CODE

Func LineCountPerl($sFilePath, $ignoreTrailingBlankLine = 0)

Local $oSC = ObjCreate("ScriptControl")

$oSC.language = "PerlScript"

Local $code = 'sub countLines{'

$code &= @LF & '$/ = undef;'

$code &= @LF & 'open INPUTFILE, $_[0] or return 0;'

$code &= @LF & 'binmode INPUTFILE;'

$code &= @LF & 'my $inputLine = <INPUTFILE>;'

$code &= @LF & 'return 0 if (0 == length($inputLine));'

$code &= @LF & 'my $count = 1 + ($inputLine =~ tr/\x0D//);'

$code &= @LF & 'while ($inputLine =~ /[^\x0D]\x0A/g) { ++$count; }'

$code &= @LF & 'my $last2Characters = (unpack("x" . (length($inputLine) - 2) . " a2", $inputLine));'

$code &= @LF & 'if ((unpack("x1 a1", $last2Characters) =~ tr/\x0D\x0A//) && ($last2Characters =~ tr/\x0D\x0A//))'

$code &= @LF & '{'

$code &= @LF & '--$count if (1 == ' & $ignoreTrailingBlankLine & ');'

$code &= @LF & '}'

$code &= @LF & 'close INPUTFILE;'

$code &= @LF & 'return $count;'

$code &= @LF & '}'

$oSC.addcode($code);

return $oSC.eval('countLines("' & $sFilePath & '");');

EndFunc

Attached is the updated POC with other's code too.

I have not attached the test files, but screenshots are attached for proof ;-)

[MrCreatoR]

I have not attached the test files, but screenshots are attached for proof

About the «expected», what you mean?

Please show me a file with the «--- expected 1» and my script return «2».

[MrCreatoR]

Here is the version with additional parameter $iCountLastLine:

$iCountLines = _FileCountLinesEx("Test.txt", 0)
$sCL_Results = StringFormat("Lines = %i\n@error = %i", $iCountLines, @error)

ConsoleWrite($sCL_Results)

Func _FileCountLinesEx($sFilePath, $iCountLastLine=1)
    Local $iCountLines = 0
    Local $sFRead = FileRead($sFilePath)
    
    If @error = -1 Then Return SetError(1, 0, 0) ;The file is empty
    If @error <> 0 Then Return SetError(2, 0, 0) ;File not exists or other "Read" error.
    
    If Not $iCountLastLine Then $sFRead = StringStripWS($sFRead, 2)
    
    $sFRead = StringReplace($sFRead, @CRLF, "")
    $iCountLines += @extended
    
    $sFRead = StringReplace($sFRead, @CR, "")
    $iCountLines += @extended
    
    StringReplace($sFRead, @LF, "")
    $iCountLines += @extended
    
    Return $iCountLines + 1
EndFunc