Module Module1

​

    Private sText As String = "First name: Abdul, Second name:Sharif"

​

    Sub Main()

        BIF_FullName()

        'BIF_FullName_v2()

        Console.ReadLine()

​

    End Sub

​

    Public Sub DisplayString(sStringToDisplay As String)

        Console.WriteLine("Result: {0}", sStringToDisplay)

    End Sub

​

    Public Sub BIF_FullNamev3()

        'code below same as v2

        'add to the code to separate the fist and second names

        'fist method - find where the sapce is and take the left and right characters

​

​

        '2nd method use the split method to create a 2 item array

        'start with: Dim sNames () as string    = Split(............)

​

        'we want to remove "First-" , the "," and "Second-"

        'first method - we take the bits we want

        'remove the left charcters - "First-" using Mid

        Dim s As String

        'remove unwanted words by replacing with a blank string

        s = sText.Replace("First name:", "")

        s = s.Replace("Second name:", "")

        s = s.Replace(",", "")

        DisplayString("Removing first name and second name")

        DisplayString(s)

        'how do we get first and second names by themselves

    End Sub

​

​

    Public Sub BIF_FullName()

        'we want to remove "First-" , the "," and "Second-"

        'first method - we take the bits we want

        'remove the left charcters - "First:" using Mid

        Dim s1 As String = Mid(sText, 11)

        DisplayString(s1)

        'Find where the next ":" is

        Dim nPos As Integer = InStr(s1, ":")

        'we want everything to the riht of the ":"

        Dim s2 As String = Mid(s1, nPos + 1)

        DisplayString(s2)

        'Find the first Comma in s1

        'nPos = InStr(s1, ",")

        's1 = Left(s1, nPos - 1)

        'or all on one line

        s1 = Left(s1, InStr(s1, ":") - 1)

        'Now Print the full name

        Dim sNewText As String

        sNewText = s1 & " " & s2

        'DisplayString("Sharif, Abdul")

        DisplayString(sNewText)

        'Print Just First Initial

        sNewText = Left(s1, 1) & " " & s2

        DisplayString(sNewText)

    End Sub

​

    Public Sub BIF_FullName_v2()

        'we want to remove "First-" , the "," and "Second-"

        'first method - we take the bits we want

        'remove the left charcters - "First-" using Mid

        Dim s As String

        'remove unwanted words by replacing with a blank string

        s = sText.Replace("First name:", "")

        s = s.Replace("Second name:", "")

        s = s.Replace(",", "")

        DisplayString(sText)

        DisplayString(s)

        'how do we get first and second names by themselves

    End Sub

​

End Module

​