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

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

2013-12-25T15:47:12Z

Текст делится на слова и в цикле проверятся длина очередного слова. (сравниваем с числом в переменной 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: Максимальное количество букв в слове

2013-12-25T14:14:11Z

Irbis пишет:



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

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

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

2013-12-25T14:09:58Z

Благодарю!

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

2013-12-25T14:09:22Z

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

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

2013-12-25T14:05:54Z

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: Максимальное количество букв в слове

2013-12-25T13:57:05Z

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

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

2013-12-25T13:45:37Z

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

StringLen
StringLen, OutputVar, InputVar

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

2013-12-25T12:42:28Z

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