Серый форум — AHK: Максимальное количество букв в слове

Re: AHK: Максимальное количество букв в слове

null@example.com (Irbis) — Wed, 25 Dec 2013 15:47:12 +0000

Текст делится на слова и в цикле проверятся длина очередного слова. (сравниваем с числом в переменной MaxLen)
Если она больше, чем у ранее найденного "гиганта", то MaxLen присваивается новое значение, а слово сохраняется в Result.

Upd:
ypppu верно заметил, если это важно, можно предусмотреть ситуацию, когда несколько слов имеют одинаковую длину.

MaxLen := 0
Text =
(
aaa bb cc ddd
zzz
)

Text := RegExReplace(Text, "[^a-zA-Zа-яА-Я\s]")
Loop, Parse, Text, %A_Space%`n
   if ((CurrLen := StrLen(A_LoopField)) = MaxLen) {
      Result .= A_LoopField "`n"
       Continue
   }
   else if (CurrLen > MaxLen) {
      MaxLen := CurrLen
      Result := % A_LoopField "`n"
   }
MsgBox % "Слово (слова):`n" Result "`nКол-во знаков - " MaxLen

Re: AHK: Максимальное количество букв в слове

null@example.com (Qweasd123) — Wed, 25 Dec 2013 14:14:11 +0000

Irbis пишет:



   if (StrLen(A_LoopField) > MaxLen) 
{
      MaxLen := StrLen(A_LoopField)
      Result := % A_LoopField
   }

Объясните эти строчки пожалуйста. Вникнуть не могу

Re: AHK: Максимальное количество букв в слове

null@example.com (Qweasd123) — Wed, 25 Dec 2013 14:09:58 +0000

Благодарю!

Re: AHK: Максимальное количество букв в слове

null@example.com (ypppu) — Wed, 25 Dec 2013 14:09:22 +0000

Кстати, может быть несколько слов с максимальным количеством букв?

Re: AHK: Максимальное количество букв в слове

null@example.com (Irbis) — Wed, 25 Dec 2013 14:05:54 +0000

MaxLen :=0
Text =
(
Не жалею, не зову, не плачу,
Все пройдет, как с белых яблонь дым.
Увяданья золотом охваченный,
Я не буду больше молодым.
)

Text := RegExReplace(Text, "[^a-zA-Zа-яА-Я\s]")
Loop, Parse, Text, %A_Space%`n
   if (StrLen(A_LoopField) > MaxLen) {
      MaxLen := StrLen(A_LoopField)
      Result := % A_LoopField
   }
MsgBox % "Слово: " . Result . " `; Кол-во знаков - " . MaxLen

Re: AHK: Максимальное количество букв в слове

null@example.com (Qweasd123) — Wed, 25 Dec 2013 13:57:05 +0000

Но как именно по словам сканировать а не сразу полностью предложение? Не получается.

Re: AHK: Максимальное количество букв в слове

null@example.com (ypppu) — Wed, 25 Dec 2013 13:45:37 +0000

Loop (parse a string)
Loop, Parse, InputVar [, Delimiters, OmitChars]

StringLen
StringLen, OutputVar, InputVar

AHK: Максимальное количество букв в слове

null@example.com (Qweasd123) — Wed, 25 Dec 2013 12:42:28 +0000

Дан текст. Как найти слово с максимальным количеством букв?