Copiar solo 5 lineas de texto de un txt desde visual fox pro a una tabla

689 views
Skip to first unread message

Ruben Dario Romo Ibarra

unread,
Apr 13, 2011, 8:15:04 PM4/13/11
to Comunidad de Visual Foxpro en Español
Hola
Hola Como puedo copiar solo 5 lineas de texto de un txt a una
tabla .dbf. espero su ayuda gracias

Trento

unread,
Apr 14, 2011, 12:04:52 AM4/14/11
to Comunidad de Visual Foxpro en Español
Puedes probar así:

CREATE CURSOR crsTEXTO C( 100 ) && o la longitud necesaria

SELECT crsTEXTO
APPEND FROM [ARCHIVOTXT] DELIMITED

Y a partir de eso, copiar sólo los primeros 5 registros.


Saludos.

On 13 abr, 19:15, Ruben Dario Romo Ibarra <rubendario...@gmail.com>
wrote:

Arnaldo Toledano

unread,
Apr 14, 2011, 10:02:05 AM4/14/11
to publice...@googlegroups.com
Como es el texto ?
Si esta separado por comas o tabuladores y ademas tiene el chr de final
de registro podes hacer lo siguiente.
Create Cursor cTexto Campo1 C (X), Campo2 C(Xy), etc, etc,


Select cTexto
Appe From ArchivoTXT Delimited for RecCount() < 6


Arnaldo

El 14/04/2011 01:04 a.m., Trento escribi�:
> Puedes probar as�:
>
> CREATE CURSOR crsTEXTO C( 100 )&& o la longitud necesaria


>
> SELECT crsTEXTO
> APPEND FROM [ARCHIVOTXT] DELIMITED
>

> Y a partir de eso, copiar s�lo los primeros 5 registros.

Ruben Dario Romo Ibarra

unread,
Apr 14, 2011, 10:27:04 AM4/14/11
to publice...@googlegroups.com
El 14 de abril de 2011 09:02, Arnaldo Toledano <arnaldo....@gmail.com> escribió:
Como es el texto ?
Si esta separado por comas o tabuladores y ademas tiene el chr de final de registro podes hacer lo siguiente.
Create Cursor cTexto  Campo1 C (X), Campo2 C(Xy), etc, etc,


Select cTexto
Appe From ArchivoTXT Delimited   for RecCount() < 6


Arnaldo

Lo que pasa que el texto del txt es demasiado largo pasa de los 255 caracteres y pues para separar el texto ya se como lo que quiero es pasar solo las primeras 5 lineas de texto del txt a una tabla. 




El 14/04/2011 01:04 a.m., Trento escribió:

Puedes probar así:


CREATE CURSOR crsTEXTO C( 100 )&&  o la longitud necesaria

SELECT crsTEXTO
APPEND FROM [ARCHIVOTXT] DELIMITED

Y a partir de eso, copiar sólo los primeros 5 registros.

Ruben Dario Romo Ibarra

unread,
Apr 14, 2011, 11:06:00 AM4/14/11
to Comunidad de Visual Foxpro en Español
Bueno mas bien quiero validar la cabecera de un txt al cargarlo a una
tabla que sea realmente ese txt que voy a subir para si no dañar la
estructura de la tabla.


marcelobu...@gmail.com

unread,
Apr 14, 2011, 12:02:44 PM4/14/11
to publice...@googlegroups.com
Hola

Leelo a bajo nivel con FOPEN()

Saludos
MarceloBuenosAires
________________

Ruben Dario Romo Ibarra

unread,
Apr 14, 2011, 1:38:42 PM4/14/11
to publice...@googlegroups.com
Amigo un favor como manejo el archivo de texto con el fopen para solo seleccionar las primeras 5 lineas de texto si puedes por favor ponerme un ejemplo. saludos

marcelobu...@gmail.com

unread,
Apr 14, 2011, 1:51:41 PM4/14/11
to publice...@googlegroups.com
Hola
Ahi va...

clear

*** El archivo TEST.TXT debe existir  ***

