在textbox1文本中，筛选包含a或者b关键字的行，输出到textbox2中

[余温生]

在textbox1文本中，筛选包含a或者b关键字的行，输出到textbox2中，需要怎么写？求大神指教！

[exception92]

https://msdn.microsoft.com/en-us/library/system.windows.forms.textboxbase.lines(v=vs.110).aspx

[余温生]

Dim StrA() As String Dim i As Long Dim keyText As String Dim loid As String loid = " cd onu" keyText = "loid" StrA = Split(TextBox1.Text, vbCrLf) For i = 0 To UBound(StrA) If InStr(1, StrA(i), keyText) <> 0 Then loid = loid & vbCrLf & StrA(i) End If Next i TextBox2.Text = loid =================== 比如这样写，有没有更优化的编法？