Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];




Вниз

Решил сделать прогу, которая заменяла бы в html файлах ... 


sany   (2002-03-08 08:10) [0]

Решил сделать прогу, которая заменяла бы в html файлах заданные значения. Например задаю чтобы меняла на <strong>, подскажите с чего начать и по какому принципу. Заранее спасибо.

P.S.
Только не говорите что таких прог много, просто хоца самому написать.



sany   (2002-03-08 08:14) [1]

Поправочка: меняла " " на "<strong>", а то там непонятно ,что на что менять.



Роман Василенко   (2002-03-08 11:42) [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.



~Sergius   (2002-03-08 20:55) [3]

StringReplace из SysUtils
только все равно, чтобы все всегда было ок необходимо хотя бы элементарное парсирование текста




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.025 c
14-80672          Merlin                2002-02-08 11:37  2002.03.25  
Новая задачка


3-80423           Ольга                 2002-02-26 15:28  2002.03.25  
PackTable


4-80716           FLASH !               2002-01-25 14:28  2002.03.25  
WINDOWS 9x РЕЕСТР !!!!


1-80596           .Horol.               2002-03-03 16:40  2002.03.25  
посылка нажатых клавиш в дос програму


3-80399           sniknik               2002-02-21 17:16  2002.03.25  
Таблица Pardox без первичного ключа не отдается полным доступом.