wakillon

StringFinder v1.2.3

11 posts in this topic

#1 ·  Posted (edited)

I hate the Microsoft Windows search.

After trying the powerfull "Agent Ransack", i said to myself ; why not create a free alternative in AutoIt ?

201510141745381cpo1f.jpg

StringFinder replace my old TinyAu3FilesSearch utility and will be added to the next version of SciTE Hopper

Unlike to TinyAu3FileSearch, you can search strings in any "Text" files.

Source and compiled Version are available in the Download Section.

Enjoy !

 

Edited by wakillon
2 people like this

AutoIt 3.3.14.2 X86 - SciTE 3.6.0WIN 8.1 X64 - Other Example Scripts

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

Wow.. this is way cooler than the one I wrote, Bravo!!! :cheer:  Thanks for sharing!  My only constructive criticism would be the option to open the file in whatever editor you specify (or maybe the default mime type), other than that this thing is super awesome!!  Wait.. I see you have done this:

Local $iEncoding = FileGetEncoding($sSelectedFilesPath)
If $iEncoding > 512 Or $iEncoding = 16 Then
    ShellExecute('"' & $sSelectedFilesPath & '"')
Else
    If FileExists($sSciTEPath) Then
        Run($sSciTEPath & ' "' & $sSelectedFilesPath & '"')
    Else
        ShellExecute('"' & $sSelectedFilesPath & '"')
    EndIf
EndIf

Looks like you open it based on the file encoding, I prefer mime type so I replaced the above with this:

ShellExecute('"' & $sSelectedFilesPath & '"')

 

Here was my old grep function:

Func grepsearch($searchfold, $searchstr)
    If StringRight($searchfold, 1) <> "\" Then $searchfold = $searchfold & "\"
    Local $foldlist = _FileListToArrayRec($searchfold, "*", 2, 1)
    If UBound($foldlist) > 0 And GUICtrlRead($chkSubdirectories) = $GUI_CHECKED Then
        Local $filelist, $filecontents, $foundlist[9999999], $foundcnt = 0, $flo, $line, $z, $time
        For $i = 0 To $foldlist[0]
            If $i = 0 Then
                $filelist = _FileListToArray($searchfold, "*", 1)
                $foldlist[0] = "" ;so the next lines won't append the count to it.
            Else
                $filelist = _FileListToArray($searchfold & $foldlist[$i], "*", 1)
            EndIf
            If UBound($filelist) > 0 Then
                For $l = 1 To $filelist[0]
                    GUICtrlSetData($lblresults, $searchfold & $foldlist[$i] & $filelist[$l])
                    If FileGetSize($searchfold & $foldlist[$i] & $filelist[$l]) >= 100000000 Then
                        $flo = FileOpen($searchfold & $foldlist[$i] & $filelist[$l], 0)
                        $z = 0
                        While 1
                            $filecontents &= FileReadLine($flo)
                            If @error = -1 Then ExitLoop
                            If _MathCheckDiv($z, 3200000) Then
                                If StringInStr($filecontents, $searchstr, 1) Then
                                    ;found
                                    $foundlist[$foundcnt] = $searchfold & $foldlist[$i] & $filelist[$l]
                                    $foundcnt += 1
                                    ExitLoop
                                EndIf
                            Else
                                $line = ""
                            EndIf
                            $z += 1
                        WEnd
                        FileClose($flo)
                    Else
                        ;m('hit')
                        $filecontents = _FileRead($searchfold & $foldlist[$i] & $filelist[$l])
                        If StringInStr($filecontents, $searchstr, 1) Then
                            ;found
                            $foundlist[$foundcnt] = $searchfold & $foldlist[$i] & $filelist[$l]
                            $foundcnt += 1
                        EndIf
                    EndIf
                Next
            EndIf
        Next
    Else
        Local $filelist = _FileListToArray($searchfold, "*", 1), $filecontents, $foundcnt = 0, $foundlist[9999999]
        If UBound($filelist) > 0 Then
            For $l = 1 To $filelist[0]
                $filecontents = _FileRead($searchfold & $filelist[$l])
                If StringInStr($filecontents, $searchstr, 1) Then
                    ;found
                    $foundlist[$foundcnt] = $searchfold & $filelist[$l]
                    $foundcnt += 1
                EndIf
            Next
        EndIf
    EndIf
    ReDim $foundlist[$foundcnt]
    Return $foundlist
EndFunc   ;==>grepsearch

I never really did finish it, because I had a hard time parsing huge files and was trying to find the fastest way.... After testing yours, it skips the large files by default, which I haven't found a way to parse out a large file fast.  The only method I've seen on the forum is reading the files in chunks with either:  FileRead or _WinAPI_ReadFile.  But I do see that in your program you can specify the max file size, very nice!

