Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Поиск в файле

5.9K
25 ноября 2005 года
Eksell
49 / / 16.11.2005
Всем привет. Помогите начинающему Делфиру. Я тут пытался осуществить поиск слов в файле и заменить их на другое (типа Replace All) но у меня нечего не получилось. Пожалуйста дайте пример, функцию как это можно сделать. Заранее спасибо.
402
12 мая 2012 года
ToRNaDo
70 / / 27.01.2004
function replace(str,s1,s2:string;casesensitive:boolean):string;
var
i:Int64;
s,t:string;
begin
s:='';
t:=str;
repeat
if casesensitive then i:=pos(s1,t) else i:=pos(ansilowercase(s1),ansilowercase(t));
if i>0 then
begin
s:=s+System.Copy(t,1,i-1)+s2;
t:=System.Copy(t,i+Length(s1),MaxInt);
end
else s:=s+t;
until i<=0;
result:=s;
end;

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог