Problemas Lectura Archivo CSV

[ASAPLTDA]

Empezado por Casimiro Notevi

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?

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

[roman]

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

[roman]

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

[Casimiro Noteví]

Me lo guardo, puede hacer falta

[ecfisa]

Hola.

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

Saludos.

[roman]

A decir verdad, esa biblioteca fue lo primero que encontré e incluso la descargué. Pero soy muy flojo 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 .

// Saludos

[ASAPLTDA]

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

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

[ASAPLTDA]

Empezado por roman

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.

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 como lo hace pero lo hace (
Toca estudiar mas delphi )

roman como identifico que venia con caractrres unicode ?

[Casimiro Noteví]

Empezado por ASAPLTDA

roman como identifico que venia con caractrres unicode ?

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:

[roman]

Empezado por ASAPLTDA

roman como identifico que venia con caractrres unicode ?

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



Ya dije que soy muy flojo

// Saludos

[Casimiro Noteví]

Empezado por roman

Ya dije que soy muy flojo

Son las cosas de la edad


A mi me pasa igual