_ArrayExtract extract lines from array who lines contain some string

jayfry · February 19, 2019

Hello, First this form is great, I've gotten so much done today with just the help files and examples here. So please if you know a help file I can use, let me know. _ArrayExtract is what i'm thinking will work.

What i'm doing: I'm getting a list of files whose name contains ".url", putting the full path to an Array, then i'm taking those files and joining all the files into 1 file. What I want to do now, is from that master file I created, I want to extract only lines whose it contains "URL".

#Include <File.au3>
#Include <Array.au3>


$fileout = "C:\Users\Good Stuff\out.txt"
$sAutoItDir = "C:\Users\Store Bookmarks"
if FileExists($fileout) then FileDelete($fileout)
$file = FileOpen($fileout, 1)

$aArray = _FileListToArrayRec($sAutoItDir, "*.url", $FLTAR_FILES, $FLTAR_RECUR, $FLTAR_NOSORT, $FLTAR_FULLPATH)

for $i = 1 to $aArray[0]
    $data = FileRead($aArray[$i])
    FileWrite($file, "-------------------- File:  "&$aArray[$i]&"--------------------------------"&@crlf)
    FileWrite($file, $data&@CRLF)
Next

; Define a variable to pass to _FileReadToArray.
Local $aArray = 0


If Not _FileReadToArray($fileout, $aArray, 0) Then
    MsgBox($MB_SYSTEMMODAL, "", "There was an error reading the file. @error: " & @error) ; An error occurred reading the current script file.
EndIf

; Display the array in _ArrayDisplay.
_ArrayDisplay($aArray)

;Here I want to create a variable and set it to the value of an array whose consists of only lines that have URL, extracted from the master file i loaded into an array.

;$extractedArray = _ArrayExtract($aArray, "URL=", "URL=")
;_ArrayDisplay($extractedArray)

FileClose($file)
;ShellExecute($fileout)

Everything works the way I want it to, up until extracting lines whose it contains URL from the "master file" array I made.

Hoping someone can point me in the right direction. Also I just started autoit today so if you see other issues please feel free to point them out to me.

iamtheky · February 19, 2019

use arrayfindall to get the indices, then loop through that array putting the values back.

#include<array.au3>

local $a[9]=[1,2,'line 3 has url in it',4,5,6,'url begins line 7','line 8 ends with url',9]

 $aMatches = _ArrayFindAll($a , "url" , 0 ,0 , 0, 1)

For $i = 0 to ubound($aMatches) - 1
     $aMatches[$i] = $a[$aMatches[$i]]
Next

_ArrayDisplay($aMatches)

Edited February 19, 2019 by iamtheky

Dwalfware · February 19, 2019

I pull the entire file into a array then loop the array and check for the ITEM containing the word

$file1 = "c:\somefile.txt"
; ---------------------------------
; FILE TO ARRAY
; ---------------------------------
Func _GetValid()
; ..................................................
$ListRead = FileRead($file1, FileGetSize($file1))
$aarray = StringRegExp($ListRead, "(?i)url(.*?)", 3)  ;; THIS IS THE PART YOU NEED TO CHANGE TO FIND YOUR LINES 
; ..................................................
For $bi = 0 to UBound($aarray) - 1
ConsoleWrite("DEBUG: " & $aarray[$bi]  & @CRLF)   ;  THIS IS THE PART YOU NEED TO EXPORT TO A FILE LINE BY LINE
Next
; ..................................................
Return
EndFunc

;also try _StringExplode($sText, "##", 0)
;StringInStr("This is a sentence with whitespace.", "white")

iamtheky · February 20, 2019

one more go at it, think this line might pull off the trick

#include<array.au3>

local $a[9]=['entry 0 url match' , 1,2,'line 3 has url in it',4,5,6,'url begins line 7','line 8 ends with url']

 _ArrayDisplay(StringRegExp(_ArrayToString($a, @LF) & @LF , "(.*url.*?)" & @LF , 3))

jayfry · February 20, 2019

So my output gave me more URLs than I wanted, and I stumbled across stringleft.

I'm now using the following to sort go through my array and only take the lines that start with URL.

#Include <File.au3>
#Include <Array.au3>
$fileout = "C:\Users\Jonathan\Desktop\DEV\CreateFile\Good Stuff\out.txt"
$sAutoItDir = "C:\Users\Jonathan\Desktop\DEV\Store Bookmarks"
if FileExists($fileout) then FileDelete($fileout)
$file = FileOpen($fileout, 1)

;This buils out the Dirs to get bookmarks from. It recurselivy returns files that end in .url. 
$aArray = _FileListToArrayRec($sAutoItDir, "*.url", $FLTAR_FILES, $FLTAR_RECUR, $FLTAR_NOSORT, $FLTAR_FULLPATH)

;This takes the file paths provided by the _FilelisttoarrayRec above and combines all the files into 1 file.

