Simple Code Searcher

Blitz3D Forums/Blitz3D Programming/Simple Code Searcher

virtlands (Posted 2013) [#1]

Hi, most of us have lots of *.BB or *.BMX files lying about, and probably 1000's of them in a directory, ... In my case I have over 5000 BB files (in various dirs). Sometimes I forget where certain code is (whether it's made by me or someone else). So, I thought of making this program here, called "Simple Code Searcher". What it does is scan any list of directories that you configure it to scan; It shall scan the AppDir (where the program is) by default. How it works: You input a keyword to search for, and it displays all lines in the BB or BMX files that contain that keyword. One very popular keyword to search for = "FUNCTION", because we forget where certain code is that we made sometimes. I made this in a hurry, took about 3 hours to make it, so it's not something fancy. It won't recurse to deeper sub-directories, so if necessary just make a copy all your BBs into 1 place, so that it can have access. You can download it from this link if you prefer: http://uploadingit.com/file/g9tuwkpcoiv38p2q/SimpleCodeSearcher.zip Here's the B3D program: ;;; Simple Code Searcher ;;; created by VirtLands ;;; Feb 20, 2013 ; The purpose of this program is to look through *.BB files and *.BMX files ; to search for special search strings, and then display what's found. ; ; ; --- For example, search for "FUNCTION" to display all Function names, ; --- or search for "DIM" or "Global" ; Global Appdir$ = SystemProperty$("AppDir") Global pathsMax = 10 Global resultsMax =1000 Global resultsPtr = 0 Dim result$(resultsMax) Dim pathfound(resultsMax) Global IGNORE_COMMENTS=True ;; Set this to True to avoid displaying commented stuff. Dim path$(pathsMax) ;; As your option, give search path names to any members of this array.... ;; The *.bb or *.bmx files are expected to be within any of the following user-supplied directories ;; No depth recursion is available yet in this version (1). path(0) = AppDir$ ;; The default is to search the same directory that this program is in path(1) = "C:\Blitz3d Projects\" ;; Replace these paths with your own Directories that YOU have. path(2) = "C:\wonderlands\rtw\" path(3) = "C:\Blitz3D\" ;path(4) = "." ;path(5) = "." ;; etc... ;path(10) = "." Graphics 1024,700,32,2 ClsColor 22,121,170 F_height =15 : F_bold = False : F_italic = False : F_under = False font = LoadFont("arial", F_height, F_bold, F_italic, F_under) SetFont font title$ = " Simple BB Code Searcher v1.0, [ by VirtLands ] " s$ = "" : search$ = "" : file$ = "" : filesearch$ = "" Local LinePtr AppTitle Title .Start Cls Print Print Title + " { This program searches through your *.BB files } " Print Print" Please enter a search string : ( any piece of code to search for, such as "+Q("FUNCTION")+" .) " Print search = Trim$(Lower$(Input$(" > "))) If Len(search)=0 Then search = "function" ;; search for functions by default Cls : Locate 1,1 For z=0 To pathsMax If Len(path(z)) ft = FileType( lastslash( path(z) )) If ft=2 Readpath = ReadDir( path(z) ) Repeat Repeat file = Lower$(NextFile(Readpath)) L = Len(file) If L=0 CloseDir Readpath Exit End If If FileType(file)=1 If L>2 Then If Mid$(file, L-2, 3) = ".bb" Then Exit If L>3 Then If Mid$(file, L-3, 4) = ".bmx" Then Exit End If Forever If L=0 Then Exit If True resultsCount = 0 filesearch = " ______Searchig through file "+Q(file)+" _______" R = ReadFile(file) Repeat s = Trim(Lower$(ReadLine(R))) If IGNORE_COMMENTS=True i = Instr(s,";") If i Then s = Left$(s,i-1) End If i = Instr(s,search) If i If search="function" If i=1 resultsCount = resultsCount +1 result(resultsCount) = S If resultsMax - resultsCount <3 resultsMax = resultsMax +400 Dim result(resultsMax) End If End If Else resultsCount = resultsCount +1 result(resultsCount) = S If resultsMax - resultsCount <3 resultsMax = resultsMax +400 Dim result(resultsMax) End If End If End If Until Eof(R) CloseFile R result(resultsCount+1) = "" ;; End the list with a blank End If If resultsCount>0 Print Print filesearch LinePtr = LinePtr +2 For x = 1 To resultsCount Print " "+result(x) LinePtr = LinePtr +1 If LinePtr>=45 key=WaitKey() Cls:Locate 1,1 If key=27 Then z= pathsMax +1 Goto SkipData End If If x<resultsCount Print Print filesearch+" .. " LinePtr = 2 Else LinePtr =0 End If End If Next .SkipData If key=27 Then Exit End If Forever End If End If Next WaitKey() key=0 : LinePtr=0 : resultsCount=0 Goto Start WaitKey():End Function LastSlash$(s$) ; Gives a last slash to any string that is missing one L = Len(s$) If L=0 Then Return "\" If Mid$(s$,L,1) = "\" Return s$ Else Return s$+"\" End If End Function Function Q$(s$) Local chr34$ = Chr$(34) Return Chr34 + s + Chr34 End Function ; The program is coded to ignore comments, but if you want ; it to search through comments then just change the Global Variable as you wish. Global IGNORE_COMMENTS=True ; There is a portion of the code that has this path(..) array: ; Just change these directories to your own directories that you ; wish to search; path(0) = AppDir$ ;; The default path(1) = "C:\Blitz3d Projects\" ;; Replace these path(2) = "C:\wonderlands\rtw\" path(3) = "C:\Blitz3D\" ;path(4) = "." ;path(5) = "." ;; etc... ;path(10) = "." ;--------------------------------------------------------------- Here's a sample screenshot where it searches for the keyword: FUNCTION You can search for anything you want, like "DIM", or "bit" or whatever. If you think this is useful or not, let me know.

