Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 19-06-2007
Avatar de Durbed
Durbed Durbed is offline
Miembro
 
Registrado: ago 2004
Posts: 166
Poder: 20
Durbed Va por buen camino
Problema al leer un fichero que empieza con ÿþ

En Windows XP hay un fichero que almacena un registro del call id, es decir, a quien llamas y quien te llama a ti, este fichero se encuentra en "C:\Documents and Settings\<usuario>\Configuración local\Datos de programa\Microsoft\Dialer\<usuario>_call_log.txt" El fichero es de esta forma:
"tipo_llamada", "fecha", "hora", "duracion", "Nombre", "Telefono"

El problema es que el fichero aparentemente es normal, pero no funcionaba al leerlo, entonces mire a ver que tenia en hexadecimal y tiene esta pinta:
ÿþ".t.i.p.o._.l.l.a.m.a.d.a.".,.".f.e.c.h.a.". ...
y ahi es donde esta el problema, pues solo me lee ÿþ. Hay alguna forma de pasarlo a un formato decente o leerlo asi sin problemas?

Para leer (bueno para intentar leer) el fichero utilizo:
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Archivo: TextFile;
  Linea: String;
  sl: TStringList;
  j: Integer;

begin
  AssignFile(Archivo, 'PRG1_call_log.txt');
  Reset(Archivo);

  sl := TStringList.Create;

  try
    while not EoF(Archivo) do
    begin
      ReadLn(Archivo, Linea);
      sl.CommaText := Linea;
      for j := 0 to sl.Count - 1 do
        memo1.Lines.Add(sl[j]);
    end;
  finally
    sl.Free;
  end;
  CloseFile(Archivo);
end;

Que sino me equivoco es un ejemplo de Roman.

A ver si me podeis ayudar, un saludo y gracias.
__________________
Intentando hacer algo con Delphi 7 y Firebird 1.5
Responder Con Cita
  #2  
Antiguo 19-06-2007
mensana mensana is offline
Miembro
 
Registrado: sep 2006
Posts: 69
Poder: 18
mensana Va por buen camino
Cita:
Empezado por Durbed
... tiene esta pinta:
ÿþ".t.i.p.o._.l.l.a.m.a.d.a.".,.".f.e.c.h.a.". ...
... Hay alguna forma de pasarlo a un formato decente o leerlo asi sin problemas?
Estás intentando leer un fichero en formato unicode. Los dos primeros caracteres "ÿþ" (FF FE) son para indicar que el fichero tiene ese formato.
Responder Con Cita
  #3  
Antiguo 19-06-2007
Avatar de Durbed
Durbed Durbed is offline
Miembro
 
Registrado: ago 2004
Posts: 166
Poder: 20
Durbed Va por buen camino
Gracias buscando un poco he encontrado una funcion que transforma el texto en ANSI y ya lo puedo tratar perfectamente. Gracias.
__________________
Intentando hacer algo con Delphi 7 y Firebird 1.5
Responder Con Cita
  #4  
Antiguo 19-06-2007
Avatar de jhonny
jhonny jhonny is offline
Jhonny Suárez
 
Registrado: may 2003
Ubicación: Colombia
Posts: 7.058
Poder: 29
jhonny Va camino a la famajhonny Va camino a la fama
Cita:
Empezado por Durbed
Gracias buscando un poco he encontrado una funcion que transforma el texto en ANSI y ya lo puedo tratar perfectamente. Gracias.
Que función ha sido la que te saco del aprieto?
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!"

http://www.purodelphi.com/
http://www.nosolodelphi.com/
Responder Con Cita
  #5  
Antiguo 19-06-2007
Avatar de Durbed
Durbed Durbed is offline
Miembro
 
Registrado: ago 2004
Posts: 166
Poder: 20
Durbed Va por buen camino
Las encontre en el foro http://www.clubdelphi.com/foros/show...=ansitounicode
__________________
Intentando hacer algo con Delphi 7 y Firebird 1.5
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
leer de fichero machingol Varios 7 09-05-2007 18:22:42
Leer fichero rocio84 Varios 1 21-05-2006 11:45:06
leer fichero de texto davidgaldo Varios 1 08-11-2005 16:05:12
Problema leer un fichero .sql jymy788 Varios 4 18-07-2005 15:47:23
Leer un fichero .ini oesteve OOP 6 16-06-2003 17:40:20


La franja horaria es GMT +2. Ahora son las 08:40:21.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi