PureBasic Forums - English

Code: Select all

;FastFile with Textfiles
;
;PureBasicLibrary (C) 2003 by Siegfried Rings
;
;BETA
;
;Commandset:
;
; LinesCount.l = FastOpenTextFile( Filename )  ;Opens the File for FastTEXTReading
;                                              ;Result is the lines available
;
; FastCloseTextFile()                          ;Close the File
;
; LineContent.s = FastReadLine(LineNumber)     ;Get the Content(String) of a Line
;
; Tested with following Textfile: http://www.holybiblecentral.org/holybiblekjv.zip 
;
;(this help file modified by Searhin)


;filename.s = "C:\PB_data for TreeTest.txt"   ; 281 KB
;filename.s = "C:\holybiblekjv.txt"           ; 4.23 MB
filename.s = "C:\test.txt"                   ; 20.5 MB

size = FileSize(filename)

If size > 0  And  OpenConsole() <> 0  And  CreateFile(2,"C:\results.txt")
                                            : WriteStringN(";PERFORMANCE TEST OF RINGS' FAST_TEXT_LIB")
  PrintN("file = "+filename)                : WriteStringN(";file = "+filename)
  PrintN("file size = "+Str(size)+" bytes") : WriteStringN(";file size = "+Str(size)+" bytes")
  PrintN(""): PrintN("")                    : WriteStringN(";"): WriteStringN(";")
  PrintN("first with Rings' FastFile lib:") : WriteStringN(";first with Rings' FastFile lib:")
  
  t1 = GetTickCount_()
  lines = FastOpenTextFile(filename)
  t2 = GetTickCount_() 
  PrintN(Space(2)+StrU(lines,2)+" lines counted in "+StrF((t2-t1)/1000,3)+" secs")
  WriteStringN(";"+Space(2)+StrU(lines,2)+" lines counted in "+StrF((t2-t1)/1000,3)+" secs")
  
  string.s = ""
  i.l = 0
  t1 = GetTickCount_()
  While i <= lines
    INC i
    string = FastReadLine(i)
  Wend
  t2 = GetTickCount_()
  fast.f = (t2-t1)/1000
  PrintN(Space(2)+"all lines read in "+StrF(fast,3)+" seconds")
  WriteStringN(";"+Space(2)+"all lines read in "+StrF(fast,3)+" seconds")
  
  sel_line = Int(lines/2)
  
  PrintN(""): WriteStringN(";")
  Repeat
    Print(Space(2)+"which line should be read? ")
    WriteString(";"+Space(2)+"which line should be read? ")
    input.s = Input(): line = Val(input)
    PrintN("")
    If line > 0  And  line <= lines
      WriteStringN(Str(line))
      string = FastReadLine(line)
      PrintN(Space(4)+"content of line_"+StrU(line,2)+" = "+Chr(34)+string+Chr(34))
      WriteStringN(";"+Space(4)+"content of line_"+StrU(line,2)+" = "+Chr(34)+string+Chr(34))
    ElseIf line = 0
    Else
      PrintN(Space(4)+"(invalid line number)")
      WriteStringN(";"+Space(4)+"(invalid line number)")
    EndIf
  Until input = ""
  FastCloseTextFile()
  PrintN(""): PrintN(""): WriteStringN(";"): WriteStringN(";")
  PrintN("now with generic PB functions:")
  WriteStringN(";now with generic PB functions:")
  
  ; count lines with PureBasic commands
  ; (counting and reading simultaneously is not slower compared to executing both functions in separate loops)
  lines = 0
  If ReadFile(1,filename)
    t1 = GetTickCount_()
    While Eof(1) = 0
      string = ReadString()
      INC lines
    Wend
    t2 = GetTickCount_()
    slow.f = (t2-t1)/1000
    CloseFile(1)
    UseFile(2)
    PrintN(Space(2)+StrU(lines,2)+" lines counted")
    PrintN(Space(2)+"all lines read in "+StrF(slow,3)+" seconds")
    WriteStringN(";"+Space(2)+StrU(lines,2)+" lines counted")
    WriteStringN(";"+Space(2)+"all lines read in "+StrF(slow,3)+" seconds")
    PrintN(""): PrintN(""): WriteStringN(";"): WriteStringN(";")

    If fast = 0: fast = 0.001: EndIf
    PrintN("FastFile was "+Str(slow/fast)+" times faster than generic PB")
    PrintN("Cheers Rings!")
    WriteStringN(";FastFile was "+Str(slow/fast)+" times faster than generic PB")
    WriteStringN(";Cheers Rings!")
    CloseFile(2)
    Repeat: Until Inkey()
    
  EndIf 
EndIf

End

; R E S U L T S :
; ---------------

;PERFORMANCE TEST OF RINGS' FAST_TEXT_LIB
;file = C:\holybiblekjv.txt
;file size = 4436584 bytes
;
;
;first with Rings' FastFile lib:
;  31347 lines counted in 0.030 secs
;  all lines read in 0.030 seconds
;
;  which line should be read? 1212
;    content of line_1212 = "Ge41:9 Then spake the chief butler unto Pharaoh, saying, I do remember my faults this day:"
;  which line should be read? ;
;
;now with generic PB functions:
;  31347 lines counted
;  all lines read in 7.431 seconds
;
;
;FastFile was 248 times faster than generic PB
;Cheers Rings!

;PERFORMANCE TEST OF RINGS' FAST_TEXT_LIB
;file = C:\test.txt
;file size = 21554877 bytes
;
;
;first with Rings' FastFile lib:
;  439668 lines counted in 1.662 secs
;  all lines read in 0.341 seconds
;
;  which line should be read? 250000
;    content of line_250000 = "     "AF432785""
;  which line should be read? 100000
;    content of line_100000 = "/Reference:"
;  which line should be read? ;
;
;now with generic PB functions:
;  439668 lines counted
;  all lines read in 34.460 seconds
;
;
;FastFile was 101 times faster than generic PB
;Cheers Rings!