FoxPro/Visual FoxPro - Funcion Split de VB en FoxPro

Saludos a todos,

Veran, estoy trabajando con informacion que puede venir separada por comas o por pipes(ej. dato1|dato2|dato3|dato4|...), en tal caso debo de sacar cada dato contenido dentro de la cadena para poder evaluarlo, en vb era sencillo ya que la funcion split me regresaba un arreglo (ej. array = split(cadena, "|"))

El problema esque debo de aplicarlo en un sistema realizado en VFP 8 y no encuantro la manera de hacerlo, he buscado en la ayuda y en internet y nada de nada.

Alguien sabe si existe una funcion similar en FoxPro??

De antemano muchas gracias

Puedes probar esto:
APPEND FROM datos DELIMITED WITH "|"
Esto te creara los datos y seran delimitados por "|"

Gracias Mauricio, pero que no eso solo funciona para los cursores??, de cualquier forma lo intentaré y haber que pasa.

Gracias.

Amigo OMAT :

Hace dos dias buscando cierta informacion en el Internet encontre un codigo que era una Rutina equivalente al SPLIT de Visual Basic para Visual Foxpro.

Indicame tu correo para poder enviarte la rutina.

Saludos,

Gabriel
(Lima-Perú)

Gabriel, mi correo es [email protected] y te agredeceria que me hicieras llegar la funcion que comentas porque hasta ahora no he logrado grandes avances

use afiliado
GOTO TOP
DO WHILE !EOF()

?RIGHT(ALLTRIM(AFILIADO.APENOM_1),(LEN(ALLTRIM(AFILIADO.APENOM_1))-ATCC(" ",ALLTRIM(AFILIADO.APENOM_1))))
?LEFT(ALLTRIM(AFILIADO.APENOM_1),AT_C(" ",ALLTRIM(AFILIADO.APENOM_1)))
entrada=AFILIADO.FECING_1
SKIP
ENDDO

Con esto sacas el apellido por un lado y los nombres por el otro, es sencillo determinar para lo siguiten que solo debes de procesar la cadena resultante del nombre recortado para volverla a recortar, bastara conque (en este caso) cuentes los espacios en blanco para determinar cuantas veces aplicar el recorte.

la entrada en afiliado.apenom_1='Costas Juan Carlos'
devuelve

nombre= 'Juan Carlos'
apellido='Costas'

Puede hacerse con esto, si el nombre tiene un solo apellido

DO WHILE !EOF()
APE1 = SUBSTR(NOMBRE,1,ATC(' ',NOMBRE)-1)
ENDDO

La entrada: Cordova Santos Percy
devuelve: Cordova

Mi problema como obtengo los dos apellidos

Saludo

Pecsa
Chiclayo - Peru

Usa la función

GetWordCount(cString[, cDelimiters])

Que te dice cuantas palabras hay en una cadena

Y la función

GETWORDNUM(cString, nIndex[, cDelimiters])

que te retorna la palabra número 'nIndex' que le indiques de la cadena.

Todo está en la ayuda del fox.

Esto si funciona perfectamente a lo que estas buscando:

#define CRLF chr(13)+chr(10)
lcstring = [Es to es una prueba de split en VFP]
lcstring = strtran(lcstring, " ", CRLF)+CRLF
alines( aStr, lcstring)
display memory like aStr