separar una cadena de caracteres

321 views
Skip to first unread message

Noe

unread,
Feb 9, 2017, 2:46:10 PM2/9/17
to Comunidad de Visual Foxpro en Español

Hola foro !!!

 

Esperando me puedan ayudar y con lo siguiente

 

Me envían un archivo plano y necesito subirla a una tabla con las sig. Características

 

1.- uadm           c 2

2.- num. emp.  c 7

3.- cuenta         c 11

4.- sueldo         n 10.2

 

Lo complicada del asunto que el archivo plano no viene lineado o parejo no se cómo se puede describirlo para que me entiendan lo describo abajo

 

64 109660 20008145704 9341.50

64 68343 56589496858 5648.45

64 1000123 56705026530 7764.44

 

si estuvieran parejos con un append from c:\sipabe\datos type sdf los logros subir

 

Los números siguiente al 64 es el numero del empleado por eso cambia la posición por que puede tener 7, 6, 5, 4 o 3 caracteres

me podrian dar un tip GRACIAS


Fidel Charny

unread,
Feb 9, 2017, 2:53:10 PM2/9/17
to Comunidad de Visual Foxpro en Español
Y esas separaciones entre datos existen o las pusiste solo para aclarar la cosa?

Víctor Hugo Espínola Domínguez

unread,
Feb 9, 2017, 4:16:38 PM2/9/17
to publice...@googlegroups.com
TEXT TO lcDatos TEXTMERGE NOSHOW PRETEXT 7

64 109660 20008145704 9341.50
64 68343 56589496858 5648.45
64 1000123 56705026530 7764.44
ENDTEXT
STRTOFILE(lcDatos, "Datos.txt")

CREATE CURSOR curDatos (uadm c(2), num_emp c(7), cuenta c (11), sueldo n(10,2))

APPEND FROM Datos.txt DELIMITED WITH CHARACTER " "

BROWSE


Saludos,
Víctor.
Lambaré - Paraguay.

Noe

unread,
Feb 9, 2017, 4:44:16 PM2/9/17
to Comunidad de Visual Foxpro en Español
si existen esas separaciones

integral

unread,
Feb 9, 2017, 7:37:38 PM2/9/17
to Comunidad de Visual Foxpro en Español

Que tal Amigo VICTOR HUGO .

Muy Buena solución al tema, pero suponiendo que el archivo de texto contiene por decir 900 filas o registros en ese caso como seria la solucion...

Saludos,

INTEGRAL   

Víctor Hugo Espínola Domínguez

unread,
Feb 9, 2017, 9:19:29 PM2/9/17
to publice...@googlegroups.com
Hola Integral

La solución es este comando:


APPEND FROM Datos.txt DELIMITED WITH CHARACTER " "

Sirve para 1 o cualquier cantidad de líneas en el archivo de texto.

Lo que está antes es simplemente la creación de los datos de prueba.

Saludos,
Víctor.
Lambaré - Paraguay.


larue...@yahoo.com

unread,
Feb 10, 2017, 4:44:08 AM2/10/17
to publice...@googlegroups.com

--------------------------------------------
On Fri, 2/10/17, Víctor Hugo Espínola Domínguez <vich...@gmail.com> wrote:

Subject: Re: [vfp] Re: separar una cadena de caracteres
To: publice...@googlegroups.com
Date: Friday, February 10, 2017, 4:19 AM
rmatele Austriei. Exponentii natiunii romane - poetii Vasile Alecsandri si Dimitrie Bolintineanu scriitorii Ion Ghica si Costache Negri sprijiniti de istoricul Eudoxiu Hurmuzaki ori de marele industrias si bancher Gheorghe Simeon sina - reusesc ca printr-o ampla activitate diplomatica Viena - 1855 Constantinopol si Paris 1856 sa faca din propria cauza o problema de insemnatate europeana.

Noe

unread,
Feb 10, 2017, 8:14:46 AM2/10/17
to Comunidad de Visual Foxpro en Español, larue...@yahoo.com
Buenos días...
Gracias  Victor Hugo de las dos formas funciono
pero voy a utilizar la ultima por que mi archivo tiene 5200 lineas

GRACIAS 

Fidel Charny

unread,
Feb 10, 2017, 8:57:29 AM2/10/17
to Comunidad de Visual Foxpro en Español
Claro que hoy es viernes, pero... Victor Hugo presentó dos soluciones?. O me falla la vista, o me falla el google, o me falla... Bueno, sí, un poco me falla, pero yo veo una sola: la correcta.
Reply all
Reply to author
Forward
0 new messages