Search & Copy

[MaCgyver]

It's been a few years so I'm working off the cob webs. Not that I was ever that great, but I was getting into the swing of it.

Looking through the helpfile, but fatigue is probably got my brain fried.

Anyway looking to Search for a specific word within a group of .txt files. Once they are located the file(s) name(s) get copied into Excel.

What function should I be looking at?

[guinness]

You should be looking at the Excel Functions with FileOpen, FileRead, FileClose, StringInStr & _FileListToArray these should get you started.

[MaCgyver]

You should be looking at the Excel Functions with FileOpen, FileRead, FileClose, StringInStr & _FileListToArray these should get you started.

Thanks for the direction. Going to work in the search part (I can manually do for now). However I got the write to excel part done. If anyone can make the code shorter or more efficient, please advise. Thanks

[#include <Excel.au3>

; Shows the filenames of all files in the current directory.

$search = FileFindFirstFile("*.*")

$i = 0

Local $oExcel = _ExcelBookNew() ;Create new file, make visible

; Check if the search was successful

If $search = -1 Then

MsgBox(0, "Error", "No files/directories matched the search pattern")

Exit

EndIf

While 1

$file = FileFindNextFile($search)

If @error Then ExitLoop

$i = ($i + 1)

MsgBox(4096, "File:", $file);show name before writing to cell

_ExcelWriteCell($oExcel, $file, $i, 1) ;Write to the Cell

WEnd

; Close the search handle

FileClose($search)]

[hannes08]

Hi MaCgyver,

I'd do it like this:

$a_files = _FileListToArray("C:\Temp\", "*", 1)

$j = 1
$oExcel = _ExcelBookNew()
 
For $i = 1 To $a_files[0]
    If _search($a_files[$i], "stringtosearch") Then 
        _ExcelWriteCell($oExcel, $a_files[$i], $j, 1)
        $j += 1
    EndIf
Next

Func _search($file, $string)
    $S_file = FileRead($file)
    If StringInStr($S_file, $string) Then
        Return True
    Else
        Return False
    EndIf
EndFunc

[MaCgyver]

Hi MaCgyver,

I'd do it like this:

$a_files = _FileListToArray("C:\Temp\", "*", 1)

$j = 1
$oExcel = _ExcelBookNew()
 
For $i = 1 To $a_files[0]
    If _search($a_files[$i], "stringtosearch") Then 
        _ExcelWriteCell($oExcel, $a_files[$i], $j, 1)
        $j += 1
    EndIf
Next

Func _search($file, $string)
    $S_file = FileRead($file)
    If StringInStr($S_file, $string) Then
        Return True
    Else
        Return False
    EndIf
EndFunc

Thanks. Looks a lot cleaner. Will try it out in a few. Edited May 16, 2011 by MaCgyver

[hannes08]

Thanks. Looks a lot cleaner. Will try it out in a few.

I was looking for _search in my helpfile, but cannot find. Where can I get into on this UDF? Thanks!

If you look at the bottom of the code, you can see that _search is a function I defined by myself.

[MaCgyver]

If you look at the bottom of the code, you can see that _search is a function I defined by myself.

yes..thats why i took off what i said but you got it before I could.

its 4:40am my time and I've slept maybe 4 hours a night for the past two weeks.

Thanks for what you wrote and I will be sure to be fully awake before I look at code and make a comment.

Once again thanks!

Edited May 16, 2011 by MaCgyver