Sign in to follow this  
Followers 0
MaCgyver

Search & Copy

7 posts in this topic

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. :unsure:

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?

Share this post


Link to post
Share on other sites



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


_AdapterConnections()_AlwaysRun()_AppMon()_AppMonEx()_BinaryBin()_CheckMsgBox()_CmdLineRaw()_ContextMenu()_ConvertLHWebColor()/_ConvertSHWebColor()_DesktopDimensions()_DisplayPassword()_DotNet_Load()/_DotNet_Unload()_Fibonacci()_FileCompare()_FileCompareContents()_FileNameByHandle()_FilePrefix/SRE()_FindInFile()_GetBackgroundColor()/_SetBackgroundColor()_GetConrolID()_GetCtrlClass()_GetDirectoryFormat()_GetDriveMediaType()_GetFilename()/_GetFilenameExt()_GetHardwareID()_GetIP()_GetIP_Country()_GetOSLanguage()_GetSavedSource()_GetStringSize()_GetSystemPaths()_GetURLImage()_GIFImage()_GoogleWeather()_GUICtrlCreateGroup()_GUICtrlListBox_CreateArray()_GUICtrlListView_CreateArray()_GUICtrlListView_SaveCSV()_GUICtrlListView_SaveHTML()_GUICtrlListView_SaveTxt()_GUICtrlListView_SaveXML()_GUICtrlMenu_Recent()_GUICtrlMenu_SetItemImage()_GUICtrlTreeView_CreateArray()_GUIDisable()_GUIImageList_SetIconFromHandle()_GUIRegisterMsg()_GUISetIcon()_Icon_Clear()/_Icon_Set()_IdleTime()_InetGet()_InetGetGUI()_InetGetProgress()_IPDetails()_IsFileOlder()_IsGUID()_IsHex()_IsPalindrome()_IsRegKey()_IsStringRegExp()_IsSystemDrive()_IsUPX()_IsValidType()_IsWebColor()_Language()_Log()_MicrosoftInternetConnectivity()_MSDNDataType()_PathFull/GetRelative/Split()_PathSplitEx()_PrintFromArray()_ProgressSetMarquee()_ReDim()_RockPaperScissors()/_RockPaperScissorsLizardSpock()_ScrollingCredits_SelfDelete()_SelfRename()_SelfUpdate()_SendTo()_ShellAll()_ShellFile()_ShellFolder()_SingletonHWID()_SingletonPID()_Startup()_StringCompact()_StringIsValid()_StringRegExpMetaCharacters()_StringReplaceWholeWord()_StringStripChars()_Temperature()_TrialPeriod()_UKToUSDate()/_USToUKDate()_WinAPI_Create_CTL_CODE()_WinAPI_CreateGUID()_WMIDateStringToDate()/_DateToWMIDateString()Au3 script parsingAutoIt SearchAutoIt3 PortableAutoIt3WrapperToPragmaAutoItWinGetTitle()/AutoItWinSetTitle()CodingDirToHTML5FileInstallrFileReadLastChars()GeoIP databaseGUI - Only Close ButtonGUI ExamplesGUICtrlDeleteImage()GUICtrlGetBkColor()GUICtrlGetStyle()GUIEventsGUIGetBkColor()Int_Parse() & Int_TryParse()IsISBN()LockFile()Mapping CtrlIDsOOP in AutoItParseHeadersToSciTE()PasswordValidPasteBinPosts Per DayPreExpandProtect GlobalsQueue()Resource UpdateResourcesExSciTE JumpSettings INISHELLHOOKShunting-YardSignature CreatorStack()Stopwatch()StringAddLF()/StringStripLF()StringEOLToCRLF()VSCROLLWM_COPYDATAMore Examples...

Updated: 04/09/2015

Share this post


Link to post
Share on other sites

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)]

Share this post


Link to post
Share on other sites

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

Regards,Hannes[spoiler]If you can't convince them, confuse them![/spoiler]

Share this post


Link to post
Share on other sites

#5 ·  Posted (edited)

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. :unsure: Edited by MaCgyver

Share this post


Link to post
Share on other sites

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. :unsure:


Regards,Hannes[spoiler]If you can't convince them, confuse them![/spoiler]

Share this post


Link to post
Share on other sites

#7 ·  Posted (edited)

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

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. :D

Once again thanks! ;)

Edited by MaCgyver

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
Sign in to follow this  
Followers 0