Cтроки

[Letrblak]

доброго времени суток)
есть документ с содержанием типа:
Nmap scan report for 217.199.237.237
Host is up (0.080s latency).
PORT STATE SERVICE
53/udp closed domain

Nmap scan report for 217.199.237.241
Host is up (0.068s latency).
PORT STATE SERVICE
53/udp closed domain

Nmap scan report for 217.199.238.22
Host is up (0.053s latency).
PORT STATE SERVICE
53/udp open|filtered domain

нужно записать первую строчку в 1.txt, если четвёртая 53/udp closed domain.

[eoln]

Примерно так.
f1-исходный файл
f2-файл 1.txt

while not eof(f1) do begin
  readln(f1, s)
  for i:=1 to 3 do readln(f1, st);
  if st='53/udp closed domain' then writeln(f2, s);
  readln(f1, s)
end;

Осталось объявить переменные, открыть/создать/закрыть файлы, можно добавить обработку ошибок на случай если кол-во строк в файле не кратно 5.

[Letrblak]

Спасибо огромное!!

[Letrblak]

она не работает

[unbanned]

возможно потому что это только часть программы?
и вам необходимо её дописать....

program strings;
var
...
begin
...
while not eof(f1) do begin
  readln(f1, s)
  for i:=1 to 3 do readln(f1, st);
  if st='53/udp closed domain' then writeln(f2, s);
  readln(f1, s)
end;
...
end.

клац

[Letrblak]

вообщето я не тупой!
Выдает ошибки

[Serge_Bliznykov]

Сообщение от Letrblak

вообщето я не тупой!
Выдает ошибки

Угу. причём секретные.

Так исправьте код, чтобы не выдавала.

[unbanned]

Вообще то Вас тупым никто и не называл. И если бы вы привели код своей программы и текст ошибок, которые выдаёт компилятор, помочь было бы легче. А так как вы этого не сделали, то сложилось впечатление что вы скопировали кусок кода и жалуетесь что он не работает