Edited by TouchOdeath

Share this post


Link to post
Share on other sites

Glad you like it ;)

Thanks.

 


AutoIt 3.3.14.2 X86 - SciTE 3.6.0WIN 8.1 X64 - Other Example Scripts

Share this post


Link to post
Share on other sites

Excellent!
Suggestion: Add a field to exclude certain files from the search result (for example: " *old*.au3 "  to not list the backups).

Kind regards

M.C.

Share this post


Link to post
Share on other sites

Excellent!
Suggestion: Add a field to exclude certain files from the search result (for example: " *old*.au3 "  to not list the backups).

Kind regards

M.C.

You can add it manually in the "_FileExtCheck" function ;)

Thanks.


AutoIt 3.3.14.2 X86 - SciTE 3.6.0WIN 8.1 X64 - Other Example Scripts

Share this post


Link to post
Share on other sites

I expressed myself badly.

What I propose would not list files of name:

* old*.au3            (for example:   StringFinder_v1.2.3_old1.au3 in the "Backup" directory created by Scite.)

This feature cannot be added to the list contained in "_FileExtCheck".
I'm wrong?

Share this post


Link to post
Share on other sites

This represents how many files ? several dozen ? several hundred ?

It can also add the risk to exclude files who are not really "backup" files...

So, given the number of files read by second, i do not think it's really usefull.

 


AutoIt 3.3.14.2 X86 - SciTE 3.6.0WIN 8.1 X64 - Other Example Scripts

Share this post


Link to post
Share on other sites

Do not be disapointed !

Free to you to adapt it to your needs :)

Its just an example.


AutoIt 3.3.14.2 X86 - SciTE 3.6.0WIN 8.1 X64 - Other Example Scripts

Share this post


Link to post
Share on other sites

Replacing this line:

If _ScriptIsAlreadyRunning() Then Exit MsgBox ( 262144+16, 'Exiting', $sSoftTitle & ' is Already Running !', 4 )

with this:

If _ScriptIsAlreadyRunning() Then Exit WinSetState("StringFinder v 1.2.3",'',@SW_SHOWNORMAL)

because having a message box telling you your stupid is annoying and a waste of time.

Share this post


Link to post
Share on other sites

Replacing this line:

If _ScriptIsAlreadyRunning() Then Exit MsgBox ( 262144+16, 'Exiting', $sSoftTitle & ' is Already Running !', 4 )

with this:

If _ScriptIsAlreadyRunning() Then Exit WinSetState("StringFinder v 1.2.3",'',@SW_SHOWNORMAL)

because having a message box telling you your stupid is annoying and a waste of time.

Thanks to share this profound reflection.;)

1 person likes this

