たとえば、これらがRichTextBoxの行である場合、vb.netのrichtextboxのさまざまな行を読み取って変換する方法を知りたい:
Hello
Hi
次のようなものに変換するにはどうすればよいですか。
Yo(Hello)
Yo(Hi)
結果を2番目のリッチテキストボックスに入れますか?
たとえば、これらがRichTextBoxの行である場合、vb.netのrichtextboxのさまざまな行を読み取って変換する方法を知りたい:
Hello
Hi
次のようなものに変換するにはどうすればよいですか。
Yo(Hello)
Yo(Hi)
結果を2番目のリッチテキストボックスに入れますか?
RichtextBox には次のlines
プロパティがあります。
Dim rtb_in As New RichTextBox
Dim rtb_out As New RichTextBox
For Each line In rtb_in.Lines
rtb_out.AppendText(String.Format("Foo({0})", line))
Next
使用するクラスについては、MSDN をチェックすることを常にお勧めします ...
新しい行で分割して結果を変更してみてください。
Dim box1Lines as String() = richTextBox1.Text.Split(new String() { Environment.NewLine }, StringSplitOptions.RemoveEmptyEntries)
Dim newLines as String = ""
For Each line As String in box1Lines
newLines += "Yo(" & line & ")" & Environment.NewLine
Next
richTextBox2.Text = newLines
おそらく、String.Join
それを達成するために使用する必要があります。one line
解決策は次のとおりです。
rtbOut.Lines = ("Yo(" & String.Join(")" & Environment.NewLine & "Yo(", rtbIN.Lines) & ")").Split(Environment.NewLine.ToCharArray, StringSplitOptions.RemoveEmptyEntries)
変更された行が second に割り当てられている完全なコードは次のRichTextBox
とおりです。
Dim rtbIN As New RichTextBox
Dim rtbOut As New RichTextBox
rtbIN.Lines = New String() {"Hello ", "Hi"}
rtbOut.Lines = ("Yo(" & String.Join(")" & Environment.NewLine & "Yo(", rtbIN.Lines) & ")").Split(Environment.NewLine.ToCharArray, StringSplitOptions.RemoveEmptyEntries)