Axel Wheeler (Posted 2013) [#2]

Nice job! FYI, The AppDir location doesn't actually scan the directory the bb file (your program) is in, it has to be compiled (exe). But then it works. When I put an absolute path into the path$ array, it works fine also. Anyway, thanks!

virtlands (Posted 2013) [#3]

Glad you tried it. There is this free program called UltraFileSearch that does similar. http://www.ultrafilesearch.com/download.html {The basic difference is that my prog displays the actual lines of info.)

Bobysait (Posted 2013) [#4]

you could try with a recursive function it's way easier to search for keywords. Const IGNORE_COMMENTS=True ;; Set this to True to avoid displaying commented stuff. Graphics 1800,900,0,2 Local dir$ = CurrentDir() ; Your Path here ; write results in a file Local out=WriteFile(dir+"\SearchResults.txt") ; start search Global totalfiles%=0, foundfiles%=0 Local t0%=MilliSecs() SearchKeywordInDir("function", dir,out,-1,False) Local t1%=MilliSecs() ; close the result file CloseFile out Print "Computed "+foundfiles+" files (total : "+totalfiles+") in : "+(t1-t0)+".ms" WaitKey End ; @RecurseDepth <0 : full recursive, else stop recursive search after @RecurseDepth loop Function SearchKeywordInDir(keyword$,dir$,streamout,RecurseDepth=-1,casesensitive%=False) If RecurseDepth=0 Then Return dir=Replace(dir,"/","\") : If Right(dir,1)<>"\" Then dir=dir+"\" Local d=ReadDir(dir) : If Not(d) Then Return If Not(casesensitive) Then keyword=Lower(keyword) Repeat Local f$=NextFile(d) If f="" Then Exit If f<>"." And f<>".." ; recursive search in directories If FileType(dir+f)=2 : SearchKeywordInDir(keyword,dir+f,streamout,RecurseDepth-1,casesensitive) Else ; search In file If Lower(FileExt(f))="bb" Or Lower(FileExt(f))="bmx" totalfiles=totalfiles+1 Local com$ = "'" : If Lower(FileExt(f))="bb" Then com = ";" Local stream=ReadFile(dir+f), firstfound%=True If stream While Not(Eof(stream)) Local l$=Trim(ReadLine(stream)) If Len(l) If (Left(l,1)<>com) Or (IGNORE_COMMENTS=False) Local found%=False If casesensitive:found=Instr(l,keyword) Else:found=Instr(Lower(l),keyword) EndIf If found If firstfound Then WriteLine streamout, "In File : '"+dir+f+"'":firstfound=False:foundfiles=foundfiles+1 WriteLine streamout, Chr(9)+"> "+l EndIf EndIf EndIf Wend CloseFile stream EndIf EndIf EndIf EndIf Forever CloseDir(d) End Function Function FileExt$(file$) Local i%:For i=Len(file) To 1 Step -1:If Mid(file,i,1)=".":Return Right(file,Len(file)-i):EndIf:Next End Function this code will export the results in the "out" file.

Addi (Posted 2013) [#5]

Am I allowed to modify your code? I would like to include a GUI and a menu for options.

Bobysait (Posted 2013) [#6]

Codes deposed on the forum without copyright or explicit license are generally "open" and free to use. (at least, I assume you can use mine)