PureBoard

Code: Alles auswählen

;PureBasic 4.3
;counts every line of specified files in subdirectories
;...just for fun
; AndyMars, KeyKon

Global GStartDir.s = PathRequester("Ordner wählen...","")
If GStartDir = "" : End: EndIf
Global GSearchPattern.s = "|pb|pbi|"
Global ClipBoardText.s
Global GFileSize.q, GFileCount.l, GLineCount.l, GDirCount.l

Global NewList Lines()

Procedure  _FilzDir(dir.s)
   If Right(dir,1)<>"\"
      dir+"\"
   EndIf
   ;PrintN(dir)
   ExId = ExamineDirectory(#PB_Any,dir,"*.*")
   If ExId
    GDirCount+1
    While NextDirectoryEntry(ExId)
       d$=DirectoryEntryName(ExId)
      If DirectoryEntryType(ExId) = #PB_DirectoryEntry_File ; --------- file
         If FindString(GSearchPattern,"|"+GetExtensionPart(d$)+"|",1)
           ;PrintN(d$)
           GFileCount+1
           GFileSize+DirectoryEntrySize(ExId)
           fhndl=OpenFile(#PB_Any,dir+d$)
           If fhndl
              GLinePerFileCount = 0
              While Eof(fhndl)=0
                 ReadString(fhndl)
                 GLineCount+1
                 GLinePerFileCount+1
              Wend
              AddElement(Lines())
              Lines() = GLinePerFileCount
              CloseFile(fhndl)
           EndIf
        EndIf
      ElseIf d$ <> "." And d$ <> ".." ; --------- directory
        _FilzDir(dir+d$)
      EndIf
    Wend
    FinishDirectory(ExId)
   EndIf
   ;Delay(1) ;concession - if you like
EndProcedure

Procedure PrintN1(text$)
  PrintN(text$)
  ClipBoardText+text$+#CRLF$
EndProcedure

If OpenConsole()
   _FilzDir(GStartDir)
   PrintN("")
   PrintN1("Total files: "+Str(GFileCount))
   PrintN1("Total f.size (KB): "+Str(GFileSize/1024))
   PrintN1("Total lines: "+Str(GLineCount))
   PrintN1("Total dirs: "+Str(GDirCount))
   PrintN1("---")
   PrintN1("Arithmetischen Mittel: "+StrF(GLineCount/GFileCount,1)+" L/F")
   
   SortList(Lines(),#PB_Sort_Ascending)
   If ListSize(Lines())%2 = 0
     SelectElement(Lines(),ListSize(Lines())/2)
     el1 = Lines()
     SelectElement(Lines(),ListSize(Lines())/2+1)
     el2 = Lines()
     median = (el1+el2)/2
   Else
     SelectElement(Lines(),Round(ListSize(Lines())/2,1))
     median = Lines()
   EndIf
   
   PrintN1("Median: "+Str(median)+" L/F")
   PrintN("")
   PrintN("Press enter...")
   
   SetClipboardText(ClipBoardText)
   
   Input()
EndIf

End

Code: Alles auswählen

Total files: 1849
Total lines: 683601

Code: Alles auswählen

Total files: 26
Total lines: 6647