Number Speller COM-ponent

Adrian Dorache

Rate me:

4.60/5 (6 votes)

18 Feb 2009CPOL1 min read

Component used to convert a numeric value into English/Romanian words in Excel

The original article: COM Number Speller.

Introduction

Some time ago, I needed to print numbers as text in Excel (Office 2003 as far as I remember). Searching the internet, I found a solution for English language, but not for Romanian language.

So, I created a reusable piece of code that may be easily used in as many environments as possible. I chose COM and ATL to be the solution to this problem. This is also a good programming exercise for my rusty COM / C++ skills and I plan to use it as a template for all my future COM objects.

Using the Code

To install the COM object, just simply run Install.bat in NumberSpeller.zip archive.
Here is the Excel macro that makes use of the NumberSpeller COM object:

VBScript

Function Spell(n As Currency) As String
'Create the speller object.
Dim s As NumberSpellerLib.speller
Set s = New NumberSpellerLib.speller

Dim o As Object
Set o = s
o.Language = "ro"
Spell = o.Translate(n)
End Function

Here is another example of using the component from WSH script:

JavaScript

// Create the speller object.
var speller = new ActiveXObject("NumberSpeller.Speller");

// Set Romanian language
speller.language = "en";

////////////////////////////////////////////
// Modify the  number constant below.
var numberToTranslate = 101001;

// Translate number to text.
try
{
    var textNumber = speller.Translate(numberToTranslate);
    WScript.Echo(textNumber);
}
catch (e)
{
    // Display details about any thrown exceptions.
    WScript.Echo(e.name + ": " + e.description + "  " + e.number);
}

Points of Interest

Error info support by implementing IErrorInfo interface.
Help in CHM format and context identifiers specified in MIDL source file.
BSTR manipulation using CComBSTR class provided by ATL.
IDispatch support, so the component can be used from scripting environments.
Spelling implementation itself and support for multiple languages (only Romanian and English for now).

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Written By

Adrian Dorache

Software Developer (Senior) Codecentrix Software

Romania

Software consultant in Bucharest Romania writing Windows programs and browsers plug-ins since 1998 with Visual C++.

#include "stringstream" //preview is stripping the angle brackets... doh. string MonetaryText(unsigned int amount); void NumToStr(stringstream &buf, unsigned int num); const char* const NUMBERS_UP_TO_20[] = { "", "ONE", "TWO", "THREE", "FOUR", "FIVE", "SIX", "SEVEN", "EIGHT", "NINE", "TEN", "ELEVEN", "TWELVE", "THIRTEEN", "FOURTEEN", "FIFTEEN", "SIXTEEN", "SEVENTEEN", "EIGHTEEN", "NINETEEN" }; const char* const NUMBERS_MULTIPLE_OF_10[] = { "TWENTY", "THIRTY", "FORTY", "FIFTY", "SIXTY", "SEVENTY", "EIGHTY", "NINETY" }; string MonetaryText(unsigned int amount) { stringstream retBuf; unsigned int cents = amount % 100; unsigned int dollars = amount / 100; if(dollars > 0) { NumToStr(retBuf, dollars); retBuf << " DOLLAR"; if(dollars > 1) retBuf << "S"; } else retBuf << "ZERO DOLLARS"; retBuf << " AND"; if(cents > 0) { NumToStr(retBuf, cents); retBuf << " CENT"; if(cents > 1) retBuf << "S"; } else retBuf << " NO CENTS"; return retBuf.str(); } void NumToStr(stringstream &buf, unsigned int num) { if(num < 20) { if(buf.tellp() > 0 && num != 0) buf << " "; buf << NUMBERS_UP_TO_20[num]; return; } unsigned int tmpNum = num / 1000000000; if(tmpNum > 0) { NumToStr(buf, tmpNum); buf << " BILLION"; num %= 1000000000; } tmpNum = num / 1000000; if(tmpNum > 0) { NumToStr(buf, tmpNum); buf << " MILLION"; num %= 1000000; } tmpNum = num / 1000; if(tmpNum > 0) { NumToStr(buf, tmpNum); buf << " THOUSAND"; num %= 1000; } tmpNum = num / 100; if(tmpNum > 0) { NumToStr(buf, tmpNum); buf << " HUNDRED"; num %= 100; } if(num < 20) NumToStr(buf, num); else { tmpNum = num / 10; if(tmpNum > 0) { if(buf.tellp() > 0) buf << " "; buf << NUMBERS_MULTIPLE_OF_10[tmpNum - 2]; num %= 10; } tmpNum = num; if(tmpNum > 0) NumToStr(buf, tmpNum); } }

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

Tagged as

Stats

Number Speller COM-ponent

Introduction

Using the Code

Points of Interest

License

Comments and Discussions