VPF::замена строки - Форум программистов

yasek

Дата 6.2.2007, 13:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 15.6.2006
Где: Беларусь

Репутация: нет
Всего: нет

у меня есть файл в котором нужно заменить строку
Например:
Petrov_Vasya 999
а надо изменить на
Petrov_Vasya 123
а дело в том, что начальная строка может быть и Petrov_Vasya 345, и др., главное, что начинается с Petrov_Vasya.
Вот есть у меня файл txt. я загружаю его в TStringList. теперь мне нужно найти эту строку... может маску? тогда как?

Snowy

Дата 6.2.2007, 13:46 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Код


  if copy(s, 1, 12) = 'Petrov_Vasya' then s := 'Petrov_Vasya 123';

yasek

Дата 6.2.2007, 13:55 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 15.6.2006
Где: Беларусь

Репутация: нет
Всего: нет

Цитата(Snowy @ 6.2.2007, 13:46)

Код


  if copy(s, 1, 12) = 'Petrov_Vasya' then s := 'Petrov_Vasya 123';

хм.. а через StringList нельзя? как-нить через ф-цию find. чтоб еще эту строку найти?

Это сообщение отредактировал(а) yasek - 6.2.2007, 13:56

Snowy

Дата 6.2.2007, 14:00 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Код


function CheckString(sl: TStrings; s: string): index;
var
  i, l:  integer;
begin
  result := -1; l := Length(s);
  for i := 0 to sl.Count-1 do
    if copy(sl[i], 1, l) = s then
    begin
      result := i; Break;
    end;
end;

Добавлено @ 14:08
Если список сортированный, то вот вариант для сортированного списка с наследованием TStringList:

Код


type
  TMyStrings = class(TStringList)
  public
    function Find(const S: String; var Index: Integer): Boolean; override;
  end;

...

function TMyStrings.Find(const S: String; var Index: Integer): Boolean;
var L, H, I, C, ln: Integer;
begin
  Result := False;
  L := 0; H := Count - 1; ln := Length(S);
  while L <= H do
  begin
    I := (L + H) shr 1;
    C := CompareStrings(copy(Strings[I], 1, ln), S);
    if C < 0 then L := I + 1 else
    begin
      H := I - 1;
      if C = 0 then
      begin
        Result := True;
        if Duplicates <> dupAccept then L := I;
      end;
    end;
  end;
  Index := L;
end;

После этого можно применять обычный IndexOf - найдёт.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »