DosTips.com

Code: Select all

@echo off
setlocal EnableDelayedExpansion

rem Convert a number to equivalent words in Spanish
rem Antonio Perez Ayala

rem Define words for numbers 1 to 20
set i=1
for %%a in (uno  dos  tres  cuatro  cinco       seis      siete      ocho      nueve diez
            once doce trece catorce quince dieciseis diecisiete dieciocho diecinueve veinte) do (
   set word[!i!]=%%a
   set /A i+=1
)

rem Define words for numbers 21 to 29
for /L %%a in (1,1,9) do (
   set word[2%%a]=veinti!word[%%a]!
)

rem Define words for numbers 30 to 100 step 10
set i=30
for %%a in (treinta cuarenta cincuenta sesenta setenta ochenta noventa cien) do (
   set word[!i!]=%%a
   set /A i+=10
)

rem Define words for numbers 200 to 900 step 100
set i=200
for %%a in (doscientos trescientos cuatrocientos quinientos seiscientos setecientos ochocientos novecientos) do (
   set word[!i!]=%%a
   set /A i+=100
)

rem Adjust the number to 12 digits with leading zeros
set digits12=000000000000%1
set digits12=%digits12:~-12%

rem Convert the 12 digits
set words12=
call :Convert6Digits %digits12:~0,6%
if defined words6 (
   if "%words6:~-4%" equ "uno " (
      set words12=%words6:~0,-4%un millon
      if "%words6%" neq "uno " set words12=!words12!es
   ) else (
      set words12=%words6%millones
   )
   set "words12=!words12! "
)
call :Convert6Digits %digits12:~6%
set words12=%words12%%words6%
if not defined words12 set words12=cero

rem Capitalize the first word
set firstLetter=%words12:~0,1%
for %%a in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) do set firstLetter=!firstLetter:%%a=%%a!
set result=%firstLetter%%words12:~1%
echo %result%

goto :EOF


:Convert6Digits number
set digits6=%1
set words6=
call :Convert3Digits %digits6:~0,3%
if defined words3 (
   if "%words3:~-4%" equ "uno " (
      set "words6=%words3:~0,-2% mil "
   ) else (
      set "words6=%words3%mil "
   )
)
call :Convert3Digits %digits6:~3%
set words6=%words6%%words3%
exit /B


:Convert3Digits num
set digits3=%1
set digit1=%digits3:~0,1%
set digits23=%digits3:~1%
if %digits23:~0,1% equ 0 set digits23=%digits23:~1%
set words3=
if %digit1% neq 0 (
   rem Convert hundreds
   set words3=!word[%digit1%00]!
   rem Convert "cien" to "ciento" if there are tens/units
   if %digit1% equ 1 if %digits23% neq 0 set words3=ciento
   set "words3=!words3! "
)
if %digits23% neq 0 (
   rem Convert tens and units
   if %digits23% geq 30 (
      rem Convert tens 90..30
      set words3=%words3%!word[%digits3:~1,1%0]!
      rem Convert the units, if any
      if %digits3:~2% neq 0 (
         set words3=!words3! y !word[%digits3:~2%]!
      )
   ) else (
      rem Convert tens/units 29..1
      set words3=%words3%!word[%digits23%]!
   )
   set "words3=!words3! "
)
exit /B

Code: Select all

C:\>NumToWords.bat 0
Cero

C:\>NumToWords.bat 1
Uno

C:\>set /A var=0x7FFFFFFF
2147483647

C:\>NumToWords.bat %var%
Dos mil ciento cuarenta y siete millones cuatrocientos ochenta y tres mil seiscientos cuarenta y siete

Code: Select all

