34 lines
1.4 KiB
AutoHotkey
34 lines
1.4 KiB
AutoHotkey
table := "
|
|
(
|
|
add 1 alter 3 backup 2 bottom 1 Cappend 2 change 1 Schange Cinsert 2 Clast 3
|
|
compress 4 copy 2 count 3 Coverlay 3 cursor 3 delete 3 Cdelete 2 down 1 duplicate
|
|
3 xEdit 1 expand 3 extract 3 find 1 Nfind 2 Nfindup 6 NfUP 3 Cfind 2 findUP 3 fUP 2
|
|
forward 2 get help 1 hexType 4 input 1 powerInput 3 join 1 split 2 spltJOIN load
|
|
locate 1 Clocate 2 lowerCase 3 upperCase 3 Lprefix 2 macro merge 2 modify 3 move 2
|
|
msg next 1 overlay 1 parse preserve 4 purge 3 put putD query 1 quit read recover 3
|
|
refresh renum 3 repeat 3 replace 1 Creplace 2 reset 3 restore 4 rgtLEFT right 2 left
|
|
2 save set shift 2 si sort sos stack 3 status 4 top transfer 3 type 1 up 1
|
|
)"
|
|
|
|
MsgBox % result := Abbreviations("riG rePEAT copies put mo rest types fup. 6 poweRin", table)
|
|
return
|
|
|
|
Abbreviations(str, table){
|
|
Words := [], Expanded := []
|
|
while pos := RegExMatch(table, "i)([a-z]+)(?:\s+(\d+))?", m, A_Index=1?1:pos+StrLen(m))
|
|
Words[m1] := m2?m2:StrLen(m1)
|
|
for i, abb in StrSplit(RegExReplace(str, " +", " "), " ")
|
|
{
|
|
for word, count in Words
|
|
if (word ~= "i)^" abb) && (StrLen(abb) >= count)
|
|
{
|
|
StringUpper, word, word
|
|
result .= word " "
|
|
Expanded[abb] := true
|
|
break
|
|
}
|
|
if !Expanded[abb]
|
|
result .= "*error* "
|
|
}
|
|
return Trim(result, " ")
|
|
}
|