Вытащить строку <title> .... </title> в txt файл

[kzld]

Вытащить строку <title> .... </title> в txt файл
Имеется куча *.html файлов в основном сохранённые из ON-Line
Пока не откроешь файл, трудно догадаться о чём в нём идет повествование. А если надо найти определённую информацию, приходится открывать все файлы по очереди.

Хочу следующее :
Программа\скрипт\приложение\модуль (как правильно?) чтобы просканировала все файлы в указанной директории, "вытащила" текст находящийся между тегами <title> </title> , записала этот текст в файл и через табуляцию в этой же строке прописала имя файла

[5naip]

наработки есть или все с нуля?

[Роман Радер]

пойдите во фриланс. могу написать такую программу за долларов 50, быстро.
А если вам только кусок кода нужет - то напишу. определитесь с задачей - вам программа нужна или просто код?

[capta1n]

program capta1n;
uses dos;
var
 f1,f2 : text;
 s : searchrec;
 str1 : string;
 k1,k2 : byte;
begin

  assign(f1,'output.txt');
  rewrite (f1);
  close(f1);
  findfirst ('*.htm',anyfile,S);
  while doserror = 0 do
   with S do
   begin
     assign (f2,name);
     reset(f2);
     while not EOF(f2) do
     begin
       readln (f2,str1);
       k1:=pos('<title>',str1);
       k2:=pos('</title>',str1);
       if (k1<>0) and (k2<>0) then
       begin
         str1:=copy(str1,k1,k2+7);
         break
       end;
     end;
     close (f2);
     append (f1);
     writeln(f1,str1,'   ',name);
     close(f1);
     findnext(s);
   end;

   readln
end.

[PSix1_73]

capta1n я вставляю твой код в Pascal и он не работает! Знаешь в чём проблема?

[-HunteR-]

Ошибку выдает? Если да, то код или текст ошибки в студию.

[Lime]

пойдите во фриланс. могу написать такую программу за долларов 50, быстро.
А если вам только кусок кода нужет - то напишу. определитесь с задачей - вам программа нужна или просто код?

В шоке.Эт ж нада так сильно?Если это за 50$ то яб тогда за лабы свои должен был брать этак 200-300$ ....
Я бы на стороне "пользователя и клиента" никогда не отдал 50 долларов на такой нереально простой парсер ... Я бы лучше ... да я даже незнаю ... эмоции переполняют ... эт как спичечный коробок продать за 15 долларов ... ( на фабрике по производству спичек )

[jeka5555]

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

В шоке.Эт ж нада так сильно?Если это за 50$ то яб тогда за лабы свои должен был брать этак 200-300$ ....
Я бы на стороне "пользователя и клиента" никогда не отдал 50 долларов на такой нереально простой парсер ... Я бы лучше ... да я даже незнаю ... эмоции переполняют ... эт как спичечный коробок продать за 15 долларов ... ( на фабрике по производству спичек )

Не научился ещё ценить свой труд, видимо. Студент