@echo off
setlocal enableextensions
::
:: number with max 36 digits without spaces, commas or points
if "%1" equ "" (set number=18446744073709551615) else set number=%~1
echo.
echo  number: %number%
echo.
call :countblocks %number% blocks
echo count blocks: %blocks% + 1
echo.
:: view number with spaces
echo.|set /p".=       "
for /l %%a in (%blocks%,-1,0) do (
  call :block %number% %%a blockn
  echo.|set /p".=!blockn! "
)
echo.
echo.
:: view number with letters
:: echo.|set /p".=    "
for /l %%a in (%blocks%,-1,0) do (
  call :block %number% %%a blockn
  call :letterblock %%a potenz englnum1 englnum2 europnum
  echo   !blockn!!potenz!  !blockn! !englnum1!  !blockn! !englnum2!  !blockn! !europnum!
)
echo.
goto :eof

:: countblocks num Ret-var
:countblocks
setlocal enableextensions
set anz=-1
:count1
set /a t2=-3-3*anz
set test=%~1
if %t2% neq 0 set test=!test:~0,%t2%!
if "%test%" neq "" (
  set test=!test:~-3!
  set /a anz+=1
  goto :count1
)
set result=%anz%
endlocal & set %2=%result%
goto :eof

:: block num block Ret-var
:block
setlocal enableextensions
set test=%~1
set /a t2=0-3*%2
if %2 neq 0 set test=!test:~0,%t2%!
if "%test%" neq "" (
  set test=!test:~-3!
  set test=   !test!
  set test=!test:~-3!
)
set result=%test%
endlocal & set %3=%result%
goto :eof

:: letterblock num Ret-var1 Ret-var2 Ret-var3 Ret-var4
:letterblock
setlocal enableextensions
set /a t1=3*%1
set "t1= * 10^^^^%t1%        "
set var1=%t1:~0,11%

if %1 equ 0 (set var2=" ") & (set var3=" ") & set var4=" "
if %1 equ 1 (set var2="thousand") & (set var3="thousand") & set var4="thousand"
if %1 equ 2 (set var2="million") & (set var3="million") & set var4="million"
if %1 equ 3 (set var2="billion") & (set var3="thousand million") & set var4="milliard"
if %1 equ 4 (set var2="trillion") & (set var3="billion") & set var4="billion"
if %1 equ 5 (set var2="quadrillion") & (set var3="thousand billion") & set var4="billiard"
if %1 equ 6 (set var2="quintillion") & (set var3="trillion") & set var4="trillion"
if %1 equ 7 (set var2="sextillion") & (set var3="thousand trillion") & set var4="trilliard"
if %1 equ 8 (set var2="septillion") & (set var3="quadrillion") & set var4="quadrillion"
if %1 equ 9 (set var2="octillion") & (set var3="thousand quadrillion") & set var4="quadrilliard"
if %1 equ 10 (set var2="nonillion") & (set var3="quintillion") & set var4="quintillion"
if %1 equ 11 (set var2="decillion") & (set var3="thousand quintillion") & set var4="quintilliard"

set "var2=%var2:"=%           "
set var2=%var2:~0,11%
set "var3=%var3:"=%                    "
set var3=%var3:~0,20%
set "var4=%var4:"=%            "
set var4=%var4:~0,12%

endlocal & (set %2=%var1%) & (set %3=%var2%) & (set %4=%var3%) & (set %5=%var4%)
goto :eof

Code: Select all

C:\Test2>test38b 123456789012345678901234567890123456

 number: 123456789012345678901234567890123456

count blocks: 11 + 1

       123 456 789 012 345 678 901 234 567 890 123 456

  123 * 10^33  123 decillion    123 thousand quintillion  123 quintilliard
  456 * 10^30  456 nonillion    456 quintillion           456 quintillion
  789 * 10^27  789 octillion    789 thousand quadrillion  789 quadrilliard
  012 * 10^24  012 septillion   012 quadrillion           012 quadrillion
  345 * 10^21  345 sextillion   345 thousand trillion     345 trilliard
  678 * 10^18  678 quintillion  678 trillion              678 trillion
  901 * 10^15  901 quadrillion  901 thousand billion      901 billiard
  234 * 10^12  234 trillion     234 billion               234 billion
  567 * 10^9   567 billion      567 thousand million      567 milliard
  890 * 10^6   890 million      890 million               890 million
  123 * 10^3   123 thousand     123 thousand              123 thousand
  456 * 10^0   456              456                       456

