Копирование и перемещение файлов формата HTML вместе со связанными файлами и выделение слов, указанных в <TITLE>

[akademochka]

Есть файловый менеджер(простой), и это должно быть одной из его функций. Помогите, пожалуйста, с кодом.

[Человек_Борща]

А что за код есть у вас?

[akademochka]

Я задание не очень то понимаю, что говорить о коде

[Человек_Борща]

хм, используете WinAPI ф-ию: Movefile, MoveFileEx для перемещения html-файла. Система сама переместит, связанные с html-файлом, файлы.
Открываете html-файл(TStringList), находите там(Pos,PosEx) строку <title> если есть, то копируете все от её конца и до начало </title>, закрываете файл заносите полученный текст куда вам надо.

В скобках указаны функции и классы delphi с которыми надо будет работать.

[Пепел Феникса]

Система сама переместит, связанные с html-файлом, файлы.

эмм, что?
они переместят тока тот файл и усе.
система не будет парсить html на предмет связей.

[Человек_Борща]

эмм, что?
они переместят тока тот файл и усе.

гм.. у системы есть такая функция. Сохраните кусок сайта в файл вместе с картинками(не веб-архив). Будет <file name>.html и папка <file name>_files, при перемещении, копировании <file name> и т.д. система автоматом повторит операцию над папкой <file name>_files. Сколько себя помню, столько эта функция была и есть.

Оболочка окна дергает все те же Copy/Move/DeleteFile/FileEx, не думаю что выше описанное где-то в др. месте зашито.

А вот про парсинг я говорил, что в delphi этим самому надо заниматься а не системе.

[akademochka]

что здесь не правильно?

procedure TForm1.HTML1Click(Sender: TObject);
var c:string;

a,b:integer;


d: string;
begin
c:= InputBox('Введите путь и название', c, FileListBox1.FileName);
if(c<>FileListBox1.FileName)
then MoveFile(PAnsiChar(FileListBox1.FileName), PAnsiChar(c));

a:=pos('<title>', c);
b:=pos('</title>', c);
label2.Caption:=copy(c,a+length('<title>'),b-(a+length('<title>'))+1);

end;

[Человек_Борща]

А что не правильно работает?

[akademochka]

я пробовала чтобы выводило все, что в title в мемо или эдит, все равно ничего туда не выводится
то есть НИЧЕГО не работает