Вот вопрос, у меня есть строка типа: "привет №3 & hello%" ну чёнибудь типа такого
а мне нужно взять эту строку и убрать оттуда ненужные символы (или заменить их на другие)
к примеру:

Код

var string1, string2 : string; begin if in string1(`,~,!,@,#,$,%,^,&,*,/) then string1:=string1[удаляем или заменяем эти символы];

ну например емли удаляем, то оставляем пробел, а если заменяем, то на нижнее подчёркивание "_".
И как это сделать?

можно в цикле делать чтото наподобие такого:

Код

for i:=1 to length(string) do begin   if string[i] in (blablabla) then string[i]:=' '; //пробел   if string[i] in (drugoe blablabla) then string[i]:='_'; end;

Вот и все. Остальные символы трогаться не будут.

StringReplace используй

Satana Как ты написал так не работает!
Rennigth а это как?

Верно будет так

Код

for i:=1 to length(string) do   if string[i] in ['`','~','!','@','#','$','%','^','&','*','/']      then      string[i]:=' '; //пробел

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

оп, всё разобрался! надо просто было вот так:

Код

for i:=1 to length(string1) do begin   if string1[i]=('?') then string1[i]:=' ';    //пробел end;

Добавлено @ 14:00
alexeis1 точно! и так работает! тока без "(" тоесть:

Код

for i:=1 to length(string) do   if string[i] in ['`','~','!','@','#','$','%','^','&','*','/']      then      string[i]:=' '; //пробел

Добавлено @ 14:03
всем спасибо!

Ё-моё! Rennigth наверно никто не услышал.

Код

StringReplace('наша строка', 'то, то заменяем', 'то, на что заменяем', [rfReplaceAll]);

Думаю понятно, что все параметры, кроме последнего, передаются для наглядности.

Poseidon
ток в даном случаи лучше и проще и красиве

Код

for i:=1 to length(string)     do       if string[i] in ['`','~','!','@','#','$','%','^','&','*','/']       then         string[i]:=' '; //пробел

чем для каждого из символов вызывать StringReplace

А теперь представим, что length(string) у нас ой какое большое. Может даже в int64 не влезет. Тогда что? ИМХО, надежней так:

Код

StringReplace(string,'`', ' ', [rfReplaceAll]); StringReplace(string,'`', ' ', [rfReplaceAll]); StringReplace(string,'~', ' ', [rfReplaceAll]); StringReplace(string,'!', ' ', [rfReplaceAll]); StringReplace(string,'@', ' ', [rfReplaceAll]); StringReplace(string,'#', ' ', [rfReplaceAll]); StringReplace(string,'$', ' ', [rfReplaceAll]); StringReplace(string,'%', ' ', [rfReplaceAll]); StringReplace(string,'^', ' ', [rfReplaceAll]); StringReplace(string,'&', ' ', [rfReplaceAll]); StringReplace(string,'*', ' ', [rfReplaceAll]); StringReplace(string,'/', ' ', [rfReplaceAll]);

Пусть строчек и больше, зато они не в цикле (т.е срабатывают только один раз).

Цитата

Пусть строчек и больше, зато они не в цикле (т.е срабатывают только один раз).

зато каждая строчка содержит цикл
данный вариант будет выполняться приблизительно в 12 раз медленнее...

Цитата

Может даже в int64 не влезет.

тогда такая строка не поместится даже в адресном пространстве 64-битного компьютера, кроме того это создаст проблемы и для работы StringReplace...

Poseidon

Код

function StringReplace(const S, OldPattern, NewPattern: string;   Flags: TReplaceFlags): string; var   SearchStr, Patt, NewStr: string;   Offset: Integer; begin   if rfIgnoreCase in Flags then   begin     SearchStr := AnsiUpperCase(S);     Patt := AnsiUpperCase(OldPattern);   end else   begin     SearchStr := S;     Patt := OldPattern;   end;   NewStr := S;   Result := '';   while SearchStr <> '' do   begin     Offset := AnsiPos(Patt, SearchStr);     if Offset = 0 then     begin       Result := Result + NewStr;       Break;     end;     Result := Result + Copy(NewStr, 1, Offset - 1) + NewPattern;     NewStr := Copy(NewStr, Offset + Length(OldPattern), MaxInt);     if not (rfReplaceAll in Flags) then     begin       Result := Result + NewStr;       Break;     end;     SearchStr := Copy(SearchStr, Offset + Length(Patt), MaxInt);   end; end;

тоже цикл и даже ещё вызов AnsiPos,Copy,Length на каждом шаге цикла

Это сообщение отредактировал(а) FRAGNATIC - 17.11.2005, 23:40

h2o
Ты можешь использовать и так как я сказал (и я был первым только под blabla я подразумевал множество) по идее должно было выглядеть так:

Код

var blablabla:set of 'a'..'z'; drugoe_blablabla:set of 'A'..'Z'; begin for i:=1 to length(string) do begin   if string[i] in (blablabla) then string[i]:=' '; //пробел   if string[i] in (drugoe_blablabla) then string[i]:='_'; end; end;

Это сообщение отредактировал(а) Satana - 18.11.2005, 00:38

FRAGNATIC
maxim1000
В принципе согласен с вами что со StringReplace скорее всего будет работать медленнее, писал как вариант , но всеже интересно, а in думаете не использует цикла?

Цитата

но всеже интересно, а in думаете не использует цикла?

да... похоже, погорячился
в 12 раз тормозить не будет
но всякие организационные действия, связанные с проходом по сроке, все равно занимают больше времени, чем организация прохода по небольшому массиву, заданому множеством...

maxim1000
зы... я проверил оба варианта на скорость...

Код

const C_GOPA: string = 'klasdhfvakl;sdfnma;lskdfjals;dkfjasl;dkfjasl;fjkasl;dkfjasl;dkfj'; function Gopa1: Cardinal; var   i, j: Integer;   lSt: string;   lTick: Cardinal; begin   lTick := GetTickCount;   for j := 0 to 100000 do   begin     lSt := C_GOPA;     for i := 1 to Length(lSt) do     begin       if lSt[i] in ['`','~','!','@','#','$','%','^','&','*','/'] then         lSt[i]:=' ';     end;   end;   Result := GetTickCount - lTick; end; function Gopa2: Cardinal; const   CL_GOPA: string = '`~!@#$%^&*/'; var   i, j: Integer;   lSt: string;   lTick: Cardinal; begin   lTick := GetTickCount;   for j := 0 to 100000 do   begin     lSt := C_GOPA;     for i := 0 to Length(CL_GOPA) do       lSt := StringReplace(lSt, C_GOPA[i], ' ', [rfReplaceAll]);   end;   Result := GetTickCount - lTick; end; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin   ListBox1.Items.Add('Gopa1:' + IntToStr(Gopa1) + ' - ' + 'Gopa2:' + IntToStr(Gopa2)); end;

разница в пользу первого варианта где-то в 250-300 раз. ...
цыфры:
тест1. 93 против 26532
тест2. 94 против 26469
тест3. 94 против 26906

если честно я в шоке немного...

За такие мои советы мне минус в репу стоилобы влепить

Это сообщение отредактировал(а) Rennigth - 18.11.2005, 17:15

Цитата

разница в пользу первого варианта где-то в 250-300 раз.

ого... как минимум удивительно...
только вопросик один:
в первом варианте используется множество из 11 (если не обсчитался) символов
во втором - из... (не... тут уж точно обсчитаюсь) кучи символов
порядок времени и там, и там, ИМХО, будет n*m
n - длина обрабатываемой строки
m - длина множества
всякими приемчиками (например, за счет дополнительной памяти), его можно свести к n, но этот случай пока не рассматриваем
так что у нас n*m
тогда для хорошего теста желательно, чтобы все - и строка, и множество были одинаковыми

вообще тут рассчеты получаются такие:
a - время работы варианта на StringReplace: a=m*(b*n+c)
b - время на обработку одного символа (включая всякие счетчики цикла, доставание и сохранение символов в памяти)
c - время на организационные действия (копирование строк, работа с параметрами в начале и в конце функции)

d - время работы варианта на множествах: d=c+n*(b*m+e)
e - время на сохранение и доставание множества их памяти, скорее всего все сводится к тому, что оно просто хранится где-то в в каокй-нибудь регистр заносится указатель на него... по идее оно должно быть и в варианте StringReplace - иначе придется при каждом изменении множества идти и править код - это ужас... так что можно даже так написать:
a=m*(b*n+c)+e

вот и получается:
вариант с StringReplace: m*b*n+m*c+e
вариант с множествами: n*b*m+n*e+c
т.е. вся разница кроется в (m*c+e)<>(n*e+c)
или (m-1)*c <> (n-1)*e
какое больше, тот вариант и длиннее
так что при маленьких m и больших n вполне может оказаться, что лучше вариант с StringReplace...
Добавлено @ 17:53
так что с минусом не спеши

Всё понятно! ну вот я вот так сделал:

Код

for i:=1 to length(string) do   if string[i] in ['`','~','!','@','#','$','%','^','&','*','/']      then      string[i]:=' '; //пробел

всё панятно, и дпже чуть больше... спасибо всем!