Code: Select all

@echo off
setlocal EnableDelayedExpansion

call :letterblock

:: number with max 36 digits without spaces, commas or points
if "%1" equ "" (set number=18446744073709551615) else set number=%~1
echo/
echo  number: %number%
echo/
set blocks=0
:countBlocks
   set block[%blocks%]=%number:~-3%
   set /A blocks+=1
   set number=%number:~0,-3%
if defined number goto countBlocks
set /A blocks-=1
set var=  !block[%blocks%]!
set block[%blocks%]=%var:~-3%
echo count blocks: %blocks% + 1
echo/
:: view number with spaces
set "line=       "
for /l %%n in (%blocks%,-1,0) do (
   set "line=!line!!block[%%n]! "
)
echo %line%
echo/
:: view number with letters
for /l %%n in (%blocks%,-1,0) do (
   echo   !block[%%n]!!potenz[%%n]!  !block[%%n]! !englnum1[%%n]!  !block[%%n]! !englnum2[%%n]!  !block[%%n]! !europnum[%%n]!
)
echo/
goto :eof

:letterblock
for /L %%i in (0,1,11) do (
   set /a t1=3*%%i
   set "t1= * 10^^!t1! "
   set potenz[%%i]=!t1:~0,8!
)
set i=0
for %%a in (" " thousand million billion trillion quadrillion quintillion sextillion septillion octillion nonillion decillion) do (
   set "var2=%%~a          "
   set englnum1[!i!]=!var2:~0,11!
   set /A i+=1
)
set i=0
for %%a in (" " thousand million "thousand million" billion "thousand billion" trillion "thousand trillion" quadrillion "thousand quadrillion" quintillion "thousand quintillion") do (
   set "var3=%%~a                    "
   set englnum2[!i!]=!var3:~0,20!
   set /A i+=1
)
set i=0
for %%a in (" " thousand million milliard billion billiard trillion trilliard quadrillion quadrilliard quintillion quintilliard) do (
   set "var4=%%~a           "
   set europnum[!i!]=!var4:~0,12!
   set /A i+=1
)
goto :eof

Code: Select all

d:\abc>a 12345678

 number: 12345678

Code: Select all

@echo off
setlocal EnableDelayedExpansion

rem Convert a number to equivalent words in English
rem Antonio Perez Ayala

rem Define words for numbers 1 to 20
set i=1
for %%a in (one    two    three    four     five    six     seven     eight    nine     ten
            eleven twelve thirteen fourteen fifteen sixteen seventeen eighteen nineteen twenty) do (
   set word[!i!]=%%a
   set /A i+=1
)

rem Define words for numbers 30 to 100 step 10
set i=30
for %%a in (thirty forty fifty sixty seventy eighty ninety hundred) do (
   set word[!i!]=%%a
   set /A i+=10
)

rem Define words for blocks of 3 digits by position (in US and Canada)
set i=1
for %%a in (thousand million billion trillion quadrillion quintillion sextillion septillion octillion nonillion decillion) do (
   set "block3[!i!]=%%a "
   set /A i+=1
)

if "%~1" neq "" (set number=%~1) else set number=0

rem Divide the number in blocks of 3 digits each
set blocks=-1
:nextBlock
   set /A blocks+=1
   set block[%blocks%]=%number:~-3%
   set number=%number:~0,-3%
if defined number goto nextBlock

rem Show the number as comma-separated 3-digits blocks
set result=
for /L %%i in (%blocks%,-1,0) do (
   set result=!result!!block[%%i]!,
)
echo %result:~0,-1%

rem Convert the number to words
set result=00!block[%blocks%]!
set block[%blocks%]=%result:~-3%
set result=
for /L %%i in (%blocks%,-1,0) do (
   call :ConvertBlock %%i
   if defined words3 set "result=!result!!words3!!block3[%%i]!"
)
if not defined result set "result=zero "

