Imprimir
Categoría: Trucos
Visitas: 1562

Calificación del usuario: 3  / 5

Estrellas activasEstrellas activasEstrellas activasEstrellas inactivasEstrellas inactivas
 

Muchas veces necesitamos realizar ordenamiento de arreglos. Aqui una pequeña rutina para ordenar un arreglo desde power builder que no utiliza ciclos o los tipicos ordenamientos de burbuja o Quick sort. ', 'Para ordenar el arreglo se ordena con un pequeño datastore, el datastore lo llamaremos lds_temp

datastore lds_temp
string ls_err
integer i

// change the datastore definition according to the array data type
long ll_array[] = { 2 , 3, 6, 5 }
string ls_dsdef = &
   'release 6; datawindow() table(column=(type=long name=a dbname="a") )'

lds_temp = CREATE datastore
lds_temp.Create(ls_dsdef, ls_err)
// put the array in the datastore
lds_temp.object.a.current = ll_array
lds_temp.SetSort("a ASC")
lds_temp.Sort()
// get back the array
ll_array = lds_temp.object.a.current

FOR i = 1 to Upperbound(ll_array)
  MessageBox("", string(ll_array[i]))
NEXT

DESTROY lds_temp



Traducido de http://www.rgagnon.com/howto.html Todos los derechos de copia reservados