Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Как перевернуть слово? ( Например: Привет, Тевирп ). Под Edit1, Edit2, Edit3 и т.д хранится каждая буква начиная с конца. Но вот с выводом проблема. Выводится по 1 букве в сообщении. Как сделать чтобы в MsgBox выводилось сразу все буквы?
Тут мой код вывода букв начиная с конца слова, но выводит по 1 букве, а нужно чтобы вывело сразу:
i:= 0
Loop % Количество букв
{
a:= MaxLen - i++
MsgBox % Edit%a%
}
Loop % Количество букв
Result = % Edit%A_Index% Result
MsgBox % ResultНе. Не то выводит. Irbis, у меня скорее код замудренный, подскажите пожалуйста как слово перевернуть? Например вводим слово "россия", вывести должно "яиссор"
word = россия
Loop % Len := StrLen(word)
conversely .= SubStr(word, Len--, 1)
MsgBox, % conversely
Спасибо Серж!
Со словом проще, чем с полями Edit
word = Россия
Loop, Parse, word
Result = % A_LoopField Result
MsgBox % Result
Да, вот это класс!
Чертовски просто и очевидно, стало даже стыдно за свой монстро-код 
---
Кстати почему вы начали писать = %
Result = % A_LoopField Result
А не:
Result := A_LoopField Result
Да код с SubStr вполне себе в порядке, просто возился сегодня с Loop, Parse и он первым делом "всплыл" в памяти
По поводу := и % даже не знаю, бессистемно видимо применяю, где что удобней. Тяготею к := в случае, когда присваивание идет числовой переменной, а = % в основном с текстом, хотя АНК типы не разделяет.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
