Есть самописный движок, необходимо организовать поиск по БД (mysql), по двум полям — русское название и название на английском языке. При всем этом вариант типа (читать всё…)

подскажите, как найти символ » в текстовом файле с помощью vba? (читать всё…)

Суть такова: требуется при каждом переподключении вручную прописывать несколько маршрутов. Дело тут не в том, что я не знаю опции «-p», а совсем в другом. Если кому-нибудь есть дело, могу рассказать. Короче суть заключается вот в чем: есть два шлюза — 192.168.1.1 — основной, и 10.35.24.1 — через него нужно прописать доступ на pandora.com Проблема в том, что вот этот 10.35.24.1 разный при каждом переподключении. У меня возникла такая вот идея: считываем вывод команды route print, ищем там строчку 128.0.0.0 128.0.0.0 10. , извлекаем все что начинается с 10., записываем в какую-то переменную, потом подставляем значение этой переменной в route add 208.85.40.50 %переменная%. (читать всё…)

Доброго времени суток! Мне нужна помощь… это касается поиска файла.
Допустим иметься некий файл file.txt по адресу c:\123\навание_папки_которое_я_не_з наю\file.txt
Так вот как мне этот файл найти если я знаю только первоначальный путь к нему?! (читать всё…)

Люди помогите пожалуйста мне нужно реализовать вот такие методы.

1 — Копирование — копирование части строки заданной длины с заданной позиции.
2 — Удаление — удаление части строки заданной длины с заданной позиции.
3 — Поиск — поиск подстроки в строке.
(читать всё…)

Попробуй как-то так сделать (писал не в студии, но вроде всё верно): (читать всё…)

Например так : (читать всё…)

Есть текстовый файл из 1000 строк. Там надо заменить слово “S1000″ на “S1200″, “Z100. на Z0.” , то есть многострочная замена.
Через что лучше и удобнее сделать такое?

var s:tstringlist;
begin
   s:=tstringlist.create;
   s.LoadFromFile(’файл’);
   s.text:=StringReplace(s.Text,’ S1000′,’ S1200′,[rfreplaceall]);
   s.SaveToFile(’файл’);
   FreeAndNil(s);
end.

Тема на форуме

Функция ищет первое совпадение в листбоксе и возвращает индекс строки в которой это совпадение находиться; если ничего не найдено возвращает -1:

function ListBoxFind(template:string; listbox:TListBox):integer;
var i,j:integer;
begin
for i:=1 to listbox.Count do
begin
     if Pos(template,listbox.Items.Strings)<>0 then
          begin
          Result:=i;
          exit;
    end;
end;
Result:=-1;
end;

Тема на форуме.