FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Busar en un array y que devuelva la posicion
Posts: 479
Joined: Fri Feb 16, 2007 10:29 AM
Busar en un array y que devuelva la posicion
Posted: Mon Apr 25, 2016 12:28 PM

compa帽eros, Buenas:

驴Existe alg煤n comando que busca una palabra en un array y que devuelva la posici贸n donde lo encontr贸?

Ejemplo:
Tengo el siguiente array: {'CADIZ','MALAGA','SEVILLA','HUELVA','CORDOBA'}
y necesito que al buscar 'SEVILLA' me devuelva 3 (que es la posici贸n dentro del array).

Gracias.
Un saludo.
LORENZO.
Desde C谩diz, ESpa帽a.

Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Re: Busar en un array y que devuelva la posicion
Posted: Mon Apr 25, 2016 12:51 PM
Se me ocurre lo siguiente:

Code (fw): Select all Collapse
Function BuscaArray()
Local array:={'CADIZ','MALAGA','SEVILLA','HUELVA','CORDOBA'}
Local variable:='SEVILLA'
Local posicion:=0

for i:=1 to len(array)
聽 if variable=array[i]
聽 聽 聽posicion:=i
聽 endif
next
Return posicion


Saludos
Saludos
LEANDRO AREVALO
Bogot谩 (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Busar en un array y que devuelva la posicion
Posted: Mon Apr 25, 2016 01:05 PM

Quiz谩s esta funcion te sirva

AScan(<aTargets>, <expSearch>, [<nStart>], [<nCount>],[<lExact>], [<lASCII>]) -> nStoppedAt

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Re: Busar en un array y que devuelva la posicion
Posted: Mon Apr 25, 2016 03:26 PM

Otro ejemplo sencillo: Ascan devuelve la posicion del elemento, si lo encuentra. Caso contrario devuelve 0.
Local array:={'CADIZ','MALAGA','SEVILLA','HUELVA','CORDOBA'}, cVariable:="SEVILLA"
nPos := Ascan(array,cVariable)

Francisco J. Alegr铆a P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql

Continue the discussion