Hot Fox: RE: [usuarios_fox] Importar TXT a DBF

sexta-feira, 4 de setembro de 2009

RE: [usuarios_fox] Importar TXT a DBF

CLOSE ALL

SET STEP ON

CREATE CURSOR cur_solucion(codigo c(15), razon c(50)) &&Cursor para guardar
los datos

cadena = FOPEN('c:\archivo.txt') &&Aqui se cambia el nombre del archivo con
el path es importante

DO WHILE ! FEOF(cadena)

linea = FGETS(cadena)

FOR I = 1 TO getWordCount(nom, '|')

m.codigo = LEFT(GETWORDNUM(linea,1,'|'),2) && se extracta solo los 2
primeros del código

m.razon = GETWORDNUM(linea,2,'|') && se obtiene la razon
social

ENDFOR

INSERT INTO cur_solucion FROM memvar

ENDDO

=FCLOSE(cadena)

El FGETS(cadena) lo que hace es leer línea por línea el archivo de texto

getWordCount(nom, '|') lo que hace es contar cuantos caracteres hay '|' que
son los delimitadores

LEFT(GETWORDNUM(linea,1,'|'),2) significa que de la cadena de la línea del
texto seleccionada y almacenada en la variable línea busca la primera
ocurrencia por eso dice ,1 y donde encuentra el primer carácter hasta ahí va
los caracteres encerrados en es delimitador '|'

GETWORDNUM(linea,2,'|') en este caso como la razón social esta en la segunda
posición entonces ya es 2 si el que se busca esta en la posición 3 entonces
ya debemos seleccionar 3 y el carácter.

INSERT INTO cur_solucion FROM memvar solo se usa para cargar las variables
en el cursor que se ha creado inicialmente

En otras palabras es como si se escribiera REPLACE cur_solucion.codigo with
m.codigo, cur_solucion.razon with m.razon

Es igual solo que aquí ese comando realiza la misma operación.

En resumen lo que se hace es extractar parte de una línea de caracteres y
luego salvarlos a un cursor , teniendo esto en un cursor ya el resto es
carpintería

logo_vert2

tk_logo

Jairo Enrique Berrío S.

I.T. Colombia

ThyssenKrupp Elevadores S.A.

Av Kra 45 # 118 - 30 Of. 704 Bogotá –Colombia

Teléf : (571) 6294301

Móvil : (315) 2449147

E-Mail: jairo.berrio@tke.com.co

Skype: tkcolombia

De: usuarios_fox@yahoogrupos.com.mx [mailto:usuarios_fox@yahoogrupos.com.mx]
En nombre de Roberto Lemos
Enviado el: Viernes, 04 de Septiembre de 2009 12:17 p.m.
Para: usuarios_fox@yahoogrupos.com.mx
Asunto: Re: [usuarios_fox] Importar TXT a DBF

Asi es, cada registro termina con el caracter "|"

--- El vie, 4/9/09, Eduardo Arellano Hdez. <eduardo.arellano@gmail.com
<mailto:eduardo.arellano%40gmail.com> > escribió:

De: Eduardo Arellano Hdez. <eduardo.arellano@gmail.com
<mailto:eduardo.arellano%40gmail.com> >
Asunto: Re: [usuarios_fox] Importar TXT a DBF
Para: usuarios_fox@yahoogrupos.com.mx
<mailto:usuarios_fox%40yahoogrupos.com.mx>
Fecha: viernes, 4 septiembre, 2009 4:55

a que te refieres con que es un insert??

o sea que cada numero es un registro hasta donde hay un |??

es una sola linea o tienes lineas de una longitud determinada??

2009/9/3 Roberto Lemos <beto_sysfox@yahoo.es <mailto:beto_sysfox%40yahoo.es>
>

>
>
> Hola Amigos:
>
> Hace unos dias hice una pregunta sobre como importar archivos TXT a DBF,
> con la ayuda dada pude resolver mi problema.
>
> Ahora me surge otro el archivo que deseo importar tiene la siguiente
> estructura
>
> 20492397221|20500824651|20133604248|10090545524|20100194057|
>
> es decir los numeros vienen uno al lado del otro, quiero importar esto,
> pero considerando que luego del caracter "|" es un Insert
>
>
>
> [Se han eliminado los trozos de este mensaje que no contenían texto]
>
>
>

--
Eduardo Arellano Hdez.
Aguascalientes, Mexico
-----------------------------------
eduardo.arellano@gmail.com <mailto:eduardo.arellano%40gmail.com>
Club Rotario Ejecutivo Aguascalientes: http://www.rotarycrea.org
Blog http://www.biglalito.info
FaceBook: http://facebook.biglalito.info

[Se han eliminado los trozos de este mensaje que no contenían texto]

------------------------------------

Comentarios, observaciones o si deseas darte de baja avísame a:
jamorquecho@hotmail.com <mailto:jamorquecho%40hotmail.com>

Enlaces a Yahoo! Grupos

[Se han eliminado los trozos de este mensaje que no contenían texto]

[Se han eliminado los trozos de este mensaje que no contenían texto]