|
Option Explicit
Dim mphoneShort
Dim primaryKey, alternateKey
Dim word
word = "nelson"
Set mphoneShort = CreateObject("MetaphoneCOM.DoubleMetaphoneShort")
mphoneShort.ComputeMetaphoneKeysScr word, primaryKey, alternateKey
WScript.Echo "Keys: " & primaryKey & " " & alternateKey
|
By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.
If a file you wish to view isn't highlighted, and is a text file (not binary), please
let us know and we'll add colourisation support for it.
My name is Adam Nelson. I've been a professional programmer since 1996, working on everything from database development, early first-generation web applications, modern n-tier distributed apps, high-performance wireless security tools, to my last job as a Senior Consultant at BearingPoint posted in Baghdad, Iraq training Iraqi developers in the wonders of C# and ASP.NET. I am currently an Engineering Director at Dell.
I have a wide range of skills and interests, including cryptography, image processing, computational linguistics, military history, 3D graphics, database optimization, and mathematics, to name a few.