Importar fichero de texto con acentos y ñ

[jmr...@gmail.com]

Buenos dias,

Me estoy volviendo loco con la importacion de un fichero de texto que contiene acentos y ñ

He probado con

APPEND FROM tmp01.txt SDF as 850

y todos los codigos que se me han ocurrido

Adjunto el fichero de texto y la bases de datos en la que importo

Alguien me da alguna pista de como hacerlo?

[Sergio Rojas]

Te recomiendo utilizar FREAD()

--
Blog de la Comunidad Visual FoxPro en Español http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/16711236-4eaa-48af-a939-953eb02872d7n%40googlegroups.com.

[Zarlu]

Buenos días  jmromeo!

Dos sugerencias:

1.-

lcFileTxt=FULLPATH(CURDIR())+"tmp01.txt"
lcFileDbf=FULLPATH(CURDIR())+"tmp01.dbf"
lcFileTmp=FULLPATH(CURDIR())+"tempo.txt"
lcTexto=STRCONV(FILETOSTR(lcFileTxt),11)
STRTOFILE(lcTexto,lcFileTmp)
USE (lcFileDbf)
APPEND FROM (lcFileTmp) SDF
DELETE FILE (lcFileTmp)
Browse
USE IN (lcFileDbf)

2.-
lcFileDbf=FULLPATH(CURDIR())+"tmp01.dbf"
lcFileTxt=FULLPATH(CURDIR())+"tmp01.txt"
lcTexto=STRCONV(FILETOSTR(lcFileTxt),11)
lnLines=ALINES(laArray,lcTexto)
USE (lcFileDbf)
FOR a=1 TO lnLines
INSERT INTO (lcFileDbf) Values(laArray(a))
ENDFOR
Browse
USE IN (lcFileDbf)

Suerte

zarlu

Chetumal, Quintana Roo, México

[jmr...@gmail.com]

Y en que cambia? El FREAD me visualiza el fichero tal como lo hace al APPEND FROM.

No me he explicado bien lo que busco. 

-Si abro el fichero con un editor de textos veo las ñ y los acentos.

-Si lo abro con VFp esas ñ y acentos cambian a caracteres extraños

[Gerardo Cagnola]

tu problema es decodificación, te sugiero que leas la documentación y/o uses alguna i.a.

Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/75bf8131-e1eb-462d-a71a-7870688d427cn%40googlegroups.com.

[Eric Zbrun]

Hola  jmr...@gmail.com !

Mira yo tenia un problema similar con info que tenia en un archivo (en HTML) que tenia que enviar por mail (el cual tenia acentos y demas carateres).

Una de las IA me lo resolvió así

FUNCTION ReadUTF8File(tcFile)
    LOCAL oStream, lcContent
    oStream = CREATEOBJECT("ADODB.Stream")
    oStream.Type = 2  && texto
    oStream.Charset = "utf-8"
    oStream.Open()
    oStream.LoadFromFile(tcFile)
    lcContent = oStream.ReadText()
    oStream.Close()
    RETURN lcContent
ENDFUNC

 

Saludos

Eric!

[jmr...@gmail.com]

Muchas gracias a todos, la solucion que me ha funcionado es la de Zarlu

[jmr...@gmail.com]

El problema era de la decodificacion (me lo imaginaba), pero no sabia como solucionarlo, la solicion la ha dado Zarlu con:

 lcTexto=STRCONV(FILETOSTR(lcFileTxt),11)

Muchisimas gracias