Ver Mensaje Individual
  #1  
Antiguo 08-08-2005
julian_ch julian_ch is offline
Miembro
 
Registrado: jun 2003
Posts: 18
Reputación: 0
julian_ch Va por buen camino
Importar fichero .dat desde cobol

Hola a todos, necesitaria k alguien me hechara un cable con un problemilla k m ha surgido, el caso es que esto haciendo un programa k importa datos de tablas desde cobol, hasta ahora todo bien, pero hay una tabla en cobol que tiene caracteres raros entre las lineas, el teme es que cuando mi programa llega a ese caracter me acaba la linea y pasa a la siguiente. En el programa si edito el fichero en el pc dnd esta el cobol (que es un linux) se ve algo asi como ^@ y en windows se ve un cuadradito. lo que estoy utilizando para leer el fichero de cobol es esto:


procedure ImportarTabla;
var
linea: PChar;
txt: TStringList;
begin
txt := TStringList.Create;
try
txt.LoadFromFile(pchar(edtRuta.Text+'\fichero.dat'));
for i := 0 to txt.Count - 1 do
begin
linea := PChar(txt.strings[i]);
OemToAnsiBuff(linea, linea, strlen(linea));
////....trato la linea
end;
finally
txt.Free;
end;
end;


Espero que alguien me pueda ayudar yo estoy buscando un monton y no encuentro nada. Gracias!!!!!
Responder Con Cita