U procesu prevođenja jednog site-a sa latinice na ćirilicu brzinski sam napravio program koji pritiskom na F2 taster prevodi selektovani tekst iz Srpske latinice u ćirilicu (selektovani tekst se iskopira u clipboard emuliranjem ctrl+c, zatim se smešta u promenjivu, svako slovo se zameni, promenjiva se vraća u clipboard i simulira se slanje tastera ctrl+v odnosno paste). Program nema nikakva podešavanja pa ako nekom treba da se prevođenje izvrši pritiskom na neki drugi taster moraće da skine autoit promeni hotkey i iskompajlira program. Možda će još nekom biti koristan pa…
Program je pisan u autoit script-u na dnu članka se nalazi download link sa athivom koja sadrži autoit izvorni kod, kompajliran program i ikonu.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 |
#Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon=..\Downloads\Vdoconvertor-Circle.ico #AutoIt3Wrapper_Outfile=latucir.exe #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #NoTrayIcon #include <AutoItConstants.au3> #include <MsgBoxConstants.au3> #include <TrayConstants.au3> ; Required for the $TRAY_CHECKED and $TRAY_ICONSTATE_SHOW constants. HotKeySet("{F2}", "Ffunkcija") Opt("TrayMenuMode", 3) Local $idAbout = TrayCreateItem("About") TrayCreateItem("") ; Create a separator line. Local $idExit = TrayCreateItem("Exit") TraySetState($TRAY_ICONSTATE_SHOW) ; Show the tray menu. While 1 Switch TrayGetMsg() case $idExit ExitLoop Case $idAbout MsgBox(0,"Zamena latinice u ćirilicu","Pritiskom na F2 konvertuje selektovani tekst iz latinice u ćirilicu") EndSwitch WEnd Func Ffunkcija() Send("{CTRLDOWN}c{CTRLUP}") $m = ClipGet() $m = StringReplace($m, "lj", "љ", 0, 1) $m = StringReplace($m, "dž", "џ", 0, 1) $m = StringReplace($m, "nj", "њ", 0, 1) $m = StringReplace($m, "dj", "ђ", 0, 1) $m = StringReplace($m, "Lj", "Љ", 0, 1) $m = StringReplace($m, "Dž", "Џ", 0, 1) $m = StringReplace($m, "Nj", "Њ", 0, 1) $m = StringReplace($m, "Dj", "Ђ", 0, 1) $m = StringReplace($m, "LJ", "Љ", 0, 1) $m = StringReplace($m, "DŽ", "Џ", 0, 1) $m = StringReplace($m, "NJ", "Њ", 0, 1) $m = StringReplace($m, "DJ", "Ђ", 0, 1) $m = StringReplace($m, "e", "е", 0, 1) $m = StringReplace($m, "r", "р", 0, 1) $m = StringReplace($m, "t", "т", 0, 1) $m = StringReplace($m, "z", "з", 0, 1) $m = StringReplace($m, "u", "у", 0, 1) $m = StringReplace($m, "i", "и", 0, 1) $m = StringReplace($m, "o", "о", 0, 1) $m = StringReplace($m, "p", "п", 0, 1) $m = StringReplace($m, "š", "ш", 0, 1) $m = StringReplace($m, "đ", "ђ", 0, 1) $m = StringReplace($m, "a", "а", 0, 1) $m = StringReplace($m, "s", "с", 0, 1) $m = StringReplace($m, "d", "д", 0, 1) $m = StringReplace($m, "f", "ф", 0, 1) $m = StringReplace($m, "g", "г", 0, 1) $m = StringReplace($m, "h", "х", 0, 1) $m = StringReplace($m, "j", "ј", 0, 1) $m = StringReplace($m, "k", "к", 0, 1) $m = StringReplace($m, "l", "л", 0, 1) $m = StringReplace($m, "č", "ч", 0, 1) $m = StringReplace($m, "ć", "ћ", 0, 1) $m = StringReplace($m, "ž", "ж", 0, 1) $m = StringReplace($m, "c", "ц", 0, 1) $m = StringReplace($m, "v", "в", 0, 1) $m = StringReplace($m, "b", "б", 0, 1) $m = StringReplace($m, "n", "н", 0, 1) $m = StringReplace($m, "m", "м", 0, 1) $m = StringReplace($m, "E", "Е", 0, 1) $m = StringReplace($m, "R", "Р", 0, 1) $m = StringReplace($m, "T", "Т", 0, 1) $m = StringReplace($m, "Z", "З", 0, 1) $m = StringReplace($m, "U", "У", 0, 1) $m = StringReplace($m, "I", "И", 0, 1) $m = StringReplace($m, "O", "О", 0, 1) $m = StringReplace($m, "P", "П", 0, 1) $m = StringReplace($m, "Š", "Ш", 0, 1) $m = StringReplace($m, "Đ", "Ђ", 0, 1) $m = StringReplace($m, "A", "А", 0, 1) $m = StringReplace($m, "S", "С", 0, 1) $m = StringReplace($m, "D", "Д", 0, 1) $m = StringReplace($m, "F", "Ф", 0, 1) $m = StringReplace($m, "G", "Г", 0, 1) $m = StringReplace($m, "H", "Х", 0, 1) $m = StringReplace($m, "J", "Ј", 0, 1) $m = StringReplace($m, "K", "К", 0, 1) $m = StringReplace($m, "L", "Л", 0, 1) $m = StringReplace($m, "Č", "Ч", 0, 1) $m = StringReplace($m, "Ć", "Ћ", 0, 1) $m = StringReplace($m, "Ž", "Ж", 0, 1) $m = StringReplace($m, "C", "Ц", 0, 1) $m = StringReplace($m, "V", "В", 0, 1) $m = StringReplace($m, "B", "Б", 0, 1) $m = StringReplace($m, "N", "Н", 0, 1) $m = StringReplace($m, "M", "М", 0, 1) ClipPut($m) Send("{CTRLDOWN}v{CTRLUP}") EndFunc ;==>Ffunkcija |
latucir.zip
