Запись в файл с преобразованием

[DenisVoronov]

Доброго времени суток!
Подскажите как сделать такую программку, которая будет текстовый файл вида:
1234 Linkin Park - Crawling
1235 Linkin Park - papercut

Конвертировать в XML вида:

<mytable>
<id>1234</id> 
<name>Linkin Park - Crawling</name>
<param></param>
</mytable>

<mytable>
<id>1235</id>
<name>Linkin Park - papercut</name>
<param></param>
</mytable>

А в начале и в конце документа должно стоять <dataroot>....текст....</dataroot>

[Sazary]

Читаете строку из файла.
Пишете в выходной файл <mytable>
Дальше идете до первого пробела (который за числом) и берете этот начальный кусок строки. Пишете <id>то, что вырвали</id>
Потом сбрасываете остальное: <name>остальное</name>
Ну и дальше, думаю, понятно.

[DenisVoronov]

ничего не понял... А есть может ссылочка на урок или пример?

[Sazary]

А есть может ссылочка на урок или пример?

На какой пример? Простая работа с файлами.
Еще может понадобиться функция copy.

ничего не понял..

Если вы действительно ничего не поняли, то вам пример не поможет.
Учите основы. Здесь нужны только они.

[DenisVoronov]

Дело в том, что есть очень много примеров в сети. И те кто этим занимаются, скорее всего знают где искать.
А начинать с основ нет времени. Если бы было, то не обращался за помощью.

[Sazary]

Держите.

uses crt;

var
f,fout : text;
filename1,filename2 : string;
s : string;
k : integer;

begin
clrscr;
writeln('Enter name of input file: ');
readln(filename1);
assign(f,filename1);
{$I-}
reset(f);
{$I+}
if IOResult <>0 then
 begin
 writeln('File not exist');
 readln;
 exit;
 end;

writeln('Enter name of output file: ');
readln(filename2);
assign(fout,filename2);
rewrite(fout);

writeln(fout,'<dataroot>');

while not eof(f) do
 begin
 readln(f,s);
 writeln(fout,'<mytable>');
 k := pos(' ',s);
 writeln(fout,'<id>'+copy(s,1,k-1)+'</id>');
 writeln(fout,'<name>'+copy(s,k+1,length(s))+'</name>');
 writeln(fout,'<param></param>');
 writeln(fout,'</mytable>');
 end;

writeln(fout,'</dataroot>');
close(f);
close(fout);
writeln('Complete!');

readln;
end.

[DenisVoronov]

От спасибо, от помощь))))))))))
Благодарен Вам!

[DenisVoronov]

Эт я так понял без форм и т.д.
Мне просто надо это сделать на нажание кнопки "Ок".
Т.е. чтобы вид был какой-то...
Помогите плз.

[Sazary]

Ну запишите это в обработчик кнопки. Код будет практически тот же.
Только вместо assign, text, close будут assignfile, textfile, closefile.

Вообще-то, надо указывать язык заранее.