Icarus
Joined: 24 Nov 2005
Posts: 449
|
 Posted: Wed Jul 09, 2008 2:08 pm Post subject: Numpad9 - T9 Input with the Numpad |
 |
|
Numpad9 - v0.14
T9 Input with the Numpad
| Code: | ;-------------------------------------------------------------------------------
;
; Numpad9 0.14 by: Danny Ben Shitrit (aka Icarus)
; T9 Input with the Numpad
;
; • Enable Numlock to Activate
; +------------+------------+---------+-----------+
; | Numlock | / | * | - |
; | On | Prev Word | Next Word | Delete |
; +-----------+-----------+-----------+-----------+
; | 7 | 8 | 9 | + |
; | Symbol | ABC | DEF | abc |
; +-----------+-----------+-----------| Abc |
; | 4 | 5 | 6 | ABC |
; | GHI | JKL | MNO | 123 |
; +-----------+-----------+-----------+-----------+
; | 1 | 2 | 3 | Enter |
; | PQRS | TUV | WXYZ | |
; +-----------+-----------+-----------| |
; | 0 | . | |
; | Space | Spell | |
; +-----------------------+-----------+-----------+
;
; • Dictionary is downloaded automatically
; • userdictionary.txt may contain any additional words
; • Spelled words are automatically added to user dictionary
; • Used words that are not the first in their code, will be automatically
; added to the prioritywords.txt file, so that next time you enter the code
; they will appear first (e.g. The first word for 4919 is "herd" instead
; of "here" - the first time you use "here" it will be remembered as the
; first word for 4919)
; • Loading the dictionary may take a few seconds, a sound will be heard when
; ready for input.
;
;-------------------------------------------------------------------------------
#SingleInstance Force
#NoEnv
SetWorkingDir %A_ScriptDir%
SendMode Input
ENABLE_DEBUG := false ; Enable to show detailed debug info
SHOW_INPUT := false ; (or) Enable to show the input as a tooltip
Gosub Init
SoundPlay *64
Return
;-------------------------------------------------------------------------------
; INIT
;-------------------------------------------------------------------------------
Init:
Suspend
; Download dictionary if necessary
If ( Not FileExist( "dictionary.txt" ) )
UrlDownloadToFile http://java.sun.com/docs/books/tutorial/collections/interfaces/examples/dictionary.txt, dictionary.txt
If ( FileExist( "prioritywords.txt" ) )
FileRead PriorityWords, prioritywords.txt
; Read all the words from dictionary and user dictionary
FileRead Words, dictionary.txt
If FileExist( "userdictionary.txt" )
FileRead Words2, userdictionary.txt
Words := PriorityWords . Words . Words2
StringSplit Word, Words, `n, `r
GlobalWordIndex := 1
GlobalCapsMode := 1 ; 123 = abc, Abc, ABC, 123
CapsModeStrings := "abc,Abc,ABC,123"
StringSplit CapsModeString, CapsModeStrings, `,
; Map letter to numpad key and default characters for single digit codes
Chars := "ABCDEFGHIJKLMNOPQRSTUVWXYZ123456789"
Nums := "88899944455566611112223333rtyijm,ad"
StringSplit Chr, Chars
StringSplit Num, Nums
Loop %Chr0% {
ThisChr := Chr%A_Index%
Char_%ThisChr% := Num%A_Index%
}
; Make one variable for each code, with space separated list of words
Loop %Word0% {
If( Word%A_Index% = "" )
Continue
RegisterWordVariable( Word%A_Index% )
}
; Add some symbol words
Word_7 := ", . ? @ ! - + / * ( ) "" : % $ #"
Word_77 := ":) `;) :] ?! ??"
Word_777 := "... :-) ??? ?!? !!! --> <--"
Suspend Off
Return
;-------------------------------------------------------------------------------
; T9 FUNCTIONS
;-------------------------------------------------------------------------------
RegisterWordVariable( word ) {
; Gets a word and registers it in the relevant a Word_%Code% variable
Global
NumCode := WordToCode( word )
If( Word_%NumCode% <> "" ) and ( Not InStr( Word_%NumCode%, word ) )
Word_%NumCode% .= " "
If( Not InStr( Word_%NumCode%, word ) )
Word_%NumCode% .= word
}
WordToCode( word ) {
; Gets a word and returns its numeric code
Result := ""
word := RegExReplace( word, "\W", "7" )
StringSplit Char, Word
Loop %Char0% {
ThisChar := Char%A_Index%
Result .= ( RegExMatch( ThisChar, "\d" ) ? ThisChar : Char_%ThisChar% )
}
Debug( "WordToCode:`tIN [" . word . "] OUT [" . Result . "]" )
Return Result
}
ManageInput( inputChar ) {
; Called whenever 1-9 is pressed and prints the new word to the screen
Global GlobalWordIndex
Word := GetWordBeforeCursor()
StringRight LastChar, Word, 1
Debug( "ManageInput:`tIN [" . inputChar . "] WORD [" . Word . "]" )
; A symbol immediately after a word or word immediately after symbol
If( ( RegExMatch( LastChar, "[a-zA-Z]" ) ) and ( inputChar="7" ) ) or ( ( RegExMatch( LastChar, "[^a-zA-Z]" ) ) and ( RegExMatch( inputChar, "[12345689]" ) ) ) {
Word := ""
GlobalWordIndex := 1
}
If( Not Word )
PrintWord( InputChar, false )
Else
PrintWord( WordToCode( Word ) . inputChar )
}
GetWordBeforeCursor() {
; Returns the word that is currently shown before the carret
Clipboard =
Send ^+{Left}^c{Right}
ClipWait 1
Word := Clipboard
If( RegExMatch( Word, "\s$" ) ) or ( InStr( Word, "`n" ) )
Word := ""
If( RegExMatch( Word, "[\.,]*" ) )
Word := RegExReplace( Word, "[\.,]", "7" )
Else
Word := RegExReplace( Word, "[\W]", "" )
Debug( "GetWordBefo:`tOUT [" . Word . "]" )
Return Word
}
PrintWord( code, cleanBefore=true ) {
; Gets a code and prints its word to the screen.
; If cleanBefore is true, it will erase the word before the carret
Global
If( Word_%code% = "" )
WordToPrint := CodeToChars( code )
Else {
StringSplit Word, Word_%code%, %A_Space%
GlobalWordIndex := ( GlobalWordIndex > Word0 ) ? 1 : ( GlobalWordIndex < 1 ? Word0 : GlobalWordIndex )
WordToPrint := Word%GlobalWordIndex%
}
If( GlobalCapsMode = 2 )
StringUpper WordToPrint, WordToPrint, T
Else If( GlobalCapsMode = 3 )
StringUpper WordToPrint, WordToPrint
Else If( GlobalCapsMode = 4 )
WordToPrint := WordToCode( WordToPrint )
If( cleanBefore )
Send ^+{Left}
SendRaw %WordToPrint%
Debug( "PrintWord:`tIN [" . code . "] DO [" . WordToPrint . "]" )
}
CodeToChars( code ) {
; Gets a code and returns the raw characters it represents.
; This is called when the code does not have a word
StringSplit Digit, Code
Result := ""
Loop %Digit0% {
ThisDigit := Digit%A_Index%
Result .= Char_%ThisDigit%
}
Debug( "CodeToChars:`tIN [" . code . "] OUT [" . Result . "]" )
Return Result
}
Spell() {
; Opens an input dialog for entering a new word.
; The word will be added to the userdictionary.txt file if it is a new word
Word := GetWordBeforeCursor()
If( Word )
Send ^+{Left}
StringReplace Word, Word, 7,,All
InputBox Word, Spell,,,140,90,,,,,%Word%
Result := ErrorLevel ? "" : Word
Debug( "Spell:`t`tOUT [" . word . "]" )
Return Result
}
AddWord( word ) {
; Adds a word to the userdictionary.txt file if it is a new word
Debug( "AddWord:`t" . word )
If( word <> "" ) {
StringLower word, word
WordCode := WordToCode( word )
If( Not InStr( Word_%WordCode%, word ) ) and ( RegExMatch( word, "^[a-zA-Z]+$" ) ) {
FileAppend %word%`n, userdictionary.txt
RegisterWordVariable( word )
}
}
}
HandlePriorityWords:
; Called when the last entered word was not the first in its code.
; Will add it as the first word to the code, and write it to the priority
; words file for next sessions
LastWord := GetWordBeforeCursor()
If( Not RegExMatch( LastWord, "^[a-zA-Z]+$" ) )
Return
LastWordCode := WordToCode( LastWord )
If( Not InStr( PriorityWords, LastWord ) ) {
FileAppend %LastWord%`n, prioritywords.txt
PriorityWords .= LastWord . "`n"
Word_%LastWordCode% := LastWord . " " . Word_%LastWordCode%
}
Return
;-------------------------------------------------------------------------------
; OTHER FUNCTIONS
;-------------------------------------------------------------------------------
Debug( text ) {
Global DebugMessage, ENABLE_DEBUG
If( Not ENABLE_DEBUG )
Return
SetTimer CleanDebugMessage, Off
DebugMessage .= text . "`n"
Tooltip %DebugMessage%
SetTimer CleanDebugMessage, -300
}
CleanDebugMessage:
DebugMessage := ""
Return
;-------------------------------------------------------------------------------
; HOTKEYS
;-------------------------------------------------------------------------------
ESC::ExitApp
Numpad1::
Numpad2::
Numpad3::
Numpad4::
Numpad5::
Numpad6::
Numpad7::
Numpad8::
Numpad9::
Debug( "---INPUT:`t" . A_ThisHotkey )
If( A_ThisHotkey = "Numpad7" ) and ( GlobalWordIndex <> 1 )
Gosub HandlePriorityWords
ThisCode := SubStr( A_ThisHotkey, 7,1 )
If( SHOW_INPUT )
Tooltip [%ThisCode%]
ManageInput( ThisCode )
Return
Numpad0::
If( GlobalWordIndex <> 1 )
Gosub HandlePriorityWords
Send {Space}
GlobalWordIndex := 1
If( SHOW_INPUT )
Tooltip [0] - Space
Return
NumpadSub::
Send {Backspace}
GlobalWordIndex := 1
If( SHOW_INPUT )
Tooltip [-] - Del
ManageInput("")
Return
NumpadMult::
GlobalWordIndex++
If( SHOW_INPUT )
Tooltip [*] - Next
ManageInput("")
Return
NumpadDiv::
GlobalWordIndex--
If( SHOW_INPUT )
Tooltip [/] - Prev
ManageInput("")
Return
NumpadDot::
GlobalCapsMode++
If( GlobalCapsMode > 4 )
GlobalCapsMode := 1
If( SHOW_INPUT )
Tooltip % "[.] - " . CapsModeString%GlobalCapsMode%
Return
NumpadAdd::
If( SHOW_INPUT )
Tooltip [+] - Spell
Word := Spell()
If( Word <> "" ) {
AddWord( Word )
Send %Word%
}
Return
NumpadEnter::
If( GlobalWordIndex <> 1 )
Gosub HandlePriorityWords
GlobalWordIndex := 1
Send {Enter}
Return
/*------------------------------------------------------------------------------
/* REVISION HISTORY
/*------------------------------------------------------------------------------
0.14 2008 07 10
Added : Automatic registration for priority words - when words that are
not the first in their code are used, they are registered as the
priority words for future use (i.e. they will appear first when
that code is entered again).
Added : Priority words - words in prioritywords.txt will appear first when
their code is entered
Changed: Some minor changes
0.13 2008 07 09
Fixed : Added words were not immediately available
Changed: Minor changes in initialization sequence
0.12 2008 07 09
Fixed : Some symbol related bugs
0.11 2008 07 09
Initial Release
/*------------------------------------------------------------------------------*/
|
_________________
Sector-Seven (Music and Utilities)
Last edited by Icarus on Thu Jul 10, 2008 9:03 am; edited 4 times in total |
|
FAQ
Search
Memberlist
Register
Profile
Log in to check your private messages
Log in
