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

segunda-feira, 31 de agosto de 2009

RE: [usuarios_fox] Importar TXT a DBF

Gracias amigo, me sirvio de mucho tu ejemplo

--- El lun, 31/8/09, Jairo Enrique Berrío S. <jairo.berrio@tke-grupothyssenkrupp.com.co> escribió:

De: Jairo Enrique Berrío S. <jairo.berrio@tke-grupothyssenkrupp.com.co>
Asunto: RE: [usuarios_fox] Importar TXT a DBF
Para: usuarios_fox@yahoogrupos.com.mx
Fecha: lunes, 31 agosto, 2009 4:10

Roberto prueba con este código que hace exactamente eso, tiene que usar
visual foxpro 9.0

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)

**aqui podemos copiar el archivo o el cursor a otro lado

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: Domingo, 30 de Agosto de 2009 11:29 a.m.
Para: Yahoo UsuariosFox
Asunto: [usuarios_fox] Importar TXT a DBF

Hola Amigos :

Tengo unos archivos de texto delimitados con el caracter "|", algo asi

20189254602|DISEÑOS FLORES S.R.L.|SOCIEDAD IRREGULAR|-|-|HABIDO|
20386431427|GRUPO LA REYNA S.A.C.|SOCIEDAD ANONIMA CERRADA|-|-|HABIDO|

Quiero importar solo los 2 primeros campos, el Ruc (codigo) y la Razon
Social,

Probe con :

APPEND FROM Ingresos.txt DELIMITED WITH |

pero no me da el resultado que deseo, alguna idea por favor

[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]

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

Comentarios, observaciones o si deseas darte de baja avísame a: jamorquecho@hotmail.com

Enlaces a Yahoo! Grupos

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