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

segunda-feira, 31 de agosto de 2009

RE: [usuarios_fox] Importar TXT a DBF

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]