Серый форум — AHK: Перевернуть слово

Re: AHK: Перевернуть слово

null@example.com (Irbis) — Wed, 25 Dec 2013 18:33:02 +0000

Да код с SubStr вполне себе в порядке, просто возился сегодня с Loop, Parse и он первым делом "всплыл" в памяти

По поводу := и % даже не знаю, бессистемно видимо применяю, где что удобней. Тяготею к := в случае, когда присваивание идет числовой переменной, а = % в основном с текстом, хотя АНК типы не разделяет.

Re: AHK: Перевернуть слово

null@example.com (serzh82saratov) — Wed, 25 Dec 2013 17:49:44 +0000

Да, вот это класс!
Чертовски просто и очевидно, стало даже стыдно за свой монстро-код
---
Кстати почему вы начали писать = %

Result = % A_LoopField Result

А не:

Result := A_LoopField Result

Re: AHK: Перевернуть слово

null@example.com (Irbis) — Wed, 25 Dec 2013 17:39:38 +0000

Со словом проще, чем с полями Edit

word = Россия
Loop, Parse, word
  Result = % A_LoopField Result
MsgBox % Result

Re: AHK: Перевернуть слово

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

Спасибо Серж!

Re: AHK: Перевернуть слово

null@example.com (serzh82saratov) — Wed, 25 Dec 2013 17:22:26 +0000


word = россия
Loop % Len := StrLen(word)
    conversely .= SubStr(word, Len--, 1)
MsgBox, % conversely

Re: AHK: Перевернуть слово

null@example.com (Qweasd123) — Wed, 25 Dec 2013 16:34:49 +0000

Не. Не то выводит. Irbis, у меня скорее код замудренный, подскажите пожалуйста как слово перевернуть? Например вводим слово "россия", вывести должно "яиссор"

Re: AHK: Перевернуть слово

null@example.com (Irbis) — Wed, 25 Dec 2013 16:21:44 +0000

Loop % Количество букв
  Result = % Edit%A_Index% Result
MsgBox % Result

AHK: Перевернуть слово

null@example.com (Qweasd123) — Wed, 25 Dec 2013 15:20:26 +0000

Как перевернуть слово? ( Например: Привет, Тевирп ). Под Edit1, Edit2, Edit3 и т.д хранится каждая буква начиная с конца. Но вот с выводом проблема. Выводится по 1 букве в сообщении. Как сделать чтобы в MsgBox выводилось сразу все буквы?

Тут мой код вывода букв начиная с конца слова, но выводит по 1 букве, а нужно чтобы вывело сразу:


i:= 0
Loop % Количество букв
{
a:= MaxLen - i++
MsgBox % Edit%a%
}