Imports System

Imports System.Data

​

Public Module Module1

​

    Public Sub Main()

        dim dt as Datatable = new DataTable()

        dt.Columns.Add("NAMECTAC", GetType(String))

        dt.Rows.Add("abc def")

        dt.Rows.Add("qwe asdas")

        dt.Columns.Add("NAMECTACFirst", GetType(String))

        dt.Columns.Add("NAMECTACLast", GetType(String))

        For Each dr As DataRow In dt.Rows

            Dim fullName As String = dr("NAMECTAC").ToString()

            Dim names() As String = Cus_SplitFullNameIntoNameAndLastname(fullName)

            Dim firstName As String = names(0)

            Dim lastName As String = names(1)

            dr("NAMECTACFirst") = firstName

            dr("NAMECTACLast") = lastName

        Next

​

        For Each dr As DataRow In dt.Rows

            Console.WriteLine(dr("NAMECTAC"))

            Console.WriteLine(dr("NAMECTACFirst"))

            Console.WriteLine(dr("NAMECTACLast"))

        Next

dt.AcceptChanges()

​

        Console.WriteLine("Hello World")

    End Sub

​

    Private Function Cus_SplitFullNameIntoNameAndLastname(ByVal pFullName As String) As String()

        Dim NameSurname(2) As String

        Dim NameSurnameTemp() As String = pFullName.Split(" ")

        If NameSurnameTemp.Length = 0 Then

            NameSurname(0) = ""

            NameSurname(1) = ""

        ElseIf NameSurnameTemp.Length = 1 Then

            NameSurname(0) = NameSurnameTemp(0)

            NameSurname(1) = ""

        Else

            For i = 0 To NameSurnameTemp.Length - 1

                If i < NameSurnameTemp.Length - 1 Then

                    If Not String.IsNullOrEmpty(NameSurname(0)) Then

                        NameSurname(0) += " " + NameSurnameTemp(i)

                    Else

                        NameSurname(0) += NameSurnameTemp(i)

                    End If

                Else

                    NameSurname(1) = NameSurnameTemp(i)

                End If

            Next

        End If

​

        Return NameSurname

    End Function

End Module

​