0

たとえば、これらがRichTextBoxの行である場合、vb.netのrichtextboxのさまざまな行を読み取って変換する方法を知りたい:

    Hello
    Hi

次のようなものに変換するにはどうすればよいですか。

    Yo(Hello)
    Yo(Hi)

結果を2番目のリッチテキストボックスに入れますか?

4

3 に答える 3

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 をチェックすることを常にお勧めします ...

于 2012-11-15T17:05:21.047 に答える
0

新しい行で分割して結果を変更してみてください。

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
于 2012-11-15T17:04:08.877 に答える
0

おそらく、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)
于 2012-11-16T12:16:42.460 に答える