Remove array elements where doesn't contain....

[rony2006]

Hello,

I have a 2d array and I want to remove all array elements that doesn't contain "csv" substring inside.

 

How can I do this please?

[Melba23]

rony2006,

What have you tried that has not worked?

M23

[rony2006]

I tried this code:

 

Local $aArray[5][5] = [[0, 1, 2, 1, 0], _
        [4, 5, 5, 4, 2], _
        [4, 1, 3, 1, 3], _
        [0, 3, 2, 1, 0], _
        [1, 5, 5, 4, 1]]
_ArrayDisplay($aArray, "2D array")

Local $aResult = _ArrayFindAll($aArray, 0, Default, Default, Default, Default, 4)
_ArrayDisplay($aResult, "Found in Column 4")

 

Modified in 

Local $aResult = _ArrayFindAll($aArray, 0, Default, Default, Default, "csv", 4)

$aResult cotains a lot of urls to .csv files.

[mikell]

So what ?
_ArrayFindAll returns an array of indexes. Just use this array as $vRange param in _ArrayDelete 

[rony2006]

_ArrayFindAll  doesn't return me any result. I don't understand why.

[Melba23]

rony2006,

Then give us an actual example of the data in your array and the code you are using to find whatever it is you are looking for. Otherwise how do you expect us to be able to help you?

M23

[rony2006]

Hello,

$oWorkbook = "C:\Users\Marian\Downloads\Rapoarte Electro\"&$aFileList[1]
$sFileOpenDialog = $oWorkbook

; Create application object and open an example workbook
Local $oExcel = _Excel_Open(False)
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeRead Example", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
Local $oWorkbook = _Excel_BookOpen($oExcel, $sFileOpenDialog)
If @error Then
    MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeRead Example", "Error opening workbook '" & @ScriptDir & "\Extras\_Excel1.xls'." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
    _Excel_Close($oExcel)
    Exit
EndIf





; *****************************************************************************
; Read the formulas of a cell range on sheet 2 of the specified workbook
; *****************************************************************************
Local $aResult = _Excel_RangeRead($oWorkbook, Default,Default, 2)
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeRead Example 2", "Error reading from workbook." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
;MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeRead Example 2", "Data successfully read." & @CRLF & "Please click 'OK' to display the formulas of cells A1:C1 of sheet 2.")

;_ArrayDisplay($aResult, "Excel UDF: _Excel_RangeRead Example 2 - Cells A1:C1 of sheet 2")

With this code I make a csv file to 2d array. The csv file looks like the one attached.

Then I want to upload to a mysql database all links (only one column) that contains links to .csv files.

 

Now I upload all data to mysql and then I delete all that doesn't contain %csv%.

$sMySqlStatement = "DELETE FROM linklist WHERE link  NOT LIKE '%csv%';"
 If Not _EzMySql_Exec($sMySqlStatement) Then
 _GUICtrlEdit_AppendText($input1, @CRLF &$sMySqlStatement)
            MsgBox(0, "Error Creating Database Table", "Error: "& @error & @CR & "Error string: " & _EzMySql_ErrMsg())
            Exit
            EndIf

 

www.cenace.gob.mx_9th_Oct_2017 (6).csv

[mikell]

A nice way would be to extract first the wanted links to a new (temp) .csv before uploading  

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

$s = FileRead("www.cenace.gob.mx_9th_Oct_2017 (6).csv")

$res = StringRegExp($s, '(?m)^"([^"]+csv)' , 3)
_ArrayDisplay($res)

_FileWriteFromArray(@scriptdir & "\new.csv", $res)

Edit
This keeps the quotes around the links

$res = StringRegExp($s, '(?m)^("[^"]+csv")' , 3)

 

Edited October 9, 2017 by mikell