Replace @cr With @crlf

[Simucal]

Ok... so I am attempting to use the function _FileCountLines, but every time I would on my particular log file it would return "1" line. So, after opening the log file in notepad... I think the problem is the character used to indicate a new line in my file is just @CR and needs to be @CRLF. Because in notepad it is all on one line basically.

I was thinking I would need to use StringReplace but I dont want to alter the original log file. How could I have this output the modified text to a temp file?

[GaryFrost]

might work for you.

#include <file.au3>
Dim $aRecords
If Not _FileReadToArray(@ScriptDir & "\readme.txt",$aRecords) Then
   MsgBox(4096,"Error", " Error reading log to Array     error:" & @error)
   Exit
EndIf
MsgBox(0,'Line Count',$aRecords[0])

[Simucal]

That was a clever idea.. however, it is still returning 1. I think the problem still lies in the @CR being used as the character to specify the end of a line vs the @CRLF character.

[Valuater]

Maybe stringreplace()

replace @CR with @CRLF

8)

[GaryFrost]

That was a clever idea.. however, it is still returning 1. I think the problem still lies in the @CR being used as the character to specify the end of a line vs the @CRLF character.

hmmm, works for me in release and beta, and made sure I had a file that only had @cr,

might be a null character in the file your trying to get info from.

[SmOke_N]

You could try this:

$hFileOpen = FileOpen('FileLocationName', 0)
$hFileRead = FileRead($hFileOpen , FileGetSize($hFileOpen))
$aSplit = StringSplit($hFileRead, @LF)
FileClose($hFileOpen)

MsgBox(0, 'Total Lines', 'The Total Lines were: ' & Ubound($aSplit) - 1)

And relplace @LF with @CR / @CRLF until you find the right combination I guess.

Edit: I didn't have the total lines in there.

Edited April 10, 2006 by SmOke_N

[Simucal]

Attached is the file I am attemping to find the line number of.

LogFile.txt

[GaryFrost]

Attached is the file I am attemping to find the line number of.

hmmm, it's treating the whole file as 1 line even with the cr's

[GaryFrost]

$file = FileRead(@ScriptDir & "\LogFile.txt ")
$file = StringSplit($file,@CR,1)
Msgbox(0,"Line Count", $file[0])
;For $x = 1 to $file[0]
;   Msgbox(0,'Record:' & $x, $file[$x])
;Next

Edit: forgot, my code uses the beta

Edited April 10, 2006 by gafrost

[SmOke_N]

This worked too:

#include <file.au3>
$Location = @DesktopDir & '\Au3Test.txt'
Local $aSplit = ''
_FileReadToArray($Location, $aSplit)

MsgBox(0, '', UBound($aSplit) - 1)

442 lines...

[Simucal]

They both work beautifully.. thanks for the solutions!