for $i = 1 to $aArray[0]
    for $j = 1 to _FileCountLines($aArray[$i])
        $line = FileReadline($aArray[$i],$j)
            If StringLeft($line, 3) = "URL" Then
            FileWrite($file, $line&@CRLF)
        EndIf
    Next
Next

Let me know if this is good or not

iamtheky · February 20, 2019

probably going to want to look at _FileReadToArray or at least FileOpen and pass the handle (as you did with the outfile).

Please note this from the FileReadLine help file:

Quote

If a filename is passed to the function, the file will be opened and closed during the call which slows execution considerably

based off its location in the loop you are opening-reading-closing for every line of every file.

Edited February 20, 2019 by iamtheky

jayfry · February 20, 2019

41 minutes ago, iamtheky said:

probably going to want to look at _FileReadToArray or at least FileOpen and pass the handle (as you did with the outfile).

Please note this from the FileReadLine help file:

based off its location in the loop you are opening-reading-closing for every line of every file.

Thank you for pointing that out.

I think this fixes that issue.

for $i = 1 to $aArray[0]
    for $j = 1 to _FileCountLines($aArray[$i])
        $line = FileReadline($aArray[$i],$j)
            If StringLeft($line, 3) = "URL" Then
            FileWrite($file, $line&@CRLF)
        EndIf
    Next
Next

Could you point me to which help file will show me how to add the result into another array, i'd rather not save this to a file if I don't have to.

I Tired _ArrayAdd but i'm not getting it. I think it's the right direction tho.

jayfry · February 20, 2019

44 minutes ago, iamtheky said:

probably going to want to look at _FileReadToArray or at least FileOpen and pass the handle (as you did with the outfile).

Please note this from the FileReadLine help file:

based off its location in the loop you are opening-reading-closing for every line of every file.

Thank you for pointing that out.

I think this fixes that issue.

for $i = 1 to $aArray[0]
    $file2 = $aArray[$i]
    FileOpen($file2,0)
    For $j = 1 to _FileCountLines($file2)
        $line = FileReadLine($file2, $j)
        If StringLeft($line, 3) = "URL" Then
            FileWrite($file, $line&@CRLF)
        EndIf
    Next
Next

Could you point me to which help file will show me how to add the result into another array, i'd rather not save this to a file if I don't have to.

I Tired _ArrayAdd but i'm not getting it. I think it's the right direction tho.

Edit. Adding wrong code at first.

iamtheky · February 20, 2019

ArrayAdd is probably useful.

Im thinking _FileReadToArray, delete everything without URL, then build a Final array with the leftovers each time through.

the below is just pseudo code, may or may not work at all:

local $aFinal[0]
local $aArray

For $j = 0 to ubound($aListOfFiles) - 1

 _FileReadToArray($ListofFiles[$j] , $aArray , 0)

  For $i = ubound($aArray) - 1 to 0 step -1 ;note to loop backwards if you are deleting stuff

      if stringleft($aArray[$i],3) <> "URL"  then _ArrayDelete($aArray , $i)

  Next

_ArrayAdd($aFinal , $aArray)

Next

Edited February 20, 2019 by iamtheky

jayfry · February 20, 2019

I figured out I was initializing my array inside my loop (DOH).

This works for me.

local $aFinal[0]
for $i = 1 to $aArray[0]
    $file2 = $aArray[$i]
    FileOpen($file2,0)
    For $j = 1 to _FileCountLines($file2)
        $line = FileReadLine($file2, $j)
        If StringLeft($line, 3) = "URL" Then
            _ArrayAdd($aFinal, $line)
        EndIf
    Next
Next
_ArrayDisplay($aFinal)

jayfry · February 20, 2019

to round this out in case anyone wants to use it later Here's my full code.

#Include <File.au3>
#Include <Array.au3>
$sAutoItDir = "C:\Users\Jonathan\Desktop\DEV\Store Bookmarks"

;This buils out the Dirs to get bookmarks from. It recurselivy returns files that end in .url. 
$aArray = _FileListToArrayRec($sAutoItDir, "*.url", $FLTAR_FILES, $FLTAR_RECUR, $FLTAR_NOSORT, $FLTAR_FULLPATH)

;This takes the files provided by $aArray, Reads them line by line, and for lines that start with URL, it writes them to $aFinal
local $aFinal[0]
for $i = 1 to $aArray[0]
    $file2 = $aArray[$i]
    FileOpen($file2,0)
    For $j = 1 to _FileCountLines($file2)
        $line = FileReadLine($file2, $j)
        If StringLeft($line, 3) = "URL" Then
            _ArrayAdd($aFinal, $line)
        EndIf
    Next
Next
_ArrayDisplay($aFinal)

i'm super happy. The documentation for this language is great.

Sign In

_ArrayExtract extract lines from array who lines contain some string

Recommended Posts

jayfry

iamtheky

Dwalfware

iamtheky

jayfry

iamtheky

jayfry

jayfry

iamtheky

jayfry

jayfry

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta