' Class WjEmailDisplayNameBuilderY2008M03D25 [2008-03-25-PM-09-00-37]

' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -
'     Class WjEmailDisplayNameBuilderY2008M03D25
'     Class WjEmailDisplayNameBuilderY2008M03D25 [2008-03-25-PM-09-00-37]
'     Version: 1.00.01
'     Last Updated: (2008 03 25 PM 08 29 52)
' -   -   -   -   -   -   -   -   -   -   -   -   -
' -   -   -   -   -   -   -   -   -   -   -   -   -

Public Class WjEmailDisplayNameBuilderY2008M03D25

    Private m_EmailAddressGivenByUser As String
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Public Sub New(ByVal AnyEmailAddress As String)
        ' Ok
        Me.m_EmailAddressGivenByUser = AnyEmailAddress
    End Sub
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    Public Function GetEmailDisplayName(Optional ByVal flagIsDebugging As Boolean = False) As String
        ' (本段程式之目的) Purpose:
        '     Explanation
        '     Teacher.WeiJin.Tang@gmail.com
        '     Teacher_WeiJin_Tang_at_gmail_com
        '
        ' (本段程式是否已經在被使用中) In use: Yes
        ' (重要等級) Importance rating:  60%
        ' (再利用的可能性) Chances of reuse:  40%
        ' (程式撰寫的進度) Developing: 100% (Mandatory)
        ' (程式堪用的程度) Workable: 80% (Threshold at 80%)
        ' (程式的測試程度) Code tested: 80% (max 99%)
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
        ' (修改程式的日期) Revision Date: (2008 03 25 PM 08 24 53)
        ' (修改程式的人員) Revised by: WeiJin Tang (湯偉晉)
        '     OK
        '     Version: 1.00.02
        '     Last Updated: (2008 03 25 PM 08 43 13)
        '     Version: 1.00.01
        '     Last Updated: (2008 03 25 PM 08 42 24)
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

        Dim myAtChar As String = "@"
        Dim T As String
        T = Me.m_EmailAddressGivenByUser

        ' Begin_[2008_03_25_PM_08_29_09]
        ' Comments by WeiJin Tang (湯偉晉) :
        '   Check to see if a "@" char does exist
        '  
        If T.IndexOf(myAtChar) > 0 Then
            T = T.Replace(myAtChar, "_at_")
            T = T.Replace(".", "_")

            If flagIsDebugging Then
                Return Me.m_EmailAddressGivenByUser & vbNewLine & T & vbNewLine
            Else
                Return T
            End If
        Else
            ' The email address given by user is not a valid email address
            Return ""
        End If
        '  
        ' End_[2008_03_25_PM_08_29_09]

    End Function ' GetEmailDisplayName
    ' -   -   -   -   -   -   -   -   -   -   -   -   -
    ' -   -   -   -   -   -   -   -   -   -   -   -   -

End Class ' WjEmailDisplayNameBuilderY2008M03D25