rem Capitalize the first word
set firstLetter=%result:~0,1%
for %%a in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) do set firstLetter=!firstLetter:%%a=%%a!
set result=%firstLetter%%result:~1,-1%
echo %result%

goto :EOF


:ConvertBlock index
set digits3=!block[%1]!
set digit1=%digits3:~0,1%
if %digits3:~1,1% neq 0 (set digits23=%digits3:~1%) else set digits23=%digits3:~2%
set words3=
if %digit1% neq 0 (
   rem Convert hundreds
   if %digit1% equ 1 (set words3=a hundred) else set words3=!word[%digit1%]! hundred
   rem Add "and" if there are tens/units
   if %digits23% neq 0 set words3=!words3! and
   set "words3=!words3! "
)
if %digits23% neq 0 (
   rem Convert tens and units
   if %digits23% geq 20 (
      rem Convert tens 90..20
      set words3=%words3%!word[%digits3:~1,1%0]!
      rem Convert the units, if any
      if %digits3:~2% neq 0 set words3=!words3!-!word[%digits3:~2%]!
   ) else (
      rem Convert tens/units 19..1
      set words3=%words3%!word[%digits23%]!
   )
   set "words3=!words3! "
)
exit /B

Code: Select all

C:\Users\Antonio\Documents
>NumToWords2 0
0
Zero

C:\Users\Antonio\Documents
>NumToWords2 1
1
One

C:\Users\Antonio\Documents
>NumToWords2 %max32bits%
2,147,483,647
Two billion a hundred and forty-seven million four hundred and eighty-three thou
sand six hundred and forty-seven

C:\Users\Antonio\Documents
>NumToWords2 123456789012345678901234567890123456
123,456,789,012,345,678,901,234,567,890,123,456
A hundred and twenty-three decillion four hundred and fifty-six nonillion seven
hundred and eighty-nine octillion twelve septillion three hundred and forty-five
 sextillion six hundred and seventy-eight quintillion nine hundred and one quadr
illion two hundred and thirty-four trillion five hundred and sixty-seven billion
 eight hundred and ninety million a hundred and twenty-three thousand four hundr
ed and fifty-six

Code: Select all

German language

I use "-" here only for a better overview. The word is writing without this sign.
When I write block number see this:
100,000,000,000,000
 4   3   2   1   0  block

number 0 = null

numbers 1 to 20
ein zwei  drei     vier     fünf     sechs    sieben   acht     neun     zehn
elf zwölf dreizehn vierzehn fünfzehn sechzehn siebzehn achtzehn neunzehn zwanzig

numbers 30 to 90 step 10
dreißig vierzig fünfzig sechzig siebzig achtzig neunzig

numbers 21 to 99 without the numbers ending with 0
First the number 1 to 9 by following "und" and then the number 20 to 90.

example number 21: ein-und-zwanzig
To understand in English words: one-and-twenty


numbers 100 to 999
x00 = number 1 to 9 following by "hundert"
xyy = number 1 to 9 following "hundert" and following by the other number

example number 153:
ein-hundert-drei-und-fünfzig


numbers 1,000 to 999,999
Between the two blocks write "tausend".

example number 14,742
vierzehn-tausend-sieben-hundert-zwei-und-vierzig


numbers equal or greater 1,000,000
Any block two and greater have a special word that beginn with a capital letter.

block 2 to 13
Million Milliarde Billion Billiarde Trillion Trilliarde Quadrillion Quadrilliarde Quintillion Quintilliarde Sextillion Sextilliarde

1,xxx,xxx = eine Million
2,xxx,xxx = zwei Millionen
2,500,000 = zwei Millionen fünf-hundert-tausend

Also the other words:
..llion    when 1
..llionen  when 2 up to 999; suffix -en marks the plural
..lliarde  when 1
..lliarden when 2 up to 999; suffix -n marks the plural

