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", "lj", 0, 1) $m = StringReplace($m, "dž", "dž", 0, 1) $m = StringReplace($m, "nj", "nj", 0, 1) $m = StringReplace($m, "dj", "đ", 0, 1) $m = StringReplace($m, "Lj", "LJ", 0, 1) $m = StringReplace($m, "Dž", "DŽ", 0, 1) $m = StringReplace($m, "Nj", "NJ", 0, 1) $m = StringReplace($m, "Dj", "Đ", 0, 1) $m = StringReplace($m, "LJ", "LJ", 0, 1) $m = StringReplace($m, "DŽ", "DŽ", 0, 1) $m = StringReplace($m, "NJ", "NJ", 0, 1) $m = StringReplace($m, "DJ", "Đ", 0, 1) $m = StringReplace($m, "e", "e", 0, 1) $m = StringReplace($m, "r", "r", 0, 1) $m = StringReplace($m, "t", "t", 0, 1) $m = StringReplace($m, "z", "z", 0, 1) $m = StringReplace($m, "u", "u", 0, 1) $m = StringReplace($m, "i", "i", 0, 1) $m = StringReplace($m, "o", "o", 0, 1) $m = StringReplace($m, "p", "p", 0, 1) $m = StringReplace($m, "š", "š", 0, 1) $m = StringReplace($m, "đ", "đ", 0, 1) $m = StringReplace($m, "a", "a", 0, 1) $m = StringReplace($m, "s", "s", 0, 1) $m = StringReplace($m, "d", "d", 0, 1) $m = StringReplace($m, "f", "f", 0, 1) $m = StringReplace($m, "g", "g", 0, 1) $m = StringReplace($m, "h", "h", 0, 1) $m = StringReplace($m, "j", "j", 0, 1) $m = StringReplace($m, "k", "k", 0, 1) $m = StringReplace($m, "l", "l", 0, 1) $m = StringReplace($m, "č", "č", 0, 1) $m = StringReplace($m, "ć", "ć", 0, 1) $m = StringReplace($m, "ž", "ž", 0, 1) $m = StringReplace($m, "c", "c", 0, 1) $m = StringReplace($m, "v", "v", 0, 1) $m = StringReplace($m, "b", "b", 0, 1) $m = StringReplace($m, "n", "n", 0, 1) $m = StringReplace($m, "m", "m", 0, 1) $m = StringReplace($m, "E", "E", 0, 1) $m = StringReplace($m, "R", "R", 0, 1) $m = StringReplace($m, "T", "T", 0, 1) $m = StringReplace($m, "Z", "Z", 0, 1) $m = StringReplace($m, "U", "U", 0, 1) $m = StringReplace($m, "I", "I", 0, 1) $m = StringReplace($m, "O", "O", 0, 1) $m = StringReplace($m, "P", "P", 0, 1) $m = StringReplace($m, "Š", "Š", 0, 1) $m = StringReplace($m, "Đ", "Đ", 0, 1) $m = StringReplace($m, "A", "A", 0, 1) $m = StringReplace($m, "S", "S", 0, 1) $m = StringReplace($m, "D", "D", 0, 1) $m = StringReplace($m, "F", "F", 0, 1) $m = StringReplace($m, "G", "G", 0, 1) $m = StringReplace($m, "H", "H", 0, 1) $m = StringReplace($m, "J", "J", 0, 1) $m = StringReplace($m, "K", "K", 0, 1) $m = StringReplace($m, "L", "L", 0, 1) $m = StringReplace($m, "Č", "Č", 0, 1) $m = StringReplace($m, "Ć", "Ć", 0, 1) $m = StringReplace($m, "Ž", "Ž", 0, 1) $m = StringReplace($m, "C", "C", 0, 1) $m = StringReplace($m, "V", "V", 0, 1) $m = StringReplace($m, "B", "B", 0, 1) $m = StringReplace($m, "N", "N", 0, 1) $m = StringReplace($m, "M", "M", 0, 1) ClipPut($m) Send("{CTRLDOWN}v{CTRLUP}") EndFunc ;==>Ffunkcija |
latucir.zip
