LOCAL i,;
lcResp,;
lcRango_List,;
lFound,;
lnChangeRange,;
lnInterval,;
lnRanges,;
lnRangoEnd,;
lnRangoIni,;
lnRango_found
lnChangeRange = 1
lnInterval = 4
lnRangoIni = 0 - lnInterval - lnChangeRange
lnRangoEnd = 0
lnRanges = 10
lcRango_List = ""
LOCAL ARRAY laRango(m.lnRanges , 2)
FOR i = 1 TO m.lnRanges
lnRangoIni = m.lnRangoIni ;
+ m.lnInterval ;
+ m.lnChangeRange
lnRangoEnd = m.lnRangoIni + m.lnInterval
laRango[i,1] = m.lnRangoIni
laRango[i,2] = m.lnRangoEnd
NEXT
FOR i = 1 TO m.lnRanges
lcRango_list = m.lcRango_list ;
+ PADL(TRANSFORM(i),2," ")+CHR(41) ;
+ PADL(TRANSFORM(laRango[i,1]),3," ");
+ CHR(32)+CHR(187)+CHR(32);
+ PADL(TRANSFORM(laRango[i,2]),3," ");
+ CHR(13)
NEXT
lcWord = INPUTBOX("Palabra","Rango Palabra","",0,"","")
lnLen = LEN(m.lcWord)
lFound = .f.
lnRango_Found = 0
FOR i = 1 TO lnRanges
lFound = BETWEEN(m.lnLen,laRango[i,1],laRango[i,2] )
IF m.lFound
lnRango_found = i
EXIT
ENDIF
NEXT
lcResp = "Palabra: "+m.lcWord +CHR(13);
+ "Largo (len) = "+TRANSFORM(m.lnLen)+CHR(13);
+ "Rango " ;
+ IIF(m.lfound,"=",">") ;
+ TRANSFORM(IIF(m.lFound,m.lnRango_found,m.lnRanges))
IF m.lFound
lcResp = m.lcREsp ;
+ CHR(13) ;
+ "Intervalo Rango " ;
+ TRANSFORM(laRango[m.lnRango_found,1]);
+" - " ;
+ TRANSFORM(laRango[m.lnRango_found,2])
ENDIF
lcResp = m.lcResp + CHR(13) ;
+ "Lista de Rangos"+CHR(13) ;
+ lcRango_list
STRTOFILE(m.lcResp,"Rango_palabra.txt")
MESSAGEBOX(m.lcResp,0,"Rango")