Dx21 - UDC

Select Language: | |

Class clsNATOPhoneticAlphabet
'////////////////////////////////////////////////////
'NATO Phonetic Alphabet Class
'File Name: clsNATOPhoneticAlphabet
'Script Version: 1.0.0
'Last Edit: 05/23/2008
'Developer: Dx21, LLC
'////////////////////////////////////////////////////

	Private objNATOa, objNATOn
	
	Private Sub Class_Initialize()
		Set objNATOa = CreateObject("Scripting.Dictionary")
		Set objNATOn = CreateObject("Scripting.Dictionary")
		
		With objNATOa
			.add "a", "Alpha"
			.add "b", "Bravo"
			.add "c", "Charlie"
			.add "d", "Delta"
			.add "e", "Echo"
			.add "f", "Foxtrot"
			.add "g", "Golf"
			.add "h", "Hotel"
			.add "i", "India"
			.add "j", "Juliet"
			.add "k", "Kilo"
			.add "l", "Lima"
			.add "m", "Mike"
			.add "n", "November"
			.add "o", "Oscar"
			.add "p", "Papa"
			.add "q", "Quebec"
			.add "r", "Romeo"
			.add "s", "Sierra"
			.add "t", "Tango"
			.add "u", "Uniform"
			.add "v", "Victor"
			.add "w", "Whiskey"
			.add "x", "X-ray"
			.add "y", "Yankee"
			.add "z", "Zulu"
		End With
		
		With objNATOn
			.add "0", "Zero"
			.add "1", "Wun"
			.add "2", "Too"
			.add "3", "Tree"
			.add "4", "Fower"
			.add "5", "Fife"
			.add "6", "Six"
			.add "7", "Seven"
			.add "8", "Ait"
			.add "9", "Niner"
		End With
	End Sub
	
	Private Sub Class_Terminate()
		On Error Resume Next
		
		Set objNATOa = Nothing
		Set objNATOn = Nothing
	End Sub
	
	Public Function ConvertText(strText, bIncludeNumbers)
		Dim Index, strWorking, strChar
		
		For Index = 1 To LEN(strText)
			strChar = lcase(Mid(strText, Index, 1))
			
			If AscW(strChar) >= 97 And AscW(strChar) <=122 Then
				If objNATOa.Exists(strChar) Then
					strChar = objNATOa.Item(strChar)
				End If
			Else
				If bIncludeNumbers = True Then
					If AscW(LCase(strChar)) >= 48 And AscW(LCase(strChar)) <= 57 Then
						If objNATOn.Exists(strChar) Then
							strChar = objNATOn.Item(strChar)
						End If
					End If
				End If
			End If	
			
			strWorking = strWorking & " " & strChar
		Next
		
		ConvertText = Trim(strWorking	)
	End Function
	
'////////////////////////////////////////////////////
'Copyright 2008 Dx21, LLC
'	a Washingtion Limited Liability Company
'	All Rights Reserved
'
'Use of this script is subject to the terms and conditions
'as listed in our public Copyright and Disclamer statments.
'Those statements must be agreed to prior to use of this
'script:
'
'http://www.dx21.com/home/tos/tos.asp
'////////////////////////////////////////////////////
	
End Class

'////////////////////////////////////////////////////
'NATO Phonetic Alphabet Class
'File Name: clsNATOPhoneticAlphabet
'Script Version: 1.0.0
'Last Edit: 05/23/2008
'Developer: Dx21, LLC
'////////////////////////////////////////////////////

Public Class clsNATOPhoneticAlphabet
    Private objNATOa, objNATOn As New Dictionary(Of String, String)


    Public Sub New()
        With objNATOa
            .Add("a", "Alpha")
            .Add("b", "Bravo")
            .Add("c", "Charlie")
            .Add("d", "Delta")
            .Add("e", "Echo")
            .Add("f", "Foxtrot")
            .Add("g", "Golf")
            .Add("h", "Hotel")
            .Add("i", "India")
            .Add("j", "Juliet")
            .Add("k", "Kilo")
            .Add("l", "Lima")
            .Add("m", "Mike")
            .Add("n", "November")
            .Add("o", "Oscar")
            .Add("p", "Papa")
            .Add("q", "Quebec")
            .Add("r", "Romeo")
            .Add("s", "Sierra")
            .Add("t", "Tango")
            .Add("u", "Uniform")
            .Add("v", "Victor")
            .Add("w", "Whiskey")
            .Add("x", "X-ray")
            .Add("y", "Yankee")
            .Add("z", "Zulu")
        End With

        With objNATOn
            .Add("0", "Zero")
            .Add("1", "Wun")
            .Add("2", "Too")
            .Add("3", "Tree")
            .Add("4", "Fower")
            .Add("5", "Fife")
            .Add("6", "Six")
            .Add("7", "Seven")
            .Add("8", "Ait")
            .Add("9", "Niner")
        End With
    End Sub

    Protected Overrides Sub Finalize()
        MyBase.Finalize()

        objNATOa.Clear()
        objNATOn.Clear()
    End Sub

    Public Function ConvertText(ByVal strText As String, Optional ByVal bIncludeNumbers As Boolean = False) As String
        Dim strWorking, strChar As String
        Dim Index As Integer

        For Index = 1 To Len(strText)
            strChar = LCase(Mid(strText, Index, 1))

            If AscW(strChar) >= 97 And AscW(strChar) <= 122 Then
                If objNATOa.ContainsKey(strChar) Then
                    strChar = objNATOa.Item(strChar)
                End If
            Else
                If bIncludeNumbers = True Then
                    If AscW(LCase(strChar)) >= 48 And AscW(LCase(strChar)) <= 57 Then
                        If objNATOn.ContainsKey(strChar) Then
                            strChar = objNATOn.Item(strChar)
                        End If
                    End If
                End If
            End If

            strWorking &= " " & strChar
        Next

        Return Trim(strWorking)
    End Function
End Class

'////////////////////////////////////////////////////
'Copyright 2008 Dx21, LLC
'	a Washingtion Limited Liability Company
'	All Rights Reserved
'
'Use of this script is subject to the terms and conditions
'as listed in our public Copyright and Disclamer statments.
'Those statements must be agreed to prior to use of this
'script:
'
'http://www.dx21.com/home/tos/tos.asp
'////////////////////////////////////////////////////

	FAQs \| Terms Of Use \| Privacy Policy \| Contact Us
	Copyright © 1997 - 2010 Dx21, LLC. All rights reserved. Dx21, LLC a Washington Limited Liability Company Page Rendered at: 9/9/2010 11:50:38 AM for Unknown

User Defined Class Library