topic-38164

Posts: 1195

Joined: Mon Oct 17, 2005 05:41 AM

ASCAN on 2 colums
Posted: Mon Dec 09, 2019 07:38 PM

Hi,

Is it possible to do a array-search where for example the first column = 'TEST' and the seconds column = 'TEST1'?
I also want to search on the upper-case, but the problem is that sometimes the value = nil, so I get an error with upper.
The array is comming from an excel-file read with

Code (fw): Select all Collapse

  oRange   := oSheet:UsedRange
arr = ArrTranspose( oRange:Value)

Jimmy

Posts: 1772

Joined: Thu Sep 05, 2019 05:32 AM

Re: ASCAN on 2 colums
Posted: Mon Dec 09, 2019 08:47 PM

hi,

Marc Vanzegbroeck wrote:
Is it possible to do a array-search where for example the first column = 'TEST' and the seconds column = 'TEST1'?
I also want to search on the upper-case, but the problem is that sometimes the value = nil, so I get an error with upper.
The array is comming from an excel-file read with
Code (fw): Select all Collapse
  oRange   := oSheet:UsedRange
arr = ArrTranspose( oRange:Value)

just a Idea to use a function, not tested

Code (fw): Select all Collapse

   cSeek := "ABC"
   nElement := AScan( aArray, ;  
                      {|a,i| Test(a,i,cSeek) },;
                      nStart ) 

FUNCTION Test(a,i,cSeek)
LOCAL nPosi := 0
   IF EMPTY(a[1])
      RETURN -1
   ENDIF
   IF EMPTY(a[2])
      RETURN -1
   ENDIF
   // compare as you need
   IF cSeek $ a[1] .OR. cSeek $ a[2]
      nPosi := i
   ENDIF
RETURN nPosi

greeting,

Jimmy

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: ASCAN on 2 colums
Posted: Tue Dec 10, 2019 03:34 AM

Code (fw): Select all Collapse

nAt := AScan( arr, { |a| Upper( IfNil( a[ 1 ], "" ) ) = "TEST" .and. ;
                         Upper( IfNil( a[ 2 ], "" ) ) = "TEST1" } )

Regards

G. N. Rao.

Hyderabad, India

FiveTech Support Forums

Continue the discussion