| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Решил сделать прогу, которая заменяла бы в html файлах ... [D6, WinME]
sany © (2002-03-08 08:10:00)Решил сделать прогу, которая заменяла бы в html файлах заданные значения. Например задаю чтобы меняла на <strong>, подскажите с чего начать и по какому принципу. Заранее спасибо.
P.S.
Только не говорите что таких прог много, просто хоца самому написать.
~Sergius (2002-03-08 20:55:00) [1]StringReplace из SysUtils
только все равно, чтобы все всегдабыло ок необходимо хотя бы элементарное парсирование текста
Роман Василенко (2002-03-08 11:42:00) [2]
Uses SysUtils, ...;
...
...
function ChangeText(asrc,awhat,ato:string):string;
var
f:integer;
begin
result:=asrc;
if ansisametext(awhat,ato) then exit;
repeat
f:=ansipos(awhat,aresult);
if f>0 then begin
delete(result,f,length(awhat));
insert(ato,result,f);
end;
until f>0;
end;
...
...
var
UnchangedText,
ChangedText:string;
begin
UnchangedText:="<STRONG> Hi, world! </STRONG>";
ChangedText:=ChangeText(UnchangedText,"STRONG>","B>");
end.
sany (2002-03-08 08:14:00) [3]Поправочка: меняла " " на "<strong>", а то там непонятно ,что на что менять.
| |
