частота использования слова в Memo

[Vashkin]

Необходимо подсчитать количество повторений определенного слова, например "word", в тексте Memo. И так же есть вопрос по поводу учёта регистра при поиске - Word, word, WOrd... Кто, что подскажет?

[Аватар]

Pos,PosEx - регистрочувствительный поиск
Для не чувствительности к регистру можно использовать AnsiUpperCase для преобразования аргументов к одному регистру

[Slym]

решение влоб - заносишь все слова в массив, сортируешь, и по сортированному считаешь
иф массив(и)=массив(и+1) зен
инк(каунт)
елзе
каунт=1


блин не в тему... я все слова посчитал....

[Vashkin]

Сообщение от Аватар

Pos,PosEx - регистрочувствительный поиск
Для не чувствительности к регистру можно использовать AnsiUpperCase для преобразования аргументов к одному регистру

Ну вот я сделал, но чего то пока не правильно считает
var
Find:string;
i,k:integer;
begin
k:=0;
find:=Edit6.Text;
For i:=0 to Memo1.Lines.Count-1 do
If PosEx(AnsiUpperCase(find), AnsiUpperCase(Memo1.Lines.Text))<>0
Then
Begin
k:=k+1;
end;


АВАТАР, посмотри, в чем может быть ошибка...

[Mad_Cat]

если юзать это

For i:=0 to Memo1.Lines.Count-1 do

то зачем вот это

If PosEx(AnsiUpperCase(find), AnsiUpperCase(Memo1.Lines.Text))<>0

тогда нужно

 If PosEx(AnsiUpperCase(find), AnsiUpperCase(Memo1.Lines[i]))<>0

И этот код будет работать если у тебя по 1 слову в строке

[Vashkin]

Сообщение от Mad_Cat

И этот код будет работать если у тебя по 1 слову в строке

Так а если не одно,если обычный текст в Memo? что необходимо изменить в цикле?

[Mad_Cat]

что необходимо изменить в цикле?

var s:string;

For i:=0 to Memo1.Lines.Count-1 do
begin
s:=Memo1.Lines[i];
while PosEx(AnsiUpperCase(find), AnsiUpperCase(s))<>0 do
begin k:=k+1;
delete(s,1,PosEx(AnsiUpperCase(find), AnsiUpperCase(s))+length(find)-1);
end;
end;

а еще лучше без цикла for

s:=Memo1.text;
while PosEx(AnsiUpperCase(find), AnsiUpperCase(s))<>0 do
begin k:=k+1;
delete(s,1,PosEx(AnsiUpperCase(find), AnsiUpperCase(s))+length(find)-1);
end;

[Vashkin]

Mad_Cat, огромное спасибо, все получилось! Спасибо!)))

[Vashkin]

Только вот есть один вопрос... Зачем нужна и что эта строка делает:
delete(s,1,PosEx(AnsiUpperCase(find ), AnsiUpperCase(s))+length(find)-1);

[Mad_Cat]

Зачем нужна и что эта строка делает:

она удаляет тот кусок где ваше слово встречается 1 раз
тоесть
есть строка "мама мыла раму" и есть слово "a" после этой операции
останется "ма мыла раму"