VB文本提取

来源：百度知道 编辑：UC知道 时间：2024/05/18 02:14:04
文本提取

通过EnumWindows列举当前所有窗口
。。。。。。。。。。。。。。。。
N行后
9***15_QQMusic_SmallClient
loger command window
DDE Server Window
**5070570_QQMusic_SmallClient
loger command window
Connections Tray
电表
。省略N行
。。。。。。。

怎么取得带QQMusic的行？

s = Split(text1.Text, vbNewLine) 'text1.text是待查找的文本，请根据实际修改
For i = 0 To UBound(s)

Private Sub Command1_Click()
Dim s() As String, i As Integer
s = Split(text1.Text, vbNewLine) 'text1.text是待查找的文本，请根据实际修改
For i = 0 To UBound(s)
If InStr(1, s(i), "QQMusic", vbTextCompare) > 0 Then
MsgBox "找到目标：" & s(i)
End If
Next
End Sub

用line input每次读入一行,再用字串比较函数instr判断该行是否存在字串QQMusic就OK了