VB查找所有关键字符串

来源：百度知道 编辑：UC知道 时间：2024/05/28 04:18:50
要求：

这些是text1中的字符串

name = K_123
name = K_123
name = K_123
name = K_123
name = P_123
name = P_123
name = P_123
name = P_123

我要将所有 name = 后面的字符串 加入到list 中

估计要用循环或数组完成．小弟不才‘希望大家帮忙！
非常感谢!!! lyglay
能否帮忙2个语句都详细注释一下@ 我也很想学习ing`````````````

'循环加数组
Private Sub Command1_Click()
s$ = Replace$(Text1.Text, "name = ", "")
arr = Split(s, vbCrLf)
For i& = 0 To UBound(arr)
If Len(arr(i)) Then List1.AddItem arr(i)
Next
End Sub

'只用循环
Private Sub Command2_Click()
s$ = Text1.Text: p& = InStr(s, "= "): l& = Len("= ")
Do While p
p2& = InStr(p, s, vbCrLf)
List1.AddItem Mid$(s, p + l, p2 - p - l)
p = InStr(p2, s, "= ")
Loop
End Sub