Problemas Lectura Archivo CSV
 

Apreciados Foristas,
He recibido un archivo de texto. El archivo es la exportacion de un sistema de SQLSERVER 2008 y los campos vienen delimitados con punto y coma (;)
Cuando los veo los con el editor de Notepad ++ se ven bien, cada registro tiene su registro final con CRLF indicando el final del registro , despues del ultimo registro no tiene campos de control visibles con notepad ++.
Para leer el archivo de datos utilizo el siguiente codigo utilizando delphi 5
Pero no lee los registros , como si no los reconociera
Abri el Archivo con notepad++ copie los datos al clickboard y los copie a un notepad microsoft salve la informacion con otro nombre y ejecute de nuevo la lectura de datos, y ahi si funciono en forma correcta

Abri el archivo usando

Código Delphi [-]
  MemoCSV.Lines.Clear;  // PRUEBAS
  OpenDialog1.FileName:= '*.CSV';
  OpenDialog1.Execute;
  MemoCSV.Lines.LoadFromFile(OpenDialog1.FileName);

y como resultado obtengo solo 3 caracteres en el campo memo, pero son campos como de control

Ahora utilice el codigo usando delphi xe2

Código Delphi [-]
  MemoCSV.Lines.Clear;  // PRUEBAS
  OpenDialog1.FileName:= '*.CSV';
  OpenDialog1.Execute;
  MemoCSV.Lines.LoadFromFile(OpenDialog1.FileName);

y los datos aparecen en el campo memo en forma normal los cuales son comno 1500 registros

No uso delphi Xe2 ya que estamos apenas estamos migrando a esta nueva version de delphi

Puede alguno de ustedes darme alguno idea o si ha tenido el mismo problema y su solucion

Gracias

Adjunto una oparte del texto a importar

Me pierdo en la descripción de tu problema. ¿Qué es el primer código? ¿Qué es eso de LOAD_MEMO, LOAD_DATASET? ¿Quieres leer el archivo con ese código (que no entiendo qué hace) o en un Memo con LoadFromFile?

// Saludos

Ampliacion Codigo
 

Gracias Roman por contestar:

El primer codigo es para ller el archivo que voy a importar y declaro un archivo texto, el cual leo linea a linea, una vez que leo una linea lo que hago es descomponer el registro en campos.

Código Delphi [-]
procedure forma1.leer_texto;
var
  w_F          :TextFile;
  w_string     :string   ;
begin
 Readln(w_F, w_string);
  w_string := Trim(w_string)  ;
  While not (Eof(w_F)) OR (w_string  > '') do begin
    descomponer_texto_en_campos(); 
   w_string:='';
    Readln(w_F, w_string);
  end;
  CloseFile(w_F);

Con el anterior el programa no lee registros ya que el while esta condicionado con eof(w_f) , tal como lo anote en la descripcion si el archivo lo copio a otro archivo usando copy parte y salvarlo el archivo si es procesado en forma normal

En el siguiente formato, uno puede grabar la inormacion de un archivo de texto dentro de un campo memo. La prueba conv delhi 5 solo trae 3 caracteres que no se que son, usando delphi xe2 con el mimo codigo si funciona,

Código Delphi [-]
 MemoCSV.Lines.Clear;  // componente tipo memo en la forma
  OpenDialog1.FileName:= '*.CSV';
  OpenDialog1.Execute;
  MemoCSV.Lines.LoadFromFile(OpenDialog1.FileName);  // grabar a un campo memo toda la informacion del archivo a importar

Creo que existe algo en el archivo que no deja que se lea normalmente, pero a su vez existe alguna diferencia en la forma que se lee un load fromfile entre delphi 5 y delphi xe

Gracias por su atencion

No entiendo la explicación, ¿quieres decir que el fichero de texto tiene un formato especial?, ¿que no es texto 'normal'?

¿Es posible que pongas aquí un trozo de fichero para que le echemos un vistazo?

archivo csv
 

Gracias casimiro por tu interes, Voy a envia el archivo original y el archivo copia usando el clipboard para que puedan observar alguna difrencia que no he podido hallar.
El archivo que tiene las letras xxxx al final es la copia usando el copy a clipboard

Usdo delphi 5

El archivo original está en unicode que no puede leer delphi 5 directamente pero sí delphi xe. Tendrías que convertir primero el archivo antes de poder leerlo.

// Saludos

Me encontré esta función aquí, al parecer de Peter Below

Código Delphi [-]
procedure LoadUnicodeFile(const FileName: String; Strings: TStrings);
  procedure SwapWideChars(p: PWideChar);
  begin
    while p^ <> #0000 do
    begin
      p^ := WideChar(Swap(Word(p^)));
      Inc( p );
    end;
  end;

var
  Stream: TMemoryStream;
  wChar: WideChar;
  pwChar: PWideChar;

begin
  Stream:= TMemoryStream.Create;

  try
    Stream.LoadFromFile(FileName);
    Stream.Seek(0, soFromEnd);
    wChar := #0000;
    Stream.Write(wChar, SizeOf(wChar));

    pwChar := Stream.Memory;
    if pwChar^ = #$FEFF then // normal byte order mark
      Inc(pwChar)
    else if pwChar^ = #$FFFE then
    begin // byte order is big-endian
      SwapWideChars(pwChar);
      Inc(pwChar);
    end
    else; // no byte order mark

    Strings.Text := WideChartoString(pwChar);
  finally
    Stream.free;
  end;
end;

Su uso es muy sencillo:

Código Delphi [-]
LoadUnicodeFile('c:\ruta\a\PLANO_WMS3.TXT', Memo1.Lines);

Ojalá te sirva.

// Saludos

Me lo guardo, puede hacer falta :)

Hola.

Para sumar otra opción: Delphi Gems Unicode library, free (licencia MIT) para plataformas Delphi 4 - 5, BCB 4 - 5.

Saludos.

A decir verdad, esa biblioteca fue lo primero que encontré e incluso la descargué. Pero soy muy flojo :o y de buenas a primeras no vi cómo usarla para resolver el problema del compañero, así que seguí con mi búsqueda en Google :D.

// Saludos

Como se Identifica el Archivo tenga caracteres Unicode?
 

Gracias Roman, al identificar que el archivo venia con caracteres unicode, varios foristas enviaron soluciones para poder leer los datos con delphi 5. Copie la intruccion del fuente de Peter Below enviado por nuestro companero, no entiendo :confused: como lo hace pero lo hace (
Toca estudiar mas delphi :eek:)

roman como identifico que venia con caractrres unicode ?

Leyendo archivo con caractres unicode con delphi 5
 

Gracias Forista Roman y a los otros foristas por su pronta respuesta
Usando el codigo de Peter Below facilitado por roman he podidom solucionar el problema con un par de copy paste :D

[quote=roman;439752]Me encontré esta función aquí, al parecer de Peter Below

Fíjate en la diferencia, en el "normal" hay un espacio por cada caracter. En el unicode, que tiene más de un byte por caracter como puedes ver:

Ya Casimiro dió la respuesta correcta y científica :) Yo me limité a abrir el archivo con EditPlus y en la esquina inferior derecha claramente decía: Unicode :D



Ya dije que soy muy flojo :o :p

// Saludos

Son las cosas de la edad :p:D


A mi me pasa igual :o:)