Imports System

Imports Microsoft.VisualBasic

​

Public Module Module1

​

    Private sText As String = "First-Simon, Second-Phillips"

​

    Public Sub Main()

        BIF_FullName()

        BIF_FullName_v2()

    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-", "")

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

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

        DisplayString("Removing first and second")

        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, 7)

        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("Fullname-")

        DisplayString(sNewText)

        'Print Just First Initial

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

    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-", "")

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

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

        DisplayString("Removing first and second")

        DisplayString(s)

    'how do we get first and second names by themselves

    End Sub

End Module

​