Autohotkey Script for trimming bar codes

trimbarcode.ahk

; Pause : ctrl+a, ctrl+c , delete prefix, ctrl+v
; Home  : delete the prefix
; Esc   : close the running script
 
prefixLength := 8
codeLength   := 30
remainder    := codeLength-prefixLength
 
TrimBarCode()
{
    global prefixLength
    global remainder
    clipboard := RegExReplace( clipboard, "^\d{" . prefixLength . "}(\d{" . remainder . "})$", "$1" )
}
 
Esc::ExitApp
 
Pause::
SendInput ^a
SendInput ^c
TrimBarCode()
SendInput ^v
return
 
$Home::
SendInput {Home}
Loop, %prefixLength%
{
    SendInput +{Right}
}
SendInput {Backspace}
return