FiveTech Software tech support forums

  LOCAL aNumeros :=  ;
                     { ;
                       "ZERO", ;
                       "UNO", ;
                       "DUE", ;
                       "TRE", ;
                       "QUATTRO", ;
                       "CINQUE", ;
                       "SEI", ;
                       "SETTE", ;
                       "OTTO", ;
                       "NOVE", ;
                       "DIECI", ;
                       "UNDICI", ;
                       "DODICI", ;
                       "TREDICI", ;
                       "QUATTORDICI", ;
                       "QUINDICI", ;
                       "SEDICI", ;
                       "DICIASSETTE", ;
                       "DICIOTTO", ;
                       "DICIANNOVE", ;
                       "VENTI", ;
                       "VENTUNO", ;
                       "VENTIDUE", ;
                       "VENTITRÉ", ;
                       "VENTIQUATTRO", ;
                       "VENTICINQUE", ;
                       "VENTISEI", ;
                       "VENTISETTE", ;
                       "VENTOTTO", ;
                       "VENTINOVE", ;
                       "TRENTA", ;
                       "TRENTUNO", ;
                       "TRENTADUE", ;
                       "TRENTATRÉ", ;
                       "TRENTAQUATTRO", ;
                       "TRENTACINQUE", ;
                       "TRENTASEI", ;
                       "TRENTASETTE", ;
                       "TRENTOTTO", ;
                       "TRENTANOVE", ;
                       "QUARANTA", ;
                       "QUARANTUNO", ;
                       "QUARANTADUE", ;
                       "QUARANTATRÉ", ;
                       "QUARANTAQUATTRO", ;
                       "QUARANTACINQUE", ;
                       "QUARANTASEI", ;
                       "QUARANTASETTE", ;
                       "QUARANTOTTO", ;
                       "QUARANTANOVE", ;
                       "CINQUANTA", ;
                       "CINQUANTUNO", ;
                       "CINQUANTADUE", ;
                       "CINQUANTATRÉ", ;
                       "CINQUANTAQUATTRO", ;
                       "CINQUANTACINQUE", ;
                       "CINQUANTASEI", ;
                       "CINQUANTASETTE", ;
                       "CINQUANTOTTO", ;
                       "CINQUANTANOVE", ;
                       "SESSANTA", ;
                       "SESSANTUNO", ;
                       "SESSANTADUE", ;
                       "SESSANTATRÉ", ;
                       "SESSANTAQUATTRO", ;
                       "SESSANTACINQUE", ;
                       "SESSANTASEI", ;
                       "SESSANTASETTE", ;
                       "SESSANTOTTO", ;
                       "SESSANTANOVE", ;
                       "SETTANTA", ;
                       "SETTANTUNO", ;
                       "SETTANTADUE", ;
                       "SETTANTATRÉ", ;
                       "SETTANTAQUATTRO", ;
                       "SETTANTACINQUE", ;
                       "SETTANTASEI", ;
                       "SETTANTASETTE", ;
                       "SETTANTOTTO", ;
                       "SETTANTANOVE", ;
                       "OTTANTA", ;
                       "OTTANTUNO", ;
                       "OTTANTADUE", ;
                       "OTTANTATRÉ", ;
                       "OTTANTAQUATTRO", ;
                       "OTTANTACINQUE", ;
                       "OTTANTASEI", ;
                       "OTTANTASETTE", ;
                       "OTTANTOTTO", ;
                       "OTTANTANOVE", ;
                       "NOVANTA", ;
                       "NOVANTUNO", ;
                       "NOVANTADUE", ;
                       "NOVANTATRÉ", ;
                       "NOVANTAQUATTRO", ;
                       "NOVANTACINQUE", ;
                       "NOVANTASEI", ;
                       "NOVANTASETTE", ;
                       "NOVANTOTTO", ;
                       "NOVANTANOVE", ;
                       "CENTO" ;
                     }

  fwdbg AScan(aNumeros, "DI"), AScan(aNumeros, "DI",,,.t.)

   aNumeros :=  ;
                     { ;
                       "ZERO", ;
                       "UNO", ;
                       "DUE", ;
                       "TRE", ;
                       "QUATTRO", ;
                       "CINQUE", ;
                       "SEI", ;
                       "SETTE", ;
                       "OTTO", ;
                       "NOVE", ;
                       "DIECI", ;
                       "UNDICI" }

   nAt := 0
   Ascan( aNumeros, { |c,nPos| IIF( c=="DI", nAt := nPos , 0 )  } )
   ? nAt