FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour consulta sobre cadenas
Posts: 422
Joined: Mon Aug 17, 2009 12:18 PM
consulta sobre cadenas
Posted: Thu Jun 10, 2010 03:34 PM

Hola amigos;)

Tengo una cadena as铆: hola; mundo; pc; si

驴C贸mo puedo obtener siempre el primer valor antes del primer punto y coma (hola en el ejemplo), pero cuya longitud var铆a, es decir, no puedo usar left(cCadena, 4)?

Muchas gracias :D

Saludos,



Eduardo
Posts: 592
Joined: Tue Mar 14, 2006 11:34 PM
Re: consulta sobre cadenas
Posted: Thu Jun 10, 2010 04:00 PM

mgsoft,

aValues := hb_aTokens( cCadena, "; ",.f.,.f.)
? aValues[1]

Y el elemento 1 del arreglo generado sera el que quieres, sin importar la longitud.

Saludos

FWH 10.6 + xHarbour + Borland 582
Posts: 1364
Joined: Wed Jun 21, 2006 12:39 AM
Re: consulta sobre cadenas
Posted: Thu Jun 10, 2010 04:03 PM

Otra ser铆a nCadenaExtraida := SubStr( cCadena, 1, At( ";", cCadena ) - 1 ). Saludos

Posts: 782
Joined: Wed Dec 19, 2007 07:50 AM
Re: consulta sobre cadenas
Posted: Thu Jun 10, 2010 06:35 PM
Otra Manera:
Code (fw): Select all Collapse
cCadena := "hola; mundo; pc; si"
nOcurrencia := 1
? StrToken( cCadena, nOcurrencia, ";" ) // hola

Un abrazo.

Manuel Mercado G贸mez.
manuelmercado at prodigy dot net dot mx
Posts: 422
Joined: Mon Aug 17, 2009 12:18 PM
Re: consulta sobre cadenas
Posted: Sat Jun 12, 2010 11:05 AM

Muchas gracias.

He optado por la soluci贸n del Maestro Mercado y va a las mil maravillas.

驴Esa funcion estaba ya en clipper?

Muchas gracias :D

Saludos,



Eduardo
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: consulta sobre cadenas
Posted: Sat Jun 12, 2010 03:07 PM

La funci贸n StrToken() es de FiveWin :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion