Форум: "Начинающим";
Текущий архив: 2008.07.27;
Скачать: [xml.tar.bz2];
Вниз
Поиск слова в строке Найти похожие ветки
← →
lewka-serdceed (2008-06-26 15:41) [0]Помогите пожалуйста! Как найти все слова с тексте или строке с заданным символом?
← →
clickmaker © (2008-06-26 15:44) [1]Pos()
либо в цикле
← →
Плохиш © (2008-06-26 15:45) [2]О, фсё продолжается...
← →
lewka-serdceed (2008-06-26 15:47) [3]Pos это же тип integer
← →
clickmaker © (2008-06-26 15:48) [4]> [3] lewka-serdceed (26.06.08 15:47)
и?
позиция символа в тексте. Проблема определить слово, где он?
← →
Dennis I. Komarov © (2008-06-26 15:50) [5]> [3] lewka-serdceed (26.06.08 15:47)
И тебе нужен бул?
← →
lewka-serdceed (2008-06-26 15:50) [6]А как само слово то мне найти? Pos мне покажет позицию символа только, а он может находиться не в начале
← →
Dennis I. Komarov © (2008-06-26 15:52) [7]> [6] lewka-serdceed (26.06.08 15:50)
$100
← →
clickmaker © (2008-06-26 15:54) [8]> [6] lewka-serdceed (26.06.08 15:50)
> А как само слово то мне найти?
а что по-твоему "слово"?
← →
{RASkov} © (2008-06-26 15:55) [9]> [6] lewka-serdceed (26.06.08 15:50)
Ты программист или клоун?
← →
Riply © (2008-06-26 16:01) [10]> [7] Dennis I. Komarov © (26.06.08 15:52)
> $100
Должно быть стыдно просить так мало. Хоть один нолик да надо приписать :)
← →
Правильный-Вася (2008-06-26 16:02) [11]tstringlist юзай
там есть разбивка на слова
потом по ним пройдешься Pos, узнаешь, в каких есть
← →
Dennis I. Komarov © (2008-06-26 16:02) [12]> [10] Riply © (26.06.08 16:01)
Так за каждое найденое слово :) Нормуль?
← →
TUserClass © (2008-06-26 16:06) [13]
...
procedure GetWords (Text : string; Sym : char; var Res : TStringList);
var
I : dword;
TempS : string;
begin
TempS := "";
For I := 1 to Length (Text) do begin
If ((Text[I] >= "a") and (Text[I] <= "z")) or
((Text[I] >= "A") and (Text[I] <= "Z")) or
((Text[I] >= "а") and (Text[I] <= "я")) or
((Text[I] >= "А") and (Text[I] <= "Я")) then begin
TempS := TempS + Text[I];
end else begin
If TempS <> "" then begin
If Pos (Sym, TempS) <> 0 then begin
Res.Add(TempS);
end;
TempS := "";
end;
end;
end;
end;
...
procedure TForm1.FormCreate(Sender: TObject);
var
List : TStringList;
begin
List := TStringList.Create;
GetWords ("А как само слово то мне найти? Pos мне покажет позицию символа только, а он может находиться не в начале", "я", List);
Memo1.Lines.AddStrings(List);
List.Free;
end;
← →
Правильный-Вася (2008-06-26 17:30) [14]
> TUserClass © (26.06.08 16:06) [13]
"сталь марки Н10Х8 что-то редко применяется"
сколько слов? а у тебя?
← →
TUserClass © (2008-06-26 17:43) [15]
> Правильный-Вася (26.06.08 17:30) [14]
Это ж всего лишь пример.
← →
TUserClass © (2008-06-26 17:46) [16]Далее только морфология ... :)
← →
Галинка (2008-06-26 19:02) [17]{RASkov} © (26.06.08 15:55) [9]
он сердцеед, если верить нику. А гранит науки не дается. ))) Тверже сердец женских ))
← →
Palladin © (2008-06-26 19:19) [18]угу... голове тупо кровообращения не хватает...
← →
{RASkov} © (2008-06-27 00:14) [19]Да какой он сердцеед, он lewka-spinogryz))
Таким пример кодом пишешь, а они второй раз спросят...(
← →
lewka-serdceed (2008-06-27 09:43) [20]спасибо. Я разобрался с этим вопросом. извините за беспокойство
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.07.27;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.007 c
