var := "кот-ток"
list := {}
for s, r in {к:"т", т:"к"}
{
pos := 1
While pos := RegexMatch(var, s,, pos)
{
if !list.HasKey(pos)
{
var := RegexReplace(var, s, r,,1, pos)
ObjRawSet(list, pos, "")
}
pos++
}
}
Msgbox, % varНичего, что я уже ответил?
Извините за ошибки, новичок...
Я спрашивал ещё наверху, можно ли не делать слишком большой код так как мне надо заменять чуть ли не всю клавиатуру,а писать в ручную долго.
И, кстати:
Не ставьте точку в конце названия темы — это ошибка (в заголовках точки не ставятся), и это безобразно выглядит.
Точки расставьте.
Всё сделал.
Кто нибудь сможет помощь?
рискуете получить бан
Ну что вам сейчас не нравиться?
Я вам что гадалка?
InputBox, Var, Замена символов, Введите слово:,,250,110
for s, r in {б:"п", д:"т", е:"и", а:"о"}
StringReplace, Var, Var, % s, % r, All
Msgbox, % Var
Спасибо,как раз это и искал.
Только у меня скрипт получиться большой так как мне надо заменять чуть ли не всю клавиатуру.
Вот часть буквы которые надо заменять,можно ли как нибудь быстренько скопировать и быстренько переделать её под ваш код.
п::б
П::Б
б::п
Б::П
в::ф
В::Ф
ф::в
Ф::В
г::к
Г::К
к::г
К::Г
и т.дСможете помощь?
]]>InputBox, Var, Замена символов, Введите слово:,,250,110
for s, r in {б:"п", д:"т", е:"и", а:"о"}
StringReplace, Var, Var, % s, % r, All
Msgbox, % VarСовсем другое - их замена в конкретных местах конкретного слова (банемодь - понимать).
]]>InputBox , , , Введите слово для заменыПотом скрипт заменяет буквы, которые я указал например п на б,з на с и т.д.
И ответ он выводит на в окошко:
Msgbox, "слово в котором мы заменили буквы"Вот пример,Мы пишем слово "банемодь",скрипт меняет буквы и получается слово "понимать".
]]>