AutoHotkey Community

Code: Select all

vNum := Clipboard ; I START BY PLACING THE NUMBERS IN CLIPBOARD

tempVar := % JEE_NumToWord(vNum)
 
q:: Send %tempVar%  ; WHEN I PRESS "Q", IT PASTES THE WORD VERSION OF THE NUMBERS
return

;==================================================

;JEE_NumSpell
;JEE_SpellNum
JEE_NumToWord(vNum, vDoTrimFrac:=1, vAddExtraAnd:=0)
{
	if !vNum
		return "zero"

	oArrayX := StrSplit("Thousand,Million,Billion,Trillion,Quadrillion,Quintillion,Sextillion,Septillion,Octillion,Nonillion,Decillion", ",")
	(oArrayU := StrSplit("Zero,One,Two,Three,Four,Five,Six,Seven,Eight,Nine,Ten,Eleven,Twelve,Thirteen,Fourteen,Fifteen,Sixteen,Seventeen,Eighteen,Nineteen", ",")).RemoveAt(0)
	oArrayT := StrSplit("Ten,Twenty,Thirty,Forty,Fifty,Sixty,Seventy,Eighty,Ninety", ",")

	vNum := StrReplace(vNum, "-", "", vCount)
	if vCount
		vOutput := "minus "
	vNum := StrReplace(vNum, ",")
	vNum1 := LTrim(StrSplit(vNum, ".")[1], "0")
	if vDoTrimFrac
		vNum2 := RTrim(StrSplit(vNum, ".")[2], "0")
	else
		vNum2 := StrSplit(vNum, ".")[2]

	if ((vLen := StrLen(vNum1)) > 36)
		return
	if (Mod(vLen, 3) = 1)
		vNum1 := "00" vNum1
	else if (Mod(vLen, 3) = 2)
		vNum1 := "0" vNum1

	vMag := Ceil(vLen/3)-1
	Loop, % Ceil(vLen/3)
	{
		oTemp := StrSplit(SubStr(vNum1, (A_Index*3)-2, 3))
		vTemp := (oTemp.2 * 10) + oTemp.3
		if oTemp.1
			vOutput .= oArrayU[oTemp.1] " Hundred" (vTemp?" and ":" ")
		else if !vMag && (vLen > 3) && vAddExtraAnd
			vOutput .= "and "

		if (vTemp >= 20)
			vOutput .= oArrayT[oTemp.2] (oTemp.3?"-" oArrayU[oTemp.3]:" ")
		else if vTemp
			vOutput .= oArrayU[vTemp]
		vOutput .= " " oArrayX[vMag] " "
		vMag--
	}
vOutput .= "Dollars "
	vOutput := RTrim(vOutput, " ")
	if !vNum2
		return vOutput
	if (vOutput = "")
		vOutput := "zero"
	vOutput .= " and"
	Loop, Parse, vNum2
		; vOutput .= "-" oArrayU[A_LoopField]
	vOutput .= " " oArrayU[A_LoopField]
vOutput .= " Cents "
	return RTrim(vOutput)
}

;==================================================

Code: Select all

; This script converts words to a number
#Requires AutoHotkey v2.0
MsgBox wordsToNum("One Million Eight Hundred and Seventy-Six Thousand Five Hundred and Forty-Three")

wordsToNum(str) {
 Static tens     := Map('ten'  , 10, 'twenty' , 20, 'thirty', 30, 'forty' , 40, 'fifty', 50
                      , 'sixty', 60, 'seventy', 70, 'eighty', 80, 'ninety', 90)
      , ones     := Map('one', 1, 'two'  , 2, 'three', 3, 'four', 4, 'five', 5
                      , 'six', 6, 'seven', 7, 'eight', 8, 'nine', 9)
      , place    := Map('million', 1000000, 'thousand', 1000, 'hundred', 100)
      , tensStr  := "", onesStr := ""
 If !tensStr
  For word in tens
   tensStr .= (tensStr = "" ? "" : "|") word
 If !onesStr
  For word in ones
   onesStr .= (onesStr = "" ? "" : "|") word
 str := StrReplace(Format("{:L}", str), " and ", " ")
 For each, pl in ['million', 'thousand', 'hundred'] {
  RegExMatch(str, 'i)((.+)\h+' pl ')?(\h*(.*))?', &m)
  If m[2]
   Return (wordsToNum(m[2]) * place[pl] || 0) + (wordsToNum(m[4]) || 0)
 }
 RegExMatch(m[4], 'i)(' tensStr ')?[- ]?(' onesStr ')?', &m)
 Return (tens.Has(m[1]) ? tens[m[1]] : 0) + (ones.Has(m[2]) ? ones[m[2]] : 0)
}

Code: Select all

