FileReadLine to Variable, any way do it faster? [solved]

[topten]

I have a script, where I need to read file line by line to a variable (80000 lines) takes it forever to do it. Is any way to make it faster?

Local $hFileOpen = FileOpen($SelectFile, $FO_READ)
$str = ""
  for $i = 1 to $num ; ~about 80000 lines
    Local $sFileRead = FileReadLine($hFileOpen, $i)
    $str = $str&$sFileRead
  next

Great thanx in advance!

Edited May 7, 2016 by topten

[InunoTaishou]

What kind of data are you trying to read from the file?

Why are you doing it a line at at time when you're just appending it to a string without the line feed?

Local $hFileOpen = FileOpen($SelectFile, $FO_READ)
Local $sStr = ""
If ($hFileOpen) Then
    $sStr = StringRegExpReplace(FileRead($hFileOpen), "[\r\n]", "")
    FileClose($hFileOpen)
EndIf

This will do the same thing.

[Trong]

short:

FileReadToArray()

 

[Jos]

How much faster is this version for you?

Local $hFileOpen = FileOpen($SelectFile, $FO_READ)
$str = ""
for $i = 1 to $num ; ~about 80000 lines
    $str&= FileReadLine($hFileOpen)
next

Or else try this:

Local $str = FileRead($SelectFile)
$str = StringReplace($str,@crlf,"")

Jos

[topten]

Great thanx  InunoTaishou,  Trong, Jos !

It works now much better

  On 5/7/2016 at 4:57 PM, Jos said:

How much faster is this version for you?

Local $hFileOpen = FileOpen($SelectFile, $FO_READ)
$str = ""
for $i = 1 to $num ; ~about 80000 lines
    $str&= FileReadLine($hFileOpen)
next

This one is say, 3-5 times faster than mine

 

 

Or else try this:

Local $str = FileRead($SelectFile)
$str = StringReplace($str,@crlf,"")

This one is about 20-30  times faster than mine

Expand