Форум: "Основная";
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];
ВнизРешил сделать прогу, которая заменяла бы в html файлах ... Найти похожие ветки
← →
Роман Василенко (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.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c