或者这样,一个文本也行,我想提取某行有固定字符的行,例如下面这个:
aaaaabbbbbccccc
aaaaabbbbbccccc
aaaaabbbbbccccc
aaaaabbbbbccccc
      ccdd    123456
      aacc    789111
aaaaabbbbbccccc
aaaaabbbbbccccc
aaaaabbbbbccccc
aaaaabbbbbccccc
      ccdd    123456 778800
      aacc    789111
列如这样的,我想提取含有ccdd和aacc的行,将数据123456列到listview的列首1里,将778800放到列首2
789111放到列首3里进行组合再输出成文本,请问我该怎么写啊,本人QQ:66103040,如果可以的本人愿意付一些报酬,急用,谢谢了

1、报酬，就不用了。也不是什么大问题。
2、ListView我没有用过，但我想它和list应该没有太大差别。

我一list为例，写个看看。
但因为你的提取条件十分含糊，我也只好含糊含糊。

Private Sub Command1_Click()
    Dim jieguo As String
    Dim s() As String
    ReDim s(10)
    i = -1
    Do
        i = i + 1
        s(i) = InputBox("请输入查找第" & i + 1 & "列条目要包含的关键字" & vbCrLf & "输入空白结束")
    Loop Until Trim(s(i)) = ""
    i = i - 1
    ReDim Preserve s(i)
    For j = 0 To i
        For k = 0 To List1.ListCount - 1
            a = Split(List1.List(k))
            If UBound(a) > 0 Then
                If InStr(a(0), s(j)) Then
                    jieguo = jieguo & "          " & a(UBound(a))
                    Exit For
                End If
            End If
            If k = List1.ListCount - 1 Then
                MsgBox "没有找到包含关键字:" & s(j) & "且符合规则的条目!结束查找。"
                Exit Sub
            End If
        Next k
    Next j
    Print jieguo
End Sub

Private Sub Form_Load()
    For i = 1 To 20
        List1.AddItem i & "  " & i
    Next i
    Command1.Caption = "查找"
End Sub