STORE FOPEN('test.txt') TO gnControladorArch    && Abre el archivo.

STORE FSEEK(gnControladorArch, 0, 2) TO gnEnd  && Mueve el puntero a EOF.
STORE FSEEK(gnControladorArch, 0) TO gnTop     && Mueve el puntero a BOF.

IF gnEnd <= 0  && ¿Está vacío el archivo?

    WAIT WINDOW 'Este archivo está vacío!' NOWAIT

ELSE  && De lo contrario,

    for x = 1 to 5
       gcString = FGETS(gnControladorArch, gnEnd)  && guarda el contenido.
          ? gcString
    NEXT X

ENDIF

FCLOSE(gnControladorArch)  && Cierra el archivo.

Saludos
MarceloBuenosAires
________

marcelobu...@gmail.com

unread,
Apr 14, 2011, 3:08:26 PM4/14/11
to publice...@googlegroups.com
Hola Ruben

Habia un valsecito que decia:

"... un MUCHAS GRACIAS se oyó.."

Saludos
MarceloBuenosAires
____________

Ruben Dario Romo Ibarra

unread,
Apr 15, 2011, 2:07:01 PM4/15/11
to publice...@googlegroups.com

Hola compañeros al convertir una fecha que almaceno en una caja de texto me da un error y la conversion la estoy haciendo correcta menta el error me da cuando lo quiero guardar a la tabla y el campo de tipo Date. la forma en que lo estoy guardando es de la siguiente manera:

replace fecha with ctod(thisform.fecha.value)

espero y me puedan ayudar saludos.

Rudolf Johann Heiner

unread,
Apr 15, 2011, 2:08:56 PM4/15/11
to publice...@googlegroups.com
prueba asi: replace fecha with thisform.fecha.value
no es necesario que pongas el ctod creo
saludos.

Ruben Dario Romo Ibarra

unread,
Apr 15, 2011, 2:16:45 PM4/15/11
to publice...@googlegroups.com
Compañero muchas pero muchas gracias no lo habia visto hay disculpa y pues tambien ya probe lo de la fecha de la forma en que me dices y no jala sigue aventando el error Function argument value, type, or count is invalid (Error 11)

Rudolf Johann Heiner

unread,
Apr 15, 2011, 2:19:36 PM4/15/11
to publice...@googlegroups.com
Ruben hola,
cuando le asignas un valor a thisform.fecha.value el valor inicial debe ser Date() o {  /  /    } para que thisform.fecha.value tenga el seteo,
espero te ayude,
saludos,
rudy.
 
 
Sent: Friday, April 15, 2011 8:16 PM
Subject: Re: [vfp] Re: Copiar solo 5 lineas de texto de un txt desde visual fox pro a una tabla
 

Ruben Dario Romo Ibarra

unread,
Apr 15, 2011, 2:26:12 PM4/15/11
to publice...@googlegroups.com
el seto en que parte de las propiedades puedo ponerlo?

Rudolf Johann Heiner

unread,
Apr 15, 2011, 2:27:46 PM4/15/11
to publice...@googlegroups.com
al inicializar la variable,
en el init del form,
espero te sirva,
saludos,
rudy.
 
Sent: Friday, April 15, 2011 8:26 PM
Subject: Re: [vfp] Re: Copiar solo 5 lineas de texto de un txt desde visual fox pro a una tabla
 

Ruben Dario Romo Ibarra

unread,
Apr 15, 2011, 2:28:50 PM4/15/11
to publice...@googlegroups.com
gracias amigo ya me jalo bien todo un experto en la materia saludos

2011/4/15 Rudolf Johann Heiner <rudolf...@hotmail.com>

marcelobu...@gmail.com

unread,
Apr 15, 2011, 2:10:47 PM4/15/11
to publice...@googlegroups.com
Hola Ruben

Te envie la rutina para solucionar tu tema...
"Copiar solo 5 lineas de texto de un txt desde visual fox"

Todavia no escuche el... "MUCHAS GRACIAS"

Saludos
MarceloBuenosAires
____________
Reply all
Reply to author
Forward
0 new messages