SaeidN Posted September 2, 2022 Share Posted September 2, 2022 (edited) I have 4 webpages in an array and I navigate through them using a FOR loop. In each loop (which is a webpage) I need to extract data and add them to an array. So, I've created a 2D array like this: $dataArray[1][4] And using a for loop I wanna insert data to its row and column, but for some reason it doesn't save the data into the 2D array. The data I want to add to the 2D arrays are: $InvDate, $InvID, $MonChar, $TaxFee. expandcollapse popupGlobal $dataarray[1][4] For $linkarr In $linkarray _IENavigate ($oIE, $linkarr) $oIE = _IEAttach("Webpage title") Local $oCollection = _IETagNameGetCollection($oIE, "label") Local $oObj = Null For $r=0 to Ubound($dataarray,1) For $c=0 to Ubound($dataarray,2) For $oLabel In $oCollection If _IEPropertyGet($oLabel, "innerText") = "Invoice Date:" Then $oObj = $oLabel.nextSibling.nextSibling $InvDate = _IEPropertyGet($oObj, "innerText") EndIf If _IEPropertyGet($oLabel, "innerText") = "Invoice #:" Then $oObj = $oLabel.nextSibling.nextSibling Global $InvID = _IEPropertyGet($oObj, "innerText") ;MsgBox(0,"Invoice #",_IEPropertyGet($oObj, "innerText")) EndIf If _IEPropertyGet($oLabel, "innerText") = "Monthly Charges:" Then $oObj = $oLabel.nextSibling.nextSibling Global $MonChar = _IEPropertyGet($oObj, "innerText") ;MsgBox(0,"Monthly Charges",_IEPropertyGet($oObj, "innerText")) EndIf If _IEPropertyGet($oLabel, "innerText") = "Taxes and Fees:" Then $oObj = $oLabel.nextSibling.nextSibling Global $TaxFee = _IEPropertyGet($oObj, "innerText") ;MsgBox(0,"Taxes and Fees",_IEPropertyGet($oObj, "innerText")) EndIf Next ;$dataarray[$r][$c+1] = $InvDate _ArrayAdd($dataarray, $InvDate,0) ;MsgBox(0,"Invoice Date",$InvDate) ConsoleWrite($dataarray & @TAB) Next ConsoleWrite(@CRLF) Next Next _ArrayDisplay($dataarray,"InvDate") Edited September 2, 2022 by SaeidN Link to comment Share on other sites More sharing options...
Subz Posted September 2, 2022 Share Posted September 2, 2022 (edited) When using _ArrayAdd, just make sure each item is separated by a piple "|" for example: For $linkarr In $linkarray _IENavigate ($oIE, $linkarr) $oIE = _IEAttach("Webpage title") Local $oCollection = _IETagNameGetCollection($oIE, "label") Local $oObj = Null For $r=0 to Ubound($dataarray,1) For $c=0 to Ubound($dataarray,2) Local $InvDate = "", $InvID = "", $MonChar = "", $TaxFee = "" For $oLabel In $oCollection If _IEPropertyGet($oLabel, "innerText") = "Invoice Date:" Then $oObj = $oLabel.nextSibling.nextSibling $InvDate = _IEPropertyGet($oObj, "innerText") EndIf If _IEPropertyGet($oLabel, "innerText") = "Invoice #:" Then $oObj = $oLabel.nextSibling.nextSibling $InvID = _IEPropertyGet($oObj, "innerText") EndIf If _IEPropertyGet($oLabel, "innerText") = "Monthly Charges:" Then $oObj = $oLabel.nextSibling.nextSibling $MonChar = _IEPropertyGet($oObj, "innerText") EndIf If _IEPropertyGet($oLabel, "innerText") = "Taxes and Fees:" Then $oObj = $oLabel.nextSibling.nextSibling $TaxFee = _IEPropertyGet($oObj, "innerText") EndIf Next _ArrayAdd($adataarray, $InvDate & "|" & $InvID & "|" & $MonChar & "|" & $TaxFee) Next Next Next _ArrayDisplay($dataarray,"InvDate") Edited September 2, 2022 by Subz Added clearing the items Link to comment Share on other sites More sharing options...
SaeidN Posted September 2, 2022 Author Share Posted September 2, 2022 (edited) I've change that arrayadd line to this, now it loops more than once, and saves couple values of same. but it should go through it once. That's my array, this should be 3 rows, I don't know why it's 15 Edited September 2, 2022 by SaeidN Remove Quote Link to comment Share on other sites More sharing options...
Subz Posted September 2, 2022 Share Posted September 2, 2022 Since I can't test it's difficult to say, but maybe something like, you may need to adjust as required. For $linkarr In $linkarray _IENavigate ($oIE, $linkarr) $oIE = _IEAttach("Webpage title") Local $oCollection = _IETagNameGetCollection($oIE, "label") Local $oObj = Null For $r=0 to Ubound($dataarray,1) For $c=0 to Ubound($dataarray,2) Local $InvDate = "", $InvID = "", $MonChar = "", $TaxFee = "" For $oLabel In $oCollection If _IEPropertyGet($oLabel, "innerText") = "Invoice Date:" Then $oObj = $oLabel.nextSibling.nextSibling $InvDate = _IEPropertyGet($oObj, "innerText") EndIf If _IEPropertyGet($oLabel, "innerText") = "Invoice #:" Then $oObj = $oLabel.nextSibling.nextSibling $InvID = _IEPropertyGet($oObj, "innerText") EndIf If _IEPropertyGet($oLabel, "innerText") = "Monthly Charges:" Then $oObj = $oLabel.nextSibling.nextSibling $MonChar = _IEPropertyGet($oObj, "innerText") EndIf If _IEPropertyGet($oLabel, "innerText") = "Taxes and Fees:" Then $oObj = $oLabel.nextSibling.nextSibling $TaxFee = _IEPropertyGet($oObj, "innerText") EndIf Next Local $sData = $InvDate & "|" & $InvID & "|" & $MonChar & "|" & $TaxFee If Not $sData = "|||" Then _ArrayAdd($adataarray, $sData) Next Next Next _ArrayDisplay($dataarray,"InvDate") Link to comment Share on other sites More sharing options...
SaeidN Posted September 2, 2022 Author Share Posted September 2, 2022 (edited) It goes through all 4 if loops couple times, instead of one time for each webpage. Also, this error is stupid. (95) : ==> Variable used without being declared.: Local $sData = $InvDate & "|" & $InvID & "|" & $MonChar & "|" & $TaxFee Local $sData = ^ ERROR Edited September 2, 2022 by SaeidN Remove Quote Link to comment Share on other sites More sharing options...
Subz Posted September 2, 2022 Share Posted September 2, 2022 As mentioned unable without a URL and fullscript unable to test, but I didn't change anything with the loops or IE functions. You should add error checking to fix any issues (see below) and maybe you need to add an ExitLoop after _ArrayAdd, but again as I can't test you'll need to work that out. PS: Please don't include my post when replying as it just makes the thread difficult to read, For $linkarr In $linkarray _IENavigate ($oIE, $linkarr) $oIE = _IEAttach("Webpage title") Local $oCollection = _IETagNameGetCollection($oIE, "label") Local $oObj = Null For $r=0 to Ubound($dataarray,1) For $c=0 to Ubound($dataarray,2) Local $InvDate = "", $InvID = "", $MonChar = "", $TaxFee = "" For $oLabel In $oCollection If _IEPropertyGet($oLabel, "innerText") = "Invoice Date:" Then $oObj = $oLabel.nextSibling.nextSibling $InvDate = _IEPropertyGet($oObj, "innerText") If @error Then $InvDate = "" EndIf If _IEPropertyGet($oLabel, "innerText") = "Invoice #:" Then $oObj = $oLabel.nextSibling.nextSibling $InvID = _IEPropertyGet($oObj, "innerText") If @error Then $InvID = "" EndIf If _IEPropertyGet($oLabel, "innerText") = "Monthly Charges:" Then $oObj = $oLabel.nextSibling.nextSibling $MonChar = _IEPropertyGet($oObj, "innerText") If @error Then $MonChar = "" EndIf If _IEPropertyGet($oLabel, "innerText") = "Taxes and Fees:" Then $oObj = $oLabel.nextSibling.nextSibling $TaxFee = _IEPropertyGet($oObj, "innerText") If @error Then $TaxFee = "" EndIf Next Local $sData = $InvDate & "|" & $InvID & "|" & $MonChar & "|" & $TaxFee If Not $sData = "" Then _ArrayAdd($adataarray, $sData) Next Next Next _ArrayDisplay($dataarray,"InvDate") Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now