separar en token un archivo de texto
{A ver este programa te busca en un archivo que tuenes que crear con estos datos y este nombre
pemporal.txt , los Datos Son : NECESITO UN PROGRAMA EN PASCAL QUE BUSQUE A LA VEZ UN NOMBRE, UNA FRUTA, UNA
CIUDAD EN ESE ORDEN Y QUE ESTE EN EL MISMO ARCHIVO DE TEXTO Y QUE ME INDIQUE
SI ESTA O NO ESTA,O QUE SI ESTA PERO NO EN ESE ORDEN
y el programa buscara primero NOMBRE, FRUTA, CIUDAD por este orden.
Esto es para que tu lo pongas a tu forma.}
program busqueda;
uses
crt;
const
nombrearchi : string = 'pemporal.txt';
var
tex : text;
procedure buscadato(nombre, fruta, ciudad : string);
var
dato : char;
tomado : string;
paso, t, i : integer;
seencontro : array[1..3] of string;
begin
i := 1;
fillchar(tomado,255,' ');
assign(tex,nombrearchi);
{$I-} reset(tex); {$I+}
if ioresult <> 0 then
halt(1);
paso := 1;
while not Eof(tex) do
begin
Read(tex, dato);
if ord(dato) = 32 then
begin
for t := 1 to length(tomado) do
if (tomado[t] = ' ') or (tomado[t] = ',') then
begin
delete(tomado,t,1);
end;
if (tomado = nombre) or (tomado = fruta) or (tomado = ciudad) then
begin
seencontro[paso] := tomado;
paso := paso + 1;
if paso > 3 then
paso := 3;
end;
i := 1;
fillchar(tomado,255,' ');
end;
tomado[i] := upcase(dato);
tomado[0] := chr(i);
i := i + 1;
end;
close(tex);
if (seencontro[1] = nombre) and
(seencontro[2] = fruta) and
(seencontro[3] = ciudad) then
begin
for i := 1 to 3 do
writeln(seencontro[i]);
writeln;
writeln('Encontrados En Posicion Correctamente');
end
else
begin
writeln('Se An Encontrado ');
for i := 1 to 3 do
writeln(seencontro[i]);
end;
end;
begin
clrscr;
buscadato('NOMBRE','FRUTA','CIUDAD');
readln;
end.
