如何在 VB 6 中按字符将数据从文本框拆分为 multicoloum 和 multiline

Question

我用了 VB 6 因为我的老师挑战我用 VB 6 做一个程序。我在文本框中有这样的数据：

我想将该数据的 3 种类型拆分为 3 个颜色，例如 table。我知道如何使用这种类型的代码按字符拆分数据：

a = Split(Text1.Text, ".")(0)

并且因为我不知道如何在 VB 6 中制作 table，所以我将它们拆分为 3 个文本框。但它只是拆分 1 行。第二行不工作。

这是我的代码：

Dim a As String
Dim b As String
Dim c As String

Private Sub Command1_Click()
a = Split(Text1.Text, ".")(0)
b = Split(Text1.Text, ".")(1)
c = Split(Text1.Text, ".")(2)
Text2.Text = a
Text3.Text = b
Text4.Text = c

End Sub

请帮助我。

Answer 1

您必须使用列表框而不是文本框，然后才能逐行读写。

Private Function GetItemText(i As Integer) As String
   'Return the text of the item using the index:
   GetItemText = ListBox1.List(i)
End Function

Answer 2

首先，您必须拆分行，然后您必须按每行拆分值。这应该有效：

Dim i as Long
Dim sLines() As String
Dim sValues() As String
sLines() = Split(Text1.Text, vbCrLf)
For i = 0 to UBound(slines)
    If sLines(i) > vbNullString Then ' skip for empty line
        sValues() = Split(sLines(i), ".")
        Text2.Text = Text2.Text & sValues(0) & vbCrLf
        Text3.Text = Text3.Text & sValues(1) & vbCrLf
        Text4.Text = Text4.Text & sValues(2) & vbCrLf
    End If
Next i

如何在 VB 6 中按字符将数据从文本框拆分为 multicoloum 和 multiline

How to split data by character from a textbox to multicoloum and multiline in VB 6

split

vb6

multiline