###

Hint to the number 1 in value.
1 = "ein", "eine" or "eins"

block 0
  1 = eins
 11 = elf
 x1 = ein-und-xxx
100 = ein-hundert
101 = ein-hundert-eins
111 = ein-hundert-elf
1x1 = ein-hundert-ein-und-xxx

block 1 differences to block 0
  1 = ein-tausend
 x1 = ein-und-xxx-tausend
101 = ein-hundert-ein-tausend

block 2 (and greater) differences to block 0
  1 = eine Million
 x1 = ein-und-xxx Millionen
101 = ein-hundert-ein Millionen

Code: Select all

===  France and Canada  ===

:: CP850 "é" (ALT+130) = CP1252 "‚" (ALT+0130)
0 = zéro

numbers 1 to 20
  1    2     3        4      5      6       7       8         9     10
 un  deux  trois   quatre  cinq    six    sept    huit      neuf    dix
onze douze treize quatorze quinze seize dix-sept dix-huit dix-neuf vingt


20 to 100 step 10
vingt trente quarante cinquante soixante --- quatre-vingt --- cent

60 to 79 will use as "60 + (1 to 19)"
80 to 99 will use as "80 + (1 to 19)"

Any numbers xy (with y not 0 or 1) are write as "xxx-yyy"
also number 70 = soixante-dix
also number 90 = quatre-vingt-dix
also number 91 = quatre-vingt-onze

Any numbers x1 (with x are 2, 3, 4, 5, 6, 8) are write as "xxx et un"
only number 71 = "soixante et onze"

Hint to number 80.
If 80 at the end of the double block (six digits) then write -s at the end of the word.
xxx,x80 = quatre-vingts
x80,xxx = quatre-vingt mille

x80,xxx,xxx = quatre-vingts millions
x80,xxx,xxx,xxx = "quatre-vingts milliards" but "quatre-vingt mille millions"


numbers 100 to 999
xy is a number of 1 up to 99
between the hundred and other number is one space

1xy = cent <space> xy
2xy = deux cents <space> xy
up to
9xy = neuf cents <space> xy


numbers 1000 to 999999
1000 = mille

  1,yyy = mille yyy
xxx,yyy = xxx mille yyy



numbers 1,000,000 and greater
yyy,zzz is a number 1 up to 999,999

  1,yyy,zzz =  un million  yyy mille zzz
xxx,yyy,zzz = xxx millions yyy mille zzz

  1,xxx,yyy,zzz =     mille     xxx millions yyy mille zzz
www,xxx,yyy,zzz = www mille     xxx millions yyy mille zzz
also
  1,xxx,yyy,zzz =  un milliard  xxx millions yyy mille zzz
www,xxx,yyy,zzz = www milliards xxx millions yyy mille zzz


France will use the long scale
1,000^1  = mille
1,000^2  = un million
1,000^3  = mille millions = un milliard
1,000^4  = un billion
1,000^5  = mille billions = un billiard


#####

===  Suisse  ===
70, 71, 72 ... = "septante", "septante et un", "septante-deux" ...
80, 81, 82 ... = "huitante", "huitante et un", "huitante-deux" ...
and also
80, 81, 82 ... = "quatre-vints", "quatre-vint-un", "quatre-vint-deux" ...
90, 91, 92 ... = "nonante", "nonante et un", "nonante-deux" ...

===  Belgium  ===
70, 71, 72 ... = "septante", "septante et un", "septante-deux" ...
80, 81, 82 ... = "quatre-vints", "quatre-vint-un", "quatre-vint-deux" ...
90, 91, 92 ... = "nonante", "nonante et un", "nonante-deux" ...

Code: Select all

