CountWords

[sjesper]

Return the number of words in the given string

[sCAR]

function CountWords(S: String): Integer;

var

Len, i, ii, Index: Integer;

S2: String;

TSA: TStringArray;

begin

TSA := Explode(' ', S);

for ii := 0 to high(TSA) do begin

for i := low(TSA) to high(TSA) do begin

Index := Pos(TSA, S);

Len := PosEx(' ', S, Index);

S2 := Copy(S, Len + 1, 1);

if S2 = ' ' then

Delete(S, Len, 1);

end;

end;

result := length(Explode(' ', S));

for i := 1 to Length(S) do begin

if i = 1 then

if not StartsWith(' ', S) then

exit;

if PosEx(' ', S, i) = i then begin

result := result - 1;

end else begin

break;

end;

end;

end;

 

begin

writeln('The number of words: ' + IntToStr(CountWords(' Hello there ')));

end.[/sCAR]

[Daniel]

Hi sjesper,

 

You could also just do:

[scar]function CountWords(const S: String): Integer;

begin

Result := Length(Explode(#32, Trim(S)));

end;[/scar]

 

[Janilabo]

Ello sjesper & Daniel!

 

Small bump over here, as I wrote some alternative functions for this:

 

function GetWords(str: string): TStrArray;
var
 h, i, r: Integer;
begin
 Result := Explode(' ', Replace(Replace(str, #10, #13), #13, ' '));
 h := High(Result); 
 for i := 0 to h do  
   if (Result[i] <> '') then 
   begin 
     Result[r] := Result[i];
     Inc(r);
   end;
 SetLength(Result, r);
end;

function GetWordsR(str: string): TStrArray;
begin
 Result := Explode(#32, PregReplace('/\s{2,}/', ' ', Trim(str)));
end;

function CountWords(str: string): Integer;
var
 h, i: Integer;
 tmp: TStrArray;
begin
 tmp := Explode(' ', Replace(Replace(str, #10, #13), #13, ' '));
 h := High(tmp); 
 Result := (h + 1);
 for i := 0 to h do  
   if (tmp[i] = '') then 
     Dec(Result);
 if (h > -1) then  
   SetLength(tmp, 0);
end;

function CountWordsR(str: string): Integer;
begin
 Result := Length(Explode(#32, PregReplace('/\s{2,}/', ' ', Trim(str))));
end;

var
 text, tmp: string;
 words: TStrArray;
 h, i: Integer;

begin
 ClearDebug;
 text := '  This  is  a    TEST! ' + #13#10 +
         'Lets count some words, yay! ' + #13#10 +
         ' MULTILINE WORKS, TOO.';
 WriteLn('CountWords: ' + IntToStr(CountWords(text)));
 WriteLn('CountWordsR: ' + IntToStr(CountWordsR(text)));
 tmp := 'GetWords: ';
 words := GetWords(text);
 h := High(words);
 for i := 0 to h do
   if (i < h) then
     tmp := (tmp + '"' + (words[i]) + '", ')
   else
     tmp := (tmp + '"' + (words[i]) + '"');
 WriteLn(tmp);
 tmp := 'GetWordsR: ';
 words := GetWordsR(text);
 h := High(words);
 for i := 0 to h do
   if (i < h) then
     tmp := (tmp + '"' + (words[i]) + '", ')
   else
     tmp := (tmp + '"' + (words[i]) + '"');
 WriteLn(tmp);
end.

 

Not sure if anyone needs em, but I wanted to release em here anyways, so there you go.

 

-Jani

Edited July 11, 2013 by Janilabo
Tweaked GetWords & CountWords

[slacky]

Hello Janilabo, sjesper and Daniel!

 

I just had to show you guys how this is REALLY done.. (with regular expression):

 

function PregMatchAll(pattern, str:string): TStrArray;
var
 Match: Boolean;
 Matches: TRegexMatchArray;  
 CurpossE : Integer;
begin
 match := True;
 while(match = True) do 
 begin  
   match := PregMatchEx(pattern, str, Matches);
   if match then                                
   begin                                                
     CurpossE :=  Length(Matches[0].MatchedText) + Matches[0].OffSet
     str := Right(str, Length(str) - CurpossE);   
     SetLength(Result, Length(Result)+1);
     Result[High(Result)] := Matches[0].MatchedText;
   end;
 end;    
end;

function CountWords(str: string): Integer;
var
 words: TStrArray;
begin
 words := PregMatchAll('/(\w+)/', str);
 Result := Length(Words);
end;

var
 mystr: string;

begin
 mystr := 'Ost World1 Amf#World2,but hello there.Are we        friends?';
 WriteLn(CountWords(mystr));
end.

 

A nifty thing you might take out of this is a PregMatchAll-function (finds ALL matches of a given string that fits your pattern)!

Edited July 11, 2013 by slacky

[Janilabo]

I just had to show you guys how this is REALLY done..:

 

function PregMatchAll(pattern, str:string): TStrArray;
var
 Match: Boolean;
 Matches: TRegexMatchArray;  
 CurpossE : Integer;
begin
 match := True;
 while(match = True) do 
 begin  
   match := PregMatchEx(pattern, str, Matches);
   if match then                                
   begin                                                
     CurpossE :=  Length(Matches[0].MatchedText) + Matches[0].OffSet
     str := Right(str, Length(str) - CurpossE);   
     SetLength(Result, Length(Result)+1);
     Result[High(Result)] := Matches[0].MatchedText;
   end;
 end;    
end;

function CountWords(str: string): Integer;
var
 words: TStrArray;
begin
 words := PregMatchAll('/(\w+)/im', str);
 Result := Length(Words);
end;

var
 mystr: string;

begin
 mystr := 'Ost World1 Amf#World2,but hello there.Are we        friends?';
 WriteLn(CountWords(mystr));
end.

 

A nifty thing you might take out of this is a PregMatchAll-function (finds ALL matches of a given string that fits your pattern)!

It runs smoothly.

 

Nice job slacky!

 

I LIKE IT!

[FHannes]

Technically, regular expressions are more for convenience than performance, a custom algorithm for a simple case like this will probably perform better than bulky regular expressions, while still being fairly easy to construct. But in SCAR of course you have to take into account the performance of the script engine as well, so in that case, regular expressions would indeed be the way to go.

[Janilabo]

Hello Janilabo, sjesper and Daniel!

 

I just had to show you guys how this is REALLY done.. (with regular expression):

 

function PregMatchAll(pattern, str:string): TStrArray;
var
 Match: Boolean;
 Matches: TRegexMatchArray;  
 CurpossE : Integer;
begin
 match := True;
 while(match = True) do 
 begin  
   match := PregMatchEx(pattern, str, Matches);
   if match then                                
   begin                                                
     CurpossE :=  Length(Matches[0].MatchedText) + Matches[0].OffSet
     str := Right(str, Length(str) - CurpossE);   
     SetLength(Result, Length(Result)+1);
     Result[High(Result)] := Matches[0].MatchedText;
   end;
 end;    
end;

function CountWords(str: string): Integer;
var
 words: TStrArray;
begin
 words := PregMatchAll('/(\w+)/', str);
 Result := Length(Words);
end;

var
 mystr: string;

begin
 mystr := 'Ost World1 Amf#World2,but hello there.Are we        friends?';
 WriteLn(CountWords(mystr));
end.

 

A nifty thing you might take out of this is a PregMatchAll-function (finds ALL matches of a given string that fits your pattern)!

 

Your algorithms after some tiny changes:

 

function PregMatchAll(pattern, str: string): TStrArray;
var
 matches: TRegexMatchArray;  
 CurpossE: Integer;
begin
 while PregMatchEx(pattern, str, matches) do 
 begin                                                 
   CurpossE := (Length(matches[0].MatchedText) + Matches[0].OffSet);
   str := Right(str, (Length(str) - CurpossE));   
   SetLength(Result, (Length(Result) + 1));
   Result[High(Result)] := matches[0].MatchedText;
 end;    
end;

function GetWords(str: string): TStrArray;
begin
 Result := PregMatchAll('/(\w+)/im', str);
end;

function CountWords(str: string): Integer;
begin
 Result := Length(PregMatchAll('/(\w+)/im', str));
end;

var
 mystr: string;
 words: TStrArray; 
 h, i: Integer;

begin
 mystr := 'Ost World1 Amf#World2,but hello there.Are we        friends?';
 WriteLn('CountWords: ' + IntToStr(CountWords(mystr)));
 words := GetWords(mystr);
 mystr := 'GetWords: ';
 h := High(words);
 for i := 0 to h do
   if (i < h) then
     mystr := (mystr + '"' + words[i] + '", ')
   else
     mystr := (mystr + '"' + words[i] + '"');  
 WriteLn(mystr);
end.

 

+Example of course..

 

Works well.

[slacky]

Looks a lot smoother with them changes to PregMatchAll! Hope you, or someone will put it in there include, I've often found cases where I needed A PregMatchAll-kind of function.. I've ended up avoding am due to me being to lazy to create a function like that (until now)

[Janilabo]

Looks a lot smoother with them changes to PregMatchAll! Hope you, or someone will put it in there include, I've often found cases where I needed A PregMatchAll-kind of function.. I've ended up avoding am due to me being to lazy to create a function like that (until now)

I think it's very useful little function.

So, I added it to MSSL, included those credits for you man!

[Janilabo]

Couple more algorithms to dump here, non-regex ways:

 

const
 TEST_TEXT = 'Ost World1 Amf#World2,but hello there.Are we        friends?';

{==============================================================================]
 Explanation: Returns the words from text as TStringArray.
[==============================================================================}
function GetWords(text: string): TStringArray;
var
 l, i, r: Integer;
 w: string;
begin
 l := Length(text);
 if (l > 0) then
 begin
   w := 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789_';
   SetLength(Result, l);
   for i := 1 to l do
     if (Pos(text[i], w) > 0) then
     begin
       Result[r] := text[i];
       for i := (i + 1) to l do
         if (Pos(text[i], w) > 0) then
           Result[r] := (Result[r] + text[i])
         else
           Break;
       Inc(r);
     end;
 end;
 SetLength(Result, r);
end;

{==============================================================================]
 Explanation: Returns the words from text as TStringArray.
              Supports custom character set (wordCharacters)
[==============================================================================}
function GetWordsEx(text, wordCharacters: string): TStringArray;
var
 l, i, r: Integer;
begin
 l := Length(text);
 if ((l > 0) and (wordCharacters <> '')) then
 begin
   SetLength(Result, l);
   for i := 1 to l do
     if (Pos(text[i], wordCharacters) > 0) then
     begin
       Result[r] := text[i];
       for i := (i + 1) to l do
         if (Pos(text[i], wordCharacters) > 0) then
           Result[r] := (Result[r] + text[i])
         else
           Break;
       Inc(r);
     end;
 end;
 SetLength(Result, r);
end;

{==============================================================================]
 Explanation: Returns count of words in text.
[==============================================================================}
function CountWords(text: string): Integer;
var
 l, i: Integer;
 w: string;
begin
 Result := 0;
 l := Length(text);
 if (l > 0) then
 begin
   w := 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789_';
   for i := 1 to l do
     if (Pos(text[i], w) > 0) then
     begin       
       Inc(Result);
       for i := (i + 1) to l do
         if (Pos(text[i], w) < 1) then
           Break;
     end;
 end;
end;

{==============================================================================]
 Explanation: Returns count of words in text.
              Supports custom character set (wordCharacters)
[==============================================================================}
function CountWordsEx(text, wordCharacters: string): Integer;
var
 l, i: Integer;
begin
 Result := 0;
 l := Length(text);
 if ((l > 0) and (wordCharacters <> '')) then
 for i := 1 to l do
   if (Pos(text[i], wordCharacters) > 0) then
   begin       
     Inc(Result);
     for i := (i + 1) to l do
       if (Pos(text[i], wordCharacters) < 1) then
         Break;
   end;
end;

var
 words: TStrArray; 
 h, i: Integer;
 tmp: string;

begin
 ClearDebug;
 WriteLn('CountWords: ' + IntToStr(CountWords(TEST_TEXT)));
 words := GetWords(TEST_TEXT);
 tmp := 'GetWords: ';
 h := High(words);
 for i := 0 to h do
   if (i < h) then
     tmp := (tmp + '"' + words[i] + '", ')
   else
     tmp := (tmp + '"' + words[i] + '"');  
 WriteLn(tmp);
end.

 

Adapting the way slacky's regex-based algorithms work..

[TerryKig]

alison nathan bitcoin kaspa coin price prediction buy spotify gift card bitcoin js crypto 10 bitcoin to dollar how to buy bitcoins with changelly bitcoin hardware wallet all bitcoin mining pools can i buy bitcoin with capital one credit card crypto coin wallet are crypto domains worth it mine crypto on iphone fidelity and crypto buy bitcoin paypal australia best crypto trader in the world

beginner crypto miner shine capital can i buy bitcoin on tdameritrade is coinbase wallet secure dao meaning crypto how to use prepaid card to buy bitcoin ampverse when the bitcoin halving a crypto wallet shows an investor 4-aco-dmt bitcoin

which molecule remains in the nucleus during protein synthesis eos price prediction cross platform games 2022 best crypto jokes insomniac spider man multiplayer game shiba inu volume 221 bitcoin to usd difference between crypto and stocks 0.00100 bitcoin 00000287 bitcoin to usd

crypto.com bankrupt buy bitcoins with paypal canada 70 million bitcoin hacked bitcoin prediction today magpie market days 2024 dca meaning crypto how to share your twitter link 99bitcoins free bitcoin polonix 1 bitcoin worth 2018

crypto sales 1th bitcoin miner profit tax loss harvesting crypto $ass crypto what is my venmo link

[MatthewHom]

Выбор трактора Шифенг: на что направить внимание

Тракторы марки Шифенг захватили популярность на аграрном базаре благодаря своей надежности, многофункциональности и доступной цене. Но, чтобы выбрать подходящую модель, необходимо учесть несколько ключевых факторов. В этой статье будут рассмотрены, на что направить внимание при выборе трактора Шифенг в зависимости от ваших потребностей и критерий эксплуатации.

1. Определите цели использования

Прежде всего, нужно найти, для каких задач вы планируете использовать трактор. Основные направления применения тракторов Шифенг включают:

- Сельское хозяйство: обработка почвы, посадка, сбор урожая, перевозка.
- Строительство:, подъем и транспортировка строй материалов.
- Лесозаготовка: вывоз древесины, уборка на делянках.

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

2. Выбор мощности и типа мотора

Тракторы Шифенг представлены в спектре мощностей, от легких моделей для маленьких хозяйств и заканчивая массивными машинами для больших агроформирований. Главно учитывать следующие моменты:

- Мощность двигателя: по этой причине параметра зависит способность трактора исполнять разные виды работ. Более массивные машины то что надо для тяжелых условий эксплуатации.
- Тип мотора: дизельные двигатели почаще используются в тракторов весьза их экономичности и долговечности, но и бензиновые модели могут иметь свои преимущества.

3. Конструкция и качество

В момент выбора трактора принципиально обратить внимание на его конструкцию и качество материалов. Тракторы Шифенг нередко делают из прочных сплавов, что наращивает их долговечность. Также проверьте:

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

4. Комплектация и дополнительные опции

Дополнительные функции могут существенно повлиять на комфорт и функциональность работы с трактором. При рассмотрении модели обратите внимание на:

- Наличие фар и освещения для работы в черное время суток.
- Кабина: превосходно утепленная и снаряженная системами вентиляции и кондиционирования значительно повысит комфорт оператора.
- Дополнительное оборудование: возможность установки различной подвесного либо прицепного оборудования (плуг, культиватор, фреза и так далее).

5. Сервис и гарантия

Важно учитывать доступность сервисного обслуживания и наличие запасных частей. Изучите:

- Гарантийные условия: им предоставляется возможность варьироваться в зависимости от производителя.
- Квалификация сервисного центра: его возможности по ремонту и обслуживанию тракторов.

6. Бюджет

Помните о http://prefabrikhavuz.com.tr/merhaba-dunya/?unapproved=319863&moderation-hash=78e2682cd22128878150e0cfd0eb785b#comment-319863 вашем бюджете. Тракторы Шифенг предлагают широкий ценовой спектр, но также принципиально учесть расходы на эксплуатацию, обслуживание и возможные ремонты в будущем. Сравните разные модели и выберите ту, которая превосходнейшим образом подходит вашим финансовым возможностям.

Заключение

Выбор трактора Шифенг это ответственный процесс, который находится в зависимости от множества факторов. Обусловьте цели его использования, учитывайте мощность и тип мотора, качество конструкции, дополнительные опции, доступность сервиса и меня называют Господом бюджет. Правильно подобранный трактор станет надёжным ассистентом в вашем хозяйстве, обеспечивая эффективность и продуктивность работы надолго. Не торопитесь с покупкой, лучше заранее соберите всю необходимую информацию и проконсультируйтесь с специалистами, чтобы сделать обоснованный выбор.