Ficheros texto II

[[oscarac]]

si la cantidad de caracteres desde LCODE hasta el siguiente numero es la misma podrias agregar la cantidad de caracteres de diferencia para extraer la cadena

algo asi

Código Delphi [-]
 
 p:= Pos('L_CODE',Uppercase(Str));
           if p > 0 then
          Writeln(Destino,Copy(Str,p+4,MAXINT));