vb.net копировать слово в текстовые поля на основе их позиции в предложении

Question

У меня есть текстовое поле (tInto1), в которое я скопировал предложение. У меня есть 10 текстовых полей для копирования слов в соответствии с их позицией (это одно слово переходит в текстовое поле 1, второе слово переходит в текстовое поле2, 3-е в текстовое поле 3, пока последнее слово не будет скопировано в последнее текстовое поле). Код ниже дает мне количество слов в предложении, но не слово, основанное на его позиции.

`Dim miLine As String 
Dim i As Integer 
Dim MiArray() As String 
miLine = tInto1.Text 
MiArray = DisLine.Split(" ") 

For i = 0 To UBound(MiArray) 
     if i=0 then 
     txtbox1.text = i 

     elseif i=2 then 
     textbox2.text = i 

     elseif i=3 then 
     textbox3 = i 
     . 
     . 
     . 'for the other 6 elseif statements. 
     else 
     textbox10 = i 
Next` 

Помощь будет принята с благодарностью.

Answer 1

Если Textboxes названы по номеру, вы можете попробовать что-то вроде этого:

Private Sub Btn_SplitToTextBoxes_Click(sender As Object, e As EventArgs) Handles Btn_SplitToTextBoxes.Click 
    Dim Sentence As String = "This is a Test sentence" 
    Dim Words() As String = Sentence.Split(CChar(" ")) 
    'You need to set a limit to operate only on TextBoxes 1 to 10 
    Dim Limit As Integer = If(Words.Count <= 10, Words.Count -1, 9) 
    For i As Integer = 0 To Limit 
     Try 
      Me.Controls("TextBox" & (i + 1).ToString).Text = Words(i) 
     Catch ex As Exception 
      MessageBox.Show("Error while inserting text into 'TextBox" & (i + 1).ToString & "'", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) 
      Exit For 
     End Try 
    Next 
End Sub