0

我希望能够从一个richtextbox（称为ReportText）中选择多个数据“列”并将其显示在第二个richtextbox（称为UploadText）中。我所说的列是指由 vbTab 分隔的每条数据。



我的数据看起来有点像这样：

column1 (vbTab) column2 (vbTab) column3 (vbTab) column4 (vbTab) column5 ..... (vbCrLf)
1a (vbTab) 1b (vbTab) 1c (vbTab) 1d (vbTab) 1e (vbTab).... ( vbCrLf)
2a (vbTab) 2b (vbTab) 2c (vbTab) 2d (vbTab) 2e (vbTab).... (vbCrLf)

--NB 我在 (vbTab) 中编写了表示信息的制表符分隔性质，并在新行中编写了 (vbCrLf)。

--另请注意，第一个 RTB 中的信息将超过 5 列和 3 行，以上仅用于说明目的。


有人可以指导我如何做到这一点吗？很高兴详细说明任何不清楚的部分。我假设我希望拆分为 2d 数组（或类似数组），但不确定如何执行此操作，也不会调用第一个 RTB（ReportText）的 column1 和 column3 中的特定数据以显示在第二个 RTB 中（上传文本）。

在此先感谢您的帮助，

最大限度

4

1 回答 1

0

的Lines财产RichTextBox照顾这个vbCrLf问题。在每一行中，你可以依靠Split占为vbTab分割符。下面的示例代码获取所有行的第三列（索引 = 2）值，InRTB并将它们（每行一个）写入OutRTB：

Dim rowNo As Integer = -1
For Each line As String In inRTB.Lines
    If (line IsNot Nothing) Then
        rowNo = rowNo + 1
        Dim colNo As Integer = -1
        Dim vals() As String = line.Split(Convert.ToChar(vbTab))
        For Each val As String In vals
            colNo = colNo + 1
            If (colNo = 2) Then
                OutRTB.Text = OutRTB.Text & val & Environment.NewLine
                Exit For
            End If
        Next
    End If
Next
于 2013-09-01T16:50:33.367 回答