PureBasic Forums - English

Code: Select all

Procedure ReadFileIntoArray(file$, Array StringArray.s(1), Separator.s = " ")
  Define String.s ; The line to which we copy the memory area containing the entire read file
  Protected S.String, *S.Integer = @S
  Protected.i countFileString, i, pos_separ, slen
  
  file_handler=ReadFile(#PB_Any,file$)
  If file_handler
    ReadStringFormat(file_handler) 
    lengthFile.q=(Lof(file_handler)-Loc(file_handler)) -2 
    If lengthFile>0
      pointMemForReadFile=AllocateMemory(lengthFile) 
      If pointMemForReadFile 
        numberBytesReadingFromFile = ReadData(file_handler,pointMemForReadFile,lengthFile)    
        String=PeekS(pointMemForReadFile,MemorySize(pointMemForReadFile),#PB_UTF8)   
        countFileString = CountString(String, Separator)                             
        slen = Len(Separator)                    
        ReDim StringArray(countFileString)       
        *S\i = @String                           
        While i < countFileString                
          pos_separ = FindString(S\s, Separator) separator "Separator"
          StringArray(i) = PeekS(*S\i, pos_separ - 1)    
          *S\i + (pos_separ + slen - 1) << #PB_Compiler_Unicode 
          i + 1                                                 
        Wend                                     
        StringArray(i) = S\s                     
        *S\i = 0                                 
        FreeMemory(pointMemForReadFile)            
        String=""                                
      Else 
        Debug "Memory Allocation error"
      EndIf
    EndIf
    CloseFile(file_handler)
  EndIf
EndProcedure

Dim LogString$(0); An array in which each line of the file will be read
ReadFileIntoArray("e:\0YP\Purebasic\LogAnalyzer\Log\test.log", LogString$() , Chr(10))
CountLogString=ArraySize(LogString$())  ; The number of lines in the read file
Debug LogString$(0) ; Print the first line of the file
Debug LogString$(CountLogString) ; Print the last line of the file

Code: Select all

If Not OpenFile(0, GetTemporaryDirectory() + "File_10_MB.txt") ; 10 MB
     Debug "File not found"
     End
 EndIf
 
Start = ElapsedMilliseconds()
Debug "Reading..."
While Not Eof(0)
     Txt$ = ReadString(0, #PB_Ascii | #PB_File_IgnoreEOL)
Wend
CloseFile(0)
Debug "Done."
Debug FormatNumber((ElapsedMilliseconds() - Start) / 1000, 2) + " secs"
Debug "Len string Txt$ : " + FormatNumber(Len(Txt$), 0)

Code: Select all

Reading...
Done.
5.09 secs
Len string Txt$ : 10,577,903