8 replies to this topic

[ManaUser]

This is a simple function that makes sending unicode text easier. I thought it would be particularly helpful for hotkeys and hotstrings. It uses the Transform, , Unicode command, and then further encodes it as hexidecimal. Select your Unicode text and press F12 to copy hex code for your text, than use PutUni("<your hex code>") in your script to send it.

#SingleInstance Force
#NoEnv

SetFormat Integer, H

F8::PutUni(ClipBoard)

;Sample Hotkeys
F9::PutUni("416365206f6620e299a0") ;Ace of (Spades)
F10::PutUni("e280bd") ; Interrobang
F11::PutUni("c5a1c491c48dc487c5be") ;Croatian letters, resembles "sdccz"

;Sample Hotstrings
:?:damn::
PutUni("e29ca9e298a023e280bc") ;cartoon style curse
return

::spam::
PutUni("e382b9e38391e383a0") ; Japanese for spam (per Bablefish)
return

;Copy unicode in correct format for PutUni.
F12::
ClipBoard =
Send ^c
ClipWait 0
Transform, OutputVar, Unicode
ClipBoard =
Loop % StrLen(OutputVar)
   ClipBoard .= SubStr(Asc(SubStr(OutputVar, A_Index, 1)), 3)
Return

;Paste hex string as unicode.
[color=red];This is the only part you need to add to your script to use PutUni.
PutUni(HexIn)
{
   SavedClip := ClipBoardAll
   Loop % StrLen(HexIn) / 2
      TransCode .= Chr("0x" . SubStr(HexIn, A_Index * 2 - 1, 2))
   Transform, ClipBoard, Unicode, %TransCode%
   Send ^v
   Sleep 100 ;Generous, less wait or none will often work.
   ClipBoard := SavedClip
   return
}[/color]

Note, some of the examples may not work, depending on on what characters are supported where you use it. Web browsers generally have good unicode support.

This version is obsolete: Use this one.

[Laszlo]

This can be alternative to the dll call to the Windows Unicode send-input function Shimanov found earlier. His approach has the advantage that the clipboard is not touched at sending, so there is no need to save/restore it, and it works faster. But this script does not use a dll, what can be an advantage in some cases.

[rousni]

the Windows Unicode send-input function Shimanov found earlier

I tried vainly to find this function in the forum. Could you specify a link? Thanks

[SKAN]

I tried vainly to find this function in the forum.

Really ?! :roll:
The keyword is Unicode and author is shimanov
You get only one result for that ( as of today ).

Anyways! <!-- m -->http://www.autohotke...opic.php?t=7328<!-- m -->

[deleteme]

Thank you for your help. I tried the code and get good results when copying codes from your script, but unicode codes you use don't match with ones found on unicode.org.

For instance code for š on unicode.org is "0161" while you (successfully) use "c5a1". I just realised these could be one and same but I am not literate with number format conversions - is there a page with codes you use charted?

regs
del

[MateFARKAS]

Try the Extended SendU function

[ManaUser]

Thank you for your help. I tried the code and get good results when copying codes from your script, but unicode codes you use don't match with ones found on unicode.org.

For instance code for š on unicode.org is "0161" while you (successfully) use "c5a1". I just realised these could be one and same but I am not literate with number format conversions - is there a page with codes you use charted?

regs
del

It uses AutoHotkey's built in Transform command, which is based on UTF-8 encounting, and then converts it to hexadecimal. Here's a site with list of UTF-8 codes:
<!-- m -->http://www.utf8-char...e-utf8-table.pl<!-- m -->
Just remove the space. Or you could add this to UniPut so it tolerates the space:

PutUni(HexIn)
{
   SavedClip := ClipBoardAll
   [color=red]StringReplace HexIn, HexIn, %A_Space%,, All[/color]
   Loop % StrLen(HexIn) / 2
      TransCode .= Chr("0x" . SubStr(HexIn, A_Index * 2 - 1, 2))
   Transform, ClipBoard, Unicode, %TransCode%
   Send ^v
   Sleep 100 ;Generous, less wait or none will often work.
   ClipBoard := SavedClip
   return
}