FoxPro/Visual FoxPro - Arreglos

   
Vista:

Arreglos

Publicado por Lilis (96 intervenciones) el 05/11/2008 23:55:48
HHELLLLPPPPPPPP

Tengo un problema con asort () no se como se usa.... pogo asort (arreglo,1) y no hace nada....

no me ordena mi arreglo...

Grax mil.....
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Mauricio

Arreglos

Publicado por Mauricio (1368 intervenciones) el 06/11/2008 02:05:12
Este ejemplo viene en la ayuda, puedes revisar la sintaxis para comprender su funcionamiento:

CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'Data estdata')
USE Customer && Abre la tabla Customer.

COUNT TO gnCount && Número de contactos.
DIMENSION gaContact(gnCount,1) && Crea una matriz de contactos.
COPY TO ARRAY gaContact FIELD contact && Llena la matriz.

CLEAR
? 'Nombres de contactos:'
?
FOR nCount = 1 TO 20
? gaContact(nCount) && Muestra los 20 primeros contactos.
ENDFOR
= ASORT(gaContact) && Ordena la matriz.

?
? 'Nombres de contactos ordenados:'
?
FOR nCount = 1 TO 20
? gaContact(nCount) && Muestra los 20 primeros contactos ordenados.
ENDFOR
*---
ASORT(NombreMatriz [, nElementoInicial [, nNúmeroOrdenado [, nOrden]]])
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Arreglos

Publicado por lilis (96 intervenciones) el 06/11/2008 02:47:55
DIMENSION arreglo(6)
arreglo(1)=thisform.text1.Value
arreglo(2)=thisform.text2.Value
arreglo(3)=thisform.text3.Value

?'arreglo',arreglo(1)
?'arreglo',arreglo(2)
?'arreglo',arreglo(3)

ASORT (arreglo,1,1,1)

?'arreglo',arreglo(1)
?'arreglo',arreglo(2)
?'arreglo',arreglo(3)


no los ordenaaaaaa
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Arreglos

Publicado por kong (681 intervenciones) el 06/11/2008 05:01:49
prueba poniendo

arreglo(1)=alltrim(thisform.text1.value)
...
...
y
asort(arreglo)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar