vb.netは、文章中の位置に基づいてテキストボックスに単語をコピーします。

Question

私は文章をコピーしたテキストボックス（tInto1）を持っています。私はそれらの位置に基づいて単語をコピーする10のテキストボックスを持っています（つまり、1ワード目がtextbox1に、2ワード目がtextbox2に、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

あなたのテキストボックスは、数で命名されている場合、あなたはこのような何かを試すことができますが：

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