Текущий архив: 2004.01.13;
Скачать: CL | DM;
Внизвыводятся только первые 3 слова ПЕРВОГО предложени Найти похожие ветки
← →
Anka12345 (2003-12-27 18:05) [0]procedure TPT3.slova(s1: string);
var
i,n: integer;
w: string;
begin
i:=1;
n:=0;
w:="";
while (i<= length (s1)) and (s1[i]=" ") do i:=i+1;
while (i<= length (s1)) and (s1[i]<>" ") and (s1[i]<>".") do
begin
w:=w+s1[i];
inc(i);
end;
while i<= length (s1) do
begin
if (n<4) and (s[i]<>".") then
begin
while (i<= length (s1)) and (s1[i]=" ") and (n<4) do
i:=i+1;
w:=w + " ";
n:=n+1;
while (i<= length (s1)) and (s1[i]<>" ") and (s1[i]<>".") do
begin
w:=w+s1[i];
inc(i);
end;
end;
if s1[i]=" " then inc(i);
n:=n+1;
end;
Form1.edit3.Text:=w;
end;
procedure TPT3.execute;
begin
inherited;
repeat
if s<>"" then slova(Form1.Memo1.Text);
until Suspended;
end;
-----------------------------------------------------------------------
=======================================================================
Ребята, подскажите пожалуйста, что надо здесь изменить, чтобы выводились только 3 первых слова каждого предложени .
А то выводятся только первые 3 слова ПЕРВОГО предложени и всё.
ПОЖАЛУЙСТА ПОМОГИТЕ ПОБЫСТРЕЕ!!!
← →
olookin (2003-12-27 20:52) [1]Ребята, подскажите пожалуйста, что надо здесь изменить, чтобы выводились только 3 первых слова каждого предложени .
А то выводятся только первые 3 слова ПЕРВОГО предложени и всё.
ПОЖАЛУЙСТА ПОМОГИТЕ ПОБЫСТРЕЕ!!!
Ну если б тьы спросил как сделать чтоб 4 было или 2... А то 3... Нерешаемо...
← →
iriska (2003-12-27 21:09) [2]Пошутил:))))
А помощь где??
Подскажи подружке, она ведь глупая.
← →
olookin (2003-12-27 21:14) [3]Еще разок special for ириска....
Ребята, подскажите пожалуйста, что надо здесь изменить, чтобы выводились только 3 первых слова каждого предложени .
А то выводятся только первые 3 слова ПЕРВОГО предложени и всё.
ПОЖАЛУЙСТА ПОМОГИТЕ ПОБЫСТРЕЕ!!!
Ну если б тьы спросил как сделать чтоб 4 было или 2... А то 3... Нерешаемо
← →
olookin (2003-12-27 21:20) [4]ага... А вид строки для разбора слов какой?
← →
iriska (2003-12-28 11:32) [5]anka12345, тебе просто надо обновлять счётчик пробелов - после каждой точки, а вот где обновлять... хм... незнаю
← →
Babay (2003-12-29 09:37) [6]Так как мы не телепаты то: :=))#
Предпологается, что в предложении слова отделены друг от друга одним пробелом и в конце предложения содержиться точка. Так же предположили что предложение может быть меньше 4-х слов.
Путем новогоднего выпивания пива был найден следующий алгоритм.
Function Slova3(S:String):String;
Var pt:Integer;
s1:String;
i,sp:Integer;
begin
While (s<>"") and (pos(".",s)<>0) do begin
s1:=Copy(s,1,Pos(".",s)); //
← →
Babay (2003-12-29 09:40) [7]М..да чето на коментарии неглянул :=))#
nfr что придется разбираться, берите пиво...
Страницы: 1 вся ветка
Текущий архив: 2004.01.13;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.008 c