No existe alguna funcion similar al Split de VBA/VBS?

08-09-2005, 16:45

Elcritico

Quisiera saber si en VFoxpro 7 no existe alguna funcion similar a la funcion
split() de VBasic Aplication.

Gracias!

08-09-2005, 18:52

Esparta Palma

Alines()?

Elcritico wrote:
[..]

08-09-2005, 18:53

Victor Espina

No se si esa funcion Split() funciona como la de PHP, pero si es asi, se
puede hacer facilmente una en VFP usando ALINES() y STRTRANSFORM():

*-- Split
* Toma una cadena indicada en pcStriong y la divide en elementos
* separados por la cadena indicada en pcSeparator, almancena esos
* elementos en un array el cual es devuelto por referencia en el
* parámetro paResultArrayByRef.
*
* La función devuelte el nro. de elementos encontrados.
*
* Por: Victor Espina
*
* Ejemplo de uso:
* LOCAL ARRAY aElements[1]
* LOCAL nCount
* nCount=SPLIT("Enero,Febrero,Marzo",",",@aElements)
* ?aElements[1] --> "Enero"
* ?aElements[2] --> "Febrero"
* ?aElements[3] --> "Marzo"
*
*
FUNCTION Split(pcString,pcSeparator,paResultArrayByRef)
*
*-- Se convierte el separador indicado en saltos de linea
*
pcString=STRTRANS(pcString,pcSeparator,CHR(13)+CHR (10))

*-- Se usa ALINES() para extraer los elementos
*
LOCAL nCount
nCount=ALINES(paResultArrayByRef,pcString)

*-- Se retorna la cantidad de elementos encontrados
*
RETURN nCount
*
ENDFUNC

Saludos

Victor Espina

Esparta Palma wrote:
[..]

08-09-2005, 18:53

Luis María Guayán

Como indica Esparta, puedes usar ALINES(), mira este ejemplo:

? ALINES(la, "Nada corre como un zorro",.T.," ")
DISPLAY MEMORY LIKE la

08-09-2005, 21:35

Roberto Kanashiro

Si tienes VFP 8 puedes usar la funcion GetWordNum()

Salu2

Roberto Kanashiro

Icotext Evolution v0.5 para los amantes del ASCII Art
<a href="http://www.geocities.com/icotext/spanish/"
target="_blank">http://www.geocities.com/icotext/spanish/</a>

-----------------------------------------------
PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway
-----------------------------------------------

08-09-2005, 21:35

Esparta Palma

Afortunadamente, desde VFP7 la función Alines() tiene un parámetro con
lo que puedes especificarle el caracter de separación.

Victor Espina wrote:
[..]

09-09-2005, 02:15

Esparta Palma

Pues no se parece mucho a la definición de Split de VB... ni de Alines()
de VFP.

09-09-2005, 12:47

Victor Espina

Excelente. Como se ve que me quedado atras con el VFP :(

Victor Espina

Esparta Palma wrote:
[..]

Temas Similares
funcion similar al split en transact-sql Hola amigos existe algo parecido a la funcion split () de visual basic en transact SQL.
existe alguna funcion existe alguna funcion que me de el valor de la variable que se esta evaluando. algo como variable = 2000 print functionXXX(variable) y me imprima 2000
Existe función similar al IIF del VB, en T-SQL?? Hola. Pues eso, que si hay alguna función parecida al IFF del Visual Basic en el Transact-SQL del SQLServer. Es decir, una funcion que le pasas tres...
¿Existe alguna función similar a IsDate de VBasic? Se trata de verificar si una fecha introducida en un TextBox es correcta. Con VBasic usaba IsDate, pero con C# no tengo ni idea. Conoceis alguna página de ayuda para los que...