ビジュアルベーシックの部分文字列化の方法

Question

こんにちは私はユーザーにフルネームを入力させ、その入力を文字列として受け取ります。だから私の必要性のために姓を削除するために部分文字列を使用しようとしているが、私はそれを正しく行うように見える。これは、実際に必要な出力は、従業員の姓が初期

スペースと従業員のファーストネームが続くと私はそれを得るように見えるカント::である私のコード

Dim name As String = TextBox1.Text 
    Dim findSpace As String 
    Dim begin As Integer = 0 
    Dim temp As Integer = 0 

    Do Until (findSpace = " ") 

     temp = (begin + 1) 
     findSpace = (name.Substring(begin, temp)) 

     begin = begin + 1 
    Loop 

    Dim surname As String = name.Substring(begin, name.Length - 1) 
    Dim initial As String = name.Substring(0, 1) 

    ListBox1.Items.Add(surname + initial) 

です。 何か助けがあまりにも意味があります ありがとう

Answer 1

この場合、ループが必要であるかどうか不明です！

Dim name As String = TextBox1.Text 
Dim nameArray as String() = name.split(" ") 
Dim fullName as string = nameArray(1) & " " & nameArray(0).Substring(0,1) 

ListBox1.Items.Add(fullName) 

ジョン・スミスSmith J