vb 我想从text1查找text2的内容并把找到内容的那一行显示到text3

vb 我想从text1查找text2的内容并把找到内容的那一行显示到text3

Option Explicit

Private Sub Command1_Click()
Dim myLine1() As String, myLine2() As String, i As Integer, j As Integer
myLine1 = Split(Text1.Text, vbCrLf)
myLine2 = Split(Text2.Text, vbCrLf)
Text3.Text = ""
For i = 0 To UBound(myLine2)
For j = 0 To UBound(myLine1)
' If InStr(1, myLine1(j), myLine2(i)) Then Text3.Text = Text3.Text & myLine1(j) & vbCrLf
If myLine2(i) = myLine1(j) Then Text3.Text = Text3.Text & myLine1(j) & vbCrLf
Next
Next
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息