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
Código:
Readln(w_F, w_string);
w_string := Trim(w_string) ;
While not (Eof(w_F)) OR (w_string > '') do begin
Inc(g_leidos);
//LOAD_MEMO(W_STRING);
LOAD_DATASET(W_STRING);
w_string:='';
Readln(w_F, w_string);
end;
CloseFile(w_F);
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; 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; 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
Cita:
RE;146 ;16208018-5 ;GOMEZ VELASQUEZ RAMIRO ;2012-06-21 00:00:00.000;CRA 9 # 9-17 ;(052 ) 211 38 38 ;CARTAGO ;VALLE ;11:20;455019515110 ;195/60 R15 88H KR10 ;BOD6
;2.0000000;1;
|