Ver Mensaje Individual
  #1  
Antiguo 06-07-2011
pelikno pelikno is offline
Miembro
NULL
 
Registrado: oct 2010
Posts: 95
Reputación: 16
pelikno Va por buen camino
Ayuda con archivo .tmp

Resulta que tengo que leer un archivo que no se que es, la extension es .tmp
declare un textFile y cuando leo con readln(File,Str) ,me lee todo el contenido como string, un ejemplo es asi 2344323454NANINO#$A23442455987887NINODI#$A
el tema es que no puedo identificar que caracter es #$A ya que recorro el string


Código:
while tot <=  (Length(str)) do
     begin
     if str[tot] = '#$A' then
        begin
        tot:= tot + 3 ;
         memo1.Lines.Add(aux);
         aux:= '';

        end
        else
        begin
        int:= Ord(str[tot]) ;

        aux:=aux + str[tot];
        tot := tot + 1;
        end;
     end;
Asi recorro el string pero resulta que cuando pregunto por # no lo identifica directamente agrega '#$A' como si fuera un solo caracter.
el formato del archivo es
numerocuilOtros#$AnumerocuilOtros#$AnumerocuilOtros#$A
No puedo identificar el separador de los camposo sea que tipo de caracter es.
En el if probe con comparar con # y no funciono,pregunte por #$A y tampoco.
Supongo que es un cambio de parrafo o algo asi pero no lo puedo identificar.
Si lo abro con notepad me muestra un string con todos los datos de corrido y en cambio el Word me los separa y me coloca un campo por linea como si reconociera el cambio de linea que indica #$A.
Si alguien tiene alguna idea sera de mucha ayuda ya que no se tampoco si declare el archivo como textfile o file of byte, correctamente.
Gracias!!!
Responder Con Cita