@echo off
setlocal EnableExtensions EnableDelayedExpansion
set scale=short
if "%1" equ "" (
  echo.
  echo    %0 [/country=GER^|US^|FR] [/scale=short^|long] xxx
  echo.
  echo       /country   select specifical settings of informations
  echo       /scale     short - use only million, billion, trillion, ...
  echo                  long  - use million, milliard, billion, billiard, ...
  echo       xxx        number of the block for the searching result
  echo                       block number 2 = million
  echo                       block number 3 = billion or milliard
  echo                       block number 4 = trillion or billion
  echo                  use min 2 up to max value
  echo                  if '/scale=short' use max 1 000 000
  echo                  if '/scale=long' use max 1 999 999
  echo.
  goto :eof
)
:again
if /i "%1" equ "/country" (set land=%2) & shift & shift
if /i "%1" equ "/scale" (set scale=%2) & shift & shift & goto :again
if "%1" neq "" (set completenumber=%1) & shift & if "%1" neq "" goto :again
::
:: possible in this time for variable land are: GER, US, FR
if not defined land set land=US
::
::
:: numbers 1 to 9 not combination prefix
set i=1
for %%a in (mi bi tri quadri quinti sexti septi octi noni) do (
  set blockSolo[!i!]=%%a
  set /a i+=1
)
:: numbers 1 to 9 with combination prefix
set i=1
for %%a in (un duo tre quattuor quinqua se septe octo nove) do (
  set blockComb1[!i!]=%%a
  set /a i+=1
)
:: numbers 10 to 90 step 10 with combination prefix
set i=1
for %%a in (deci viginti triginta quadraginta quinquaginta sexaginta septuaginta octoginta nonaginta) do (
  set blockComb2[!i!]=%%a
  set /a i+=1
)
:: numbers 100 to 900 step 100 with combination prefix
set i=1
for %%a in (centi ducenti trecenti quadringenti quingenti sescenti septingenti octingenti nongenti) do (
  set blockComb3[!i!]=%%a
  set /a i+=1
)


:: change names to the other language
if /i %land% equ GER (
  set blockSolo[8]=okti
  set blockComb1[8]=okto
  set blockComb2[1]=dezi
  set blockComb2[8]=oktoginta
  set blockComb3[1]=zenti
  set blockComb3[2]=duzenti
  set blockComb3[3]=trezenti
  set blockComb3[6]=seszenti
  set blockComb3[8]=oktingenti
)

:: CP850 "é" (ALT+130) = CP1252 "‚" (ALT+0130)
if /i %land% equ FR (
  set blockComb2[1]=d‚ci
)
::
::
:: change the value from short scale to long scale
set gesblock=%completenumber%
set /a tsdnum="gesblock & 1"
if /i %scale% equ long (set /a gesblock=gesblock / 2) else set /a gesblock-=1
if %gesblock% geq 1000 (set /a number=gesblock / 1000) & goto :firstround

:secondround
set /a number="gesblock %% 1000", gesblock=-gesblock
(set "res1=") & (set "res2=") & set "res3="

:firstround
::
:: number is coming as parameter (1 to 999)
::
set /a number=1000%number%, number="number %% 1000"
set /a num1="number %% 10", num2="number %% 100" /10, num3=number /100

set res1=!blockComb1[%num1%]!
set res2=!blockComb2[%num2%]!
set res3=!blockComb3[%num3%]!

if %number% lss 10 (set res1=!blockSolo[%number%]!) & goto :display

:: change the number 5 from "quinqua" to "quin"
:: GER only x15    #    US only 0x5    #    x is any digit at the position
if /i %land% equ GER if %num2%%num1% equ 15 set res1=quin
if /i %land% equ US  if %num3%%num2%%num1% equ 0%num2%5 set res1=quin

:: insert letters "n", "m", "s" and "x"
for %%a in (17 19 37 39 47 49 57 59 67 69 77 79
    107 109 207 209 307 309 407 409 507 509 607 609 707 709) do if %number% equ %%a set res1=%res1%n

for %%a in (27 29 87 89 807 809) do if %number% equ %%a set res1=%res1%m

for %%a in (23 26 33 36 43 46 53 56 83 103 803
    303 306 403 406 503 506) do if %number% equ %%a set res1=%res1%s

