UC知道vb,怎样将文本框内相同的行只留一行?例如,文本框1内为
来源：百度知道 编辑：UC知道 时间：2024/06/15 12:19:29
vb,怎样将文本框内相同的行只留一行?例如,文本框1内为
a1
a2
ab
a3
c9
a1
ab
,按按钮后将在文本框2中显示
a1
a2
ab
a3
c9
。
a1
a2
ab
a3
c9
a1
ab
,按按钮后将在文本框2中显示
a1
a2
ab
a3
c9
。
Private Sub Command1_Click()
Dim l() As String
Dim i As Integer
Dim j As Integer
l = Split(Text1.Text, vbCrLf)
Text1.Text = ""
For i = 0 To UBound(l)
For j = 0 To i - 1
If l(i) = l(j) Then Exit For
Next j
If j > i - 1 Then
Text1.Text = Text1.Text & l(i) & vbCrLf
End If
Next i
End Sub