Help with array(1 dimensional)

[Sam137]

I have excel sheet as attached and i am getting the values of each cell and doing a concatenation and storing the concatenated values of each row in a 1-D array as per below code:

Local $aArray[200]
 
        For $yrow = 2 to 500  ;this is excel rows
      
         _ExcelSheetActivate($oExcel, "Report List")
          $xlRepTitle = _ExcelReadCell($oExcel, $yrow, 1)
         $xlrepType = _ExcelReadCell($oExcel, $yrow, 2)
         $xlradName = _ExcelReadCell($oExcel, $yrow, 3)
         $xlConcatVal =  $xlRepTitle & "+" & $xlrepType & "+" & $xlradName
        
         For $i = 1 to UBound($aArray)
          $aArray[$i] = $xlConcatVal              
         Next
        Next

Now from the code i have another concatenated value, i want to check whether the two values match. See the code below:

I am getting the subscript error.

$ConcatVal =  $currRepTitle & "+" & $repType & "+" & $radName
      
        Local $aiResult = _ArrayFindAll($aArray, $ConcatVal)
          If $aiResult <> -1 Then     
           $foundReport = 1   
           ExitLoop
          EndIf

[BrewManNH]

What exactly are you trying to do with that first piece of code, because it's not doing what you're thinking it's doing I'm guessing? The $aArray is going to contain 199 copies of the last value of $x1ConcatVal after it runs. One copy in each of the elements of the array, except $aArray[0] which will be empty.

Edited September 20, 2011 by BrewManNH

[Sam137]

I want to get $aArray[1] = 8g-- (3M) CDS Next Review by Service+Listing+DocMS MS-DRG

$aArray[2] = 8h-- (3M) CDS Next Review by Unit+Listing+DocMS MS-DRG

$aArray[3] = 13a-- (3M) CDIS LOS Variance+Listing+CDI System MS-DRG and so on till the end of the attached excel...

And then in the second code snippet, i am just checking whether $ConcatVal is present in the array $aArray... How to do that

[BrewManNH]

This is one way of doing it:

Local $aArray[500] ; <<<<<<<<<<<<< decalare the array with enough elements, you only had it set to 200
For $yrow = 2 To 500 ;this is excel rows
 _ExcelSheetActivate($oExcel, "Report List")
 $xlRepTitle = _ExcelReadCell($oExcel, $yrow, 1)
 $xlrepType = _ExcelReadCell($oExcel, $yrow, 2)
 $xlradName = _ExcelReadCell($oExcel, $yrow, 3)
 $xlConcatVal = $xlRepTitle & "+" & $xlrepType & "+" & $xlradName
 $aArray[$yrow - 1] = $xlConcatVal ; <<<<<<<<<<<<<<< this adds the contents of $xlConcatVal to the elements of the array
Next
$ConcatVal = $currRepTitle & "+" & $repType & "+" & $radName
Local $aiResult = _ArraySearch($aArray, $ConcatVal)
If $aiResult <> -1 Then
 $foundReport = 1
 ExitLoop
EndIf
; If you want the searching to be faster, in case you had a large amount of data to search through, you could do it
; this way as well
#cs
 _ArraySort($aArray)
 Local $aiResult = _ArrayBinarySearch($aArray, $ConcatVal)
 If $aiResult <> -1 Then
 $foundReport = 1
 ExitLoop
 EndIf
#ce

[Sam137]

Thanks so much BrewManNH ....