AutoIt 3.3.14.2 X86 - SciTE 3.6.0WIN 8.1 X64 - Other Example Scripts

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now

  • Similar Content

    • Gowrisankar
      By Gowrisankar
      Hello everyone,
      I'm working on a task where, a PDF file is opened (in IE browser) when I click a link in a website.
      I have to read the first page of the PDF to find particular strings. Can you please share some ideas?
    • DeathChicken
      By DeathChicken
      If possible please add or edit the comments to explain how this works.
       
      ;includes functions from other things
      #include <GDIPlus.au3>
      #include <ScreenCapture.au3>
      ;hotkeys
      HotKeySet("{ESC}", _exit)
      HotKeySet("{F1}", _scan)
      ;global variables
      Global $win_title                    ;name of the window
      Global $area_x                        ;
      Global $area_y                        ;
      Global $area_w                       ;
      Global $area_h                        ;
      Global $cursor                         ;
      Global $rect_file                      ;
      Global $hbmpscreen              ;
      Global $i=  1043                      ;moves the rect
      Global $ii=    378                      ;moves the rect
      Global $x=1044                        ;inner rect offset
      Global $y=501                          ;inner rect offset
      Global $hbmprect                    ;image inside rect
      Global $hscreen                        ;image whole screen
                                         
      _GDIPlus_Startup()                    ;?
      ;display hotkeys on screen
      ToolTip("Press F1 to scan | Press ESC to Exit",0,0)
                                          ;infinite loop to keep prog running
      While 1
          Sleep(100)
      WEnd
      Func _scan()
      ;~ reads your screen area:
      _read()
      ;~ converts screen captured into bmp
      _convert()
      ;~ .  Loads converted bmp to be read
      _loadBMP()
      ;~ compares the bmp of your scanned screen to the actual screen that is being displayed
      _compare()
      EndFunc
                                          ;reads screen
      Func _read()
          $hscreen = _ScreenCapture_CaptureWnd("", WinGetHandle($win_title), $area_x, $area_y, $area_x + $area_w, $area_y + $area_h, $cursor)
      EndFunc
                                          ;converts screen into bmp
      Func _convert()
          _GDIPlus_BitmapCreateFromHBITMAP($hscreen)
      EndFunc
                                          ;loads converted screen
      Func _loadBMP()
      _GDIPlus_BitmapCreateFromFile($rect_file)
      EndFunc
                                          ;compares savedBMP to current screen
      Func _compare()
      ;If(                              below code                                     ) = (                   below code           ) Then
      If _GDIPlus_BitmapGetPixel($hbmpscreen, ($i + $x) - $area_x, ($ii + $y) - $area_y) = _GDIPlus_BitmapGetPixel($hbmprect, $x, $y) Then
      ;display message box titled found with a message of found
      MsgBox("","","found")
      ;if above is not correct then
      EndIf
      EndFunc
                                          ;exit func
      Func _exit()
          Exit
      EndFunc
    • cheeroke
      By cheeroke
      Hi all,
      I got this code and would like to be able to change Baud Rate and instead of sending character by character i would like to be able (if possible) to send whole string. But i don't know how to change it.
      I am taking input from file and processing whole line (this is done in FilesHandling.au3).
      To execute this i am just calling SendData("FileName", int) in "main" script.
      Any help very appreciated.
      #include <WinAPI.au3> #include <Array.au3> #include "FilesHandling.au3" ;init DLL function, we need handle to call the function $h = DllCall("Kernel32.dll", "hwnd", "CreateFile", "str", "\\.\COM19", "int", BitOR($GENERIC_READ,$GENERIC_WRITE), "int", 0, "ptr", 0, "int", $OPEN_EXISTING, "int", $FILE_ATTRIBUTE_NORMAL, "int", 0) $handle=$h[0] Func SendData($FileName, $LineNumber) ;string to be send $c = readFile($FileName, $LineNumber) $cLenght = StringLen($c) $aArray = StringSplit($c, "") ;_ArrayDisplay($aArray, "", Default, 64) For $i = 1 To $cLenght writeChar($handle, $aArray[$i], $cLenght) Next ;move to next line writeChar($handle, @CR,1) EndFunc ;write a single char func writeChar($handle,$c,) $stString = DLLStructCreate("char str") $lpNumberOfBytesWritten = 0 DllStructSetData($stString, 1, $c) $res = _WinAPI_WriteFile($handle, DllStructGetPtr($stString, "str"), 1,$lpNumberOfBytesWritten) if ($res<>true) then ConsoleWrite ( _WinAPI_GetLastErrorMessage() & @LF) EndIf EndFunc  
    • FroVN
      By FroVN
      Hi, i have a problem :" can't set the name of file with a special character like: \;/;";|;...  have anyway to short the StringInSrt and Stringreplace? i am using this code but too long
      $title=InputBox(0,'','','')
         if StringInStr($title,'\') or StringInStr($title,'/') or StringInStr($title,':') or StringInStr($title,'*') or StringInStr($title,'?') or StringInStr($title,'"') or StringInStr($title,'<') or StringInStr($title,'>') or StringInStr($title,'|') Then
             $title=StringReplace($title,'\','-')
              $title=StringReplace($title,'/','-')
               $title=StringReplace($title,':','-')
                $title=StringReplace($title,'*','-')
                 $title=StringReplace($title,'?','-')
                  $title=StringReplace($title,'"','-')
                   $title=StringReplace($title,'<','-')
                    $title=StringReplace($title,'>','-')
                     $title=StringReplace($title,'|','-')
         EndIf
       
    • algiuxas
      By algiuxas
      Hello everybody, so I might found a bug in _ArraySearch:
       
      #include <Array.au3> Local $abc[2] = ["b", "b"] $h = "+---------------------------------+" & @CRLF ConsoleWrite($h) For $i = 0 To 1 $abc[0] = 0 out() $abc[0] = 1 out() $abc[0] = -1 out() $abc[0] = "Abc" out() $abc[1] = "Hello" Next Func txt() Return "$abc = [" & $abc[0] & ", " & $abc[1] & "]" & @CRLF & _ "> _ArraySearch($abc,""Hello"") = " EndFunc ;==>txt Func shouldoutput($ans) Return "_ArraySearch Should return: " & ($ans ? 1 : -1) EndFunc ;==>shouldoutput Func out() ConsoleWrite("> " & txt() & _ArraySearch($abc, "Hello") & @CRLF & "> " & shouldoutput($abc[1] == "Hello") & @CRLF & $h) EndFunc ;==>out Exit Sorry for this messy script