N := "$123456789.045"
MsgBox % SpellNumber(N)
ExitApp

SpellNumber(Num, Format := "") {
	Place := [" ", " Thousand ", " Million ", " Billion ", " Trillion "]
	Num := Trim(StrReplace(Num, ",", ""))
	If SubStr(Num, 1, 1) = "$" or InStr(Format, "$")
		Dls := "Dollars ", Num := StrReplace(Num, "$", "")
	
	; get cents
	If DecimalPoint := InStr(Num, ".")
	{	Cen := Tens(SubStr(SubStr(Num, DecimalPoint + 1) . "00", 1, 2))
		Num := SubStr(Num, 1, DecimalPoint - 1)
	}

	Cnt := 1
	While Num != ""
	{	h := Hundreds(SubStr(Num, -2))
		If h
			Dollars := h . Place[Cnt] . Dollars
		Num := StrLen(Num) > 3 ? SubStr(Num, 1, -3) : ""
		++Cnt
	}
	
	Switch Cen
	{	Case "":
			Cents := Dls . " and No Cents"
		Case "One":
			Cents := Dls . " and One Cent"
		Default:
			Cents := Dls . " and " . Cen . " Cents"
	}
	Return, StrReplace(Dollars . Cents, "  ", " ")
}

; get hundreds
Hundreds(Num) {
	If (Num = 0)
		Return, ""
	Num := SubStr("000" . Num, -2)
	If SubStr(Num, 1, 1) != "0"
		Ret := Digits(SubStr(Num, 1, 1)) . " Hundred "
	If SubStr(Num, 2, 1) != "0"
		Return, Ret . Tens(SubStr(Num, 2))
	Else
		Return, Ret . Digits(SubStr(Num, 3))
}

; get tens
Tens(Num) {
	If (Num > 9 and Num < 20)
		Switch Num
		{	Case 10: Return, "Ten"
			Case 11: Return, "Eleven"
			Case 12: Return, "Twelve"
			Case 13: Return, "Thirteen"
			Case 14: Return, "Fourteen"
			Case 15: Return, "Fifteen"
			Case 16: Return, "Sixteen"
			Case 17: Return, "Seventeen"
			Case 18: Return, "Eighteen"
			Case 19: Return, "Nineteen"
		}
	Else
		Switch SubStr(Num, 1, 1)
		{	Case 2: Ret := "Twenty "
			Case 3: Ret := "Thirty "
			Case 4: Ret := "Forty "
			Case 5: Ret := "Fifty "
			Case 6: Ret := "Sixty "
			Case 7: Ret := "Seventy "
			Case 8: Ret := "Eighty "
			Case 9: Ret := "Ninety "
		}
	Return, Ret . Digits(SubStr(Num, 2, 1))
}

Digits(Num) {
	Switch Num
	{	Case 1: Return, "One"
		Case 2: Return, "Two"
		Case 3: Return, "Three"
		Case 4: Return, "Four"
		Case 5: Return, "Five"
		Case 6: Return, "Six"
		Case 7: Return, "Seven"
		Case 8: Return, "Eight"
		Case 9: Return, "Nine"
		Default: Return, ""
	}	
}

Code: Select all

; This script converts words to a number
#Requires AutoHotkey v1.1.33
MsgBox % wordsToNum("One Million Eight Hundred and Seventy-Six Thousand Five Hundred and Forty-Three")

wordsToNum(str) {
 Static tens     := {"ten"  : 10, "twenty" : 20, "thirty": 30, "forty" : 40, "fifty": 50
                   , "sixty": 60, "seventy": 70, "eighty": 80, "ninety": 90}
      , ones     := {"one": 1, "two"  : 2, "three": 3, "four": 4, "five": 5
                   , "six": 6, "seven": 7, "eight": 8, "nine": 9}
      , place    := {"million": 1000000, "thousand": 1000, "hundred": 100}
      , tensStr  := "", onesStr := ""
 If !tensStr
  For word in tens
   tensStr .= (tensStr = "" ? "" : "|") word
 If !onesStr
  For word in ones
   onesStr .= (onesStr = "" ? "" : "|") word
 str := StrReplace(Format("{:L}", str), " and ", " ")
 For each, pl in ["million", "thousand", "hundred"] {
  RegExMatch(str, "i)((.+)\h+" pl ")?(\h*(.*))?", m)
  If m2
   Return ((n1 := wordsToNum(m2)) ? n1 * place[pl] : 0) + ((n2 := wordsToNum(m4)) ? n2 : 0)
 }
 RegExMatch(m4, "i)(" tensStr ")?[- ]?(" onesStr ")?", m)
 Return (tens.HasKey(m1) ? tens[m1] : 0) + (ones.HasKey(m2) ? ones[m2] : 0)
}