IntToWord

[sezercan19]

I need convert int to word any one can help me please ?

[GEOSoft]

I started to write a function for that at one time and never did complete it. Pretty simple up to the thousands. There are several javascript versions of it available by usinggoogle. just search for it and then convert that code to AutoIt.

[trancexx]

This is confusing.

[Yashied]

Maybe INT to DWORD?

Within the limits of AutoIt.

Number('0x' & Hex($Int))

[sezercan19]

Maybe INT to DWORD?

Within the limits of AutoIt.

Number('0x' & Hex($Int))

i need Int To Word

like in vb6 WordFromInterger

[Jos]

i need Int To Word

like in vb6 WordFromInterger

show an example scriptlet where this is needed so we can understand.

[sezercan19]

e.g vb6 code

WordFromInterger("1")

[trancexx]

e.g vb6 code

WordFromInterger("1")

And the result of that is?

[sezercan19]

And the result of that is?

returns 0100

e.g 2

WordfromInterger("12") returns 0C00

Edited July 14, 2010 by sezercan19

[Jos]

Again, show a portion of a script that shows how you need to use it.

Jos

[GEOSoft]

I think he wants a numerical to return the string representation. 100 returns "one hundred", 10 returns "ten" etc. I was writing an app for printing cheques when I last played with that. He knows the VBS function for it but js has no such function. That's why I suggested he look up the js code snippets that are all over the place and do a conversion.

[Mat]

Probably slightly out... Uses short scale only as it's easy.

expandcollapse popup

Local $iNum = 123456789876543
MsgBox(0, $iNum, NumToWord($iNum))

Func NumToWord($iNum)
    Local $asDigits[10] = ["zero", "one", "two", "three", "four", "five", "six", "seven", "eight", "nine"]
    Local $asTeens[8] = ["eleven", "twelve", "thirteen", "fourteen", "fifteen", "sixteen", "seventeen", "nineteen"]
    Local $asTens[9] = ["ten", "twenty", "thirty", "forty", "fifty", "sixty", "seventy", "eighty", "ninety"]
    Local $asBig[22] = ["thousand", "million", "billion", "trillion", "quadrillion", "quintillion", "sextillion", "septillion", "octillion", "nonillion", _
                        "decillion", "undecillion", "duodecillion", "tredecillion", "quattuordecillion", "quindecillion", "sexdecillion", "septendecillion", "octodecillion", "novemdecillion", "vigintillion"]

    Local $sRet = ""

    ; Very big numbers
    For $i = 22 To 1 Step - 1
        If $iNum >= 10 ^ ($i * 3) Then
            $iTemp = Floor($iNum / (10 ^ ($i * 3)))
            $iNum -= $iTemp * (10 ^ ($i * 3))
            $sRet &= NumToWord($iTemp) & " " & $asBig[$i - 1] & " "
        EndIf
    Next

    ; hundreds
    If $iNum >= 100 Then
        $iTemp = Floor($iNum / 100)
        $iNum -= $iTemp * 100
        $sRet &= NumToWord($iTemp) & " hundred and "
    EndIf

    If $iNum > 10 And $iNum < 20 Then
        $iTemp = Floor($iNum - 11)
        $iNum -= 11 + $iTemp
        $sRet &= $asTeens[$iTemp] & " "
    Else
        ; Tens
        If $iNum >= 10 Then
            $iTemp = Floor($iNum / 10)
            $iNum -= $iTemp * 10
            $sRet &= $asTens[$iTemp - 1] & " "
        EndIf

        ; Digits
        If $iNum >= 1 Then
            $sRet &= $asDigits[Floor($iNum)] & " "
            $iNum -= Floor($iNum)
        EndIf
    EndIf

    Return $sRet
EndFunc

Edited July 14, 2010 by Mat

[sezercan19]

word = 2 byte

[Yashied]

word = 2 byte

You do not say so.

[sezercan19]

i solved this with my udf

here is code

Func WordFromInteger($data)     
$WordFromInteger = Hex($data)   
If StringLen($WordFromInteger) = 1 Then         
$WordFromInteger = "0" & $WordFromInteger & "00"     
ElseIf StringLen($WordFromInteger) = 2 Then         
$WordFromInteger = $WordFromInteger & "00"     
ElseIf StringLen($WordFromInteger) = 3 Then         
$WordFromInteger = StringMid($WordFromInteger, 2, 2) & "0" & StringLeft($WordFromInteger, 1)    
ElseIf StringLen($WordFromInteger) = 4 Then         
$WordFromInteger = StringMid($WordFromInteger, 3, 2) & StringLeft($WordFromInteger, 2)     
EndIf   
Return $WordFromInteger     
EndFunc

[Yashied]

i solved this with my udf

here is code

Func WordFromInteger($data)     
$WordFromInteger = Hex($data)   
If StringLen($WordFromInteger) = 1 Then         
$WordFromInteger = "0" & $WordFromInteger & "00"     
ElseIf StringLen($WordFromInteger) = 2 Then         
$WordFromInteger = $WordFromInteger & "00"     
ElseIf StringLen($WordFromInteger) = 3 Then         
$WordFromInteger = StringMid($WordFromInteger, 2, 2) & "0" & StringLeft($WordFromInteger, 1)    
ElseIf StringLen($WordFromInteger) = 4 Then         
$WordFromInteger = StringMid($WordFromInteger, 3, 2) & StringLeft($WordFromInteger, 2)     
EndIf   
Return $WordFromInteger     
EndFunc

Congratulation, awesome UDF!

Edited July 14, 2010 by Yashied

[Mat]

And there I was writing a big UDF to turn numbers into english words...

Func WordFromInteger($data)
    Return Hex($data, 8)
EndFunc

And heres my updated NumToWord. It now works well and does decimals.

link

You will here a lot of people on the next page complaining at how the function that was until just now posted here didn't work and I admit I left out a possibly important number by mistake. The one there works.

Edited September 17, 2010 by Mat

[MvGulik]

For those that like to extend NumToWord($iNum) to include "long scale" output.

http://en.wikipedia.org/wiki/Names_of_large_numbers#Extensions_of_the_standard_dictionary_numbers

(Org Example topic: NumToWord _{As in 100 = One hundred... *human* words...})

Edited July 15, 2010 by MvGulik

[Mat]

Short scale is a lot easier, and is the standard now. Thanks for advertising

[JoHanatCent]

Short scale is a lot easier, and is the standard now. Thanks for advertising

Odd

If I try this with "Local $iNum = 18"

I get NineTeen !