Writing out numbers in words...

[Gintaras]

This function converts 1 digit in string.
Function NumberToWord

Code:

Copy      Help

;/
function# $number str&_word

;number - string that begins with character '0' - '9'.
;_word - str variable that receives word "One" - "Nine".

_word.fix(0)
if(!number) ret
int i=number[0]-'0'
if(i<0 or i>9) ret
_word.getl("Zero[]One[]Two[]Three[]Four[]Five[]Six[]Seven[]Eith[]Nine" i)
ret 1

Macro

Code:

Copy      Help

str s="0123456789"
int i
for i 0 s.len
,str sw
,NumberToWord s+i sw
,out sw
,

Converting to "Twelve", "Twenty thousands" etc would be difficult.