FilterString(ausgabe, "<dateiname>", "</dateiname>", "searchdateiname")

 FilterString(ausgabe, "<id>", "</id>", "searchid")

If was = "searchid" Then subitem.SubItems.Add(ausgabe2)

    Public Function FilterString(ByVal text As String, ByVal anfang As String, _
      ByVal ende As String, ByVal was As String)
        Dim Pos As Integer
        Dim tmppos As Integer
        Dim ausgabe2 As String
        Dim subitem As New ListViewItem
        Dim gesamtpos As Integer = Pos - tmppos
        Do
            Pos = InStr(Pos + 1, text, anfang)
            If Pos <> 0 Then
                tmppos = Pos + Len(anfang)
                ausgabe2 = Mid$(text, tmppos, InStr(tmppos, text, ende) - _
                  tmppos)
                With frmMain.lvwgefunden.Items
                    If was = "searchdateiname" Then subitem = .Add(ausgabe2)
                    If was = "searchid" Then subitem.SubItems.Add(ausgabe2)
 
                End With
            End If
        Loop Until Pos = 0