for %%a in (86 106 806) do if %number% equ %%a set res1=%res1%x

:: numbers less 100 change last letter from "a" to "i"
if %number% lss 100 if %num2% gtr 2 set res2=%res2:~0,-1%i

:display
:: any following variable RESULT and SUFFIX will make the big number name
set result=%result%%res1%%res2%%res3%
if %gesblock% geq 1000 (set result=%result%lli) & goto :secondround
if %number% equ 0 set result=%result%ni

if %tsdnum%%scale% equ 1long (
  set suffix=lliard
  if /i %land% equ GER set suffix=!suffix!e
) else set suffix=llion
set result=%result%%suffix%

if /i %land% equ GER (
rem Capitalize the first word
  set firstLetter=!result:~0,1!
  for %%a in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) do set firstLetter=!firstLetter:%%a=%%a!
  set result=!firstLetter!!result:~1!
)

if %completenumber% leq 1 (
  echo     Error: Use a higher number. Start without parameter.
) else if %gesblock% leq -1000000 (
  echo     Error: Use a less number. Start without parameter.
) else echo  %completenumber%  %result%

Code: Select all

C:\Test2>for /l %a in (2,1,11) do @Test40Z /country=GER /scale=long %a
 2  Million
 3  Milliarde
 4  Billion
 5  Billiarde
 6  Trillion
 7  Trilliarde
 8  Quadrillion
 9  Quadrilliarde
 10  Quintillion
 11  Quintilliarde

C:\Test2>for /l %a in (2,1,11) do @Test40Z /country=us /scale=short %a
 2  million
 3  billion
 4  trillion
 5  quadrillion
 6  quintillion
 7  sextillion
 8  septillion
 9  octillion
 10  nonillion
 11  decillion

C:\Test2>Test40Z /country=fr /scale=long 31
 31  quinquadécilliard

Code: Select all

@echo off
setlocal EnableExtensions EnableDelayedExpansion

rem Convert a number to equivalent words in French language
rem Basic batch file from Antonio Perez Ayala
rem Changes from Robert Staatz

rem Use "/FILE" as parameter for correct spelling in a file 
if /i "%1" equ "/file" ( (set screenfile=FILE) & shift) else if /i "%2" equ "/file" set screenfile=FILE

rem Defining the region to numbers from 70 to 99
rem region FR    - France and Canada:  70 = soixante-dix  #  80 = quatre-vingts  #  90 = quatre-vingt-dix
rem region FR_BE - Belgium          :  70 = septante      #  80 = quatre-vingts  #  90 = nonante
rem region FR_CH - Switzerland      :  70 = septante      #  80 = huitante       #  90 = nonante
set "region=FR"

rem Define words for numbers 1 to 20
set i=1
for %%a in (un   deux  trois  quatre   cinq   six   sept     huit     neuf     dix
            onze douze treize quatorze quinze seize dix-sept dix-huit dix-neuf vingt) do (
   set word[!i!]=%%a
   set /A i+=1
)

rem Define words for numbers 30 to 100 step 10
set i=30
for %%a in (trente quarante cinquante soixante soixante-dix quatre-vingt quatre-vingt-dix cent) do (
   set word[!i!]=%%a
   set /A i+=10
)
if /i %region% equ FR_BE (set word[70]=septante) & (set word[90]=nonante)
if /i %region% equ FR_CH (set word[70]=septante) & (set word[80]=huitante) & (set word[90]=nonante)

rem Define words for blocks of 3 digits by position (in France)
set i=1
for %%a in (mille million milliard billion billiard trillion trilliard quadrillion quadrilliard quintillion quintrilliard) do (
   set "block3[!i!]=%%a "
   set /A i+=1
)

rem Define word for number 0 for correct display on the screen or in the file
rem zéro  #  screen display CP850 "é" (ALT+130) = file CP1252 "‚" (ALT+0130)
rem zéro  #  screen display CP850 "ú" (ALT+233) = file CP1252 "é" (ALT+130)
if defined screenfile (set word[0]=zéro) else set word[0]=z‚ro

if "%~1" neq "" (set number=%~1) else set number=0

rem Divide the number in blocks of 3 digits each
set blocks=-1
:nextBlock
   set /A blocks+=1
   set block[%blocks%]=%number:~-3%
   set number=%number:~0,-3%
if defined number goto nextBlock

rem Show the number as space-separated 3-digits blocks
set result=
for /L %%i in (%blocks%,-1,0) do (
   set "result=!result!!block[%%i]! "
)
echo %result:~0,-1%

rem Convert the number to words
set result=00!block[%blocks%]!
set block[%blocks%]=%result:~-3%
set result=
for /L %%i in (%blocks%,-1,0) do (
   call :ConvertBlock %%i
   if defined words3 (
      set "result=!result!!words3!!block3[%%i]!"
      if %%i geq 2 if "!words3!" neq "!word[1]! " set "result=!result:~0,-1!s "
   )
)
if not defined result set "result=!word[0]! "

rem Capitalize the first word
set firstLetter=%result:~0,1%
for %%a in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) do set firstLetter=!firstLetter:%%a=%%a!
set result=%firstLetter%%result:~1,-1%
echo %result%

goto :EOF


:ConvertBlock index
set digits3=!block[%1]!
set digit1=%digits3:~0,1%
if %digits3:~1,1% neq 0 (set digits23=%digits3:~1%) else set digits23=%digits3:~2%
set words3=
if %digit1% neq 0 (
   rem Convert hundreds
   set words3=!word[%digit1%]! !word[100]!
   if %digit1% neq 1 set words3=!words3!s
   rem if %digit1% equ 1 (set words3=un cent) else set words3=!word[%digit1%]! cents
   set "words3=!words3! "
)
if %digits23% neq 0 (
   rem Convert tens and units
   if %digits23% geq 20 (
      rem Convert tens 90..20
      set words2=!word[%digits3:~1,1%0]!
      rem Convert the units, if any
      if %digits3:~2% neq 0 set words1=-!word[%digits3:~2%]!

      rem Only when the unit is 1 will change
      if %digits3:~2% equ 1 set words1= et un
      if %digits23%%region% equ 71FR    set words1= et onze
      if %digits23%%region% equ 91FR    set words1=-onze
      if %digits23%%region% equ 81FR    set words1=-un
      if %digits23%%region% equ 81FR_BE set words1=-un

      rem Only the 80 need the suffix "-s", but not when "mille" follows
      if %digits23%%region% equ 80FR    if not %1 equ 1 set words2=!words2!s
      if %digits23%%region% equ 80FR_BE if not %1 equ 1 set words2=!words2!s

      rem Numbers 70+x are understand as 60+(10+x) and also numbers 90+x as 80+(10+x)
      set "hnum="
      if %digits3:~1,1%%region% equ 7FR (
         set /a hnum=digits23 - 60
         set words2=!word[60]!
      )
      if %digits3:~1,1%%region% equ 9FR (
         set /a hnum=digits23 - 80
         set words2=!word[80]!
      )
      if !hnum!%region% equ 10FR set words1=-!word[10]!
      if !hnum!%region% equ 12FR set words1=-!word[12]!
      if !hnum!%region% equ 13FR set words1=-!word[13]!
      if !hnum!%region% equ 14FR set words1=-!word[14]!
      if !hnum!%region% equ 15FR set words1=-!word[15]!
      if !hnum!%region% equ 16FR set words1=-!word[16]!
      if !hnum!%region% equ 17FR set words1=-!word[17]!
      if !hnum!%region% equ 18FR set words1=-!word[18]!
      if !hnum!%region% equ 19FR set words1=-!word[19]!

      set words3=%words3%!words2!!words1!
   ) else (
      rem Convert tens/units 19..1
      set words3=%words3%!word[%digits23%]!
   )
   set "words3=!words3! "
)
exit /B