Совпадение нескольких строк в строке

Question

Я пытаюсь сопоставить значения тегов (стили музыкального стиля) xml.

Это несколько примеров:

Один музыкальный жанр: (Pop) (отн = "тег"> Поп)

<span class="genres"><a href="http://www.mp3crank.com/genre/shoegaze" rel="tag">Pop</a></span> 

Две музыкальные жанры: (Регги) (Ska) (отн =» тег "> Reggae) (отн =" тег "> Ska)

<span class="genres"><a href="http://www.mp3crank.com/genre/reggae" rel="tag">Reggae</a>/<a href="http://www.mp3crank.com/genre/ska" rel="tag">Ska</a></span> 

Более двух музыкальных жанров: (Alternative) (Инди) (Rock) (отн =" тег "> Alternative) (отн =" тег "> Indie) (rel =" tag "> Rock)

<span class="genres"><a href="http://www.mp3crank.com/genre/alternative" rel="tag">Alternative</a>/<a href="http://www.mp3crank.com/genre/indie" rel="tag">Indie</a>/<a href="http://www.mp3crank.com/genre/rock" rel="tag">Rock</a></span> 

Что мне нужно, чтобы получить значения «жанр», чтобы добавить его в переменной:

rel="tag">Genre</a> 

... или лучше, если я могу получить «Жанр» без отн =» тег "> часть, но на самом деле неважно.

Это RegEx, который я сделал, не работает хорошо, соответствует только первому тегу, даже если существует два или более тега жанра.

Dim RegEx_AlbumStyle As New Regex(<a><![CDATA[rel=.+</a>\s?[^><]|rel=.+</a>]]></a>.Value) 

Это код:

Dim AlbumStyle as string 

Dim RegEx_AlbumStyle As New Regex(<a><![CDATA[rel=.+</a>\s?[^><]|rel=.+</a>]]></a>.Value) 

If Line.Contains(<a><![CDATA[<span class="genres">]]></a>.Value) Then 

For Each Style In RegEx_AlbumStyle.Match(Line).Groups 
    MsgBox("match:" & Style.ToString) 

    ' I need to append all found matches to a string variable 
    ' AlbumStyle += ", " & Style.ToString 
    ' But I only find one match even if exists more than one genre value in the string 
Next 

End If 

Answer 1

Согласитесь, что это может нарушить в будущем, и это не самый лучший способ, но, возможно, это поможет, если вы хотите идти по этому пути. Это возвращает 3 MessageBoxes для меня предполагая калибровочный тег загружается в строку:

Private Sub Input() 
    Dim genreString As String = "<span class=""genres""><a href=""http://www.mp3crank.com/genre/alternative"" rel=""tag"">Alternative</a>/<a href=""http://www.mp3crank.com/genre/indie"" rel=""tag"">Indie</a>/<a href=""http://www.mp3crank.com/genre/rock"" rel=""tag"">Rock</a></span>" 
    ShowGenres(genreString) 
End Sub 
Private Function ShowGenres(ByVal s As String) As String 
    Dim m As Match = Regex.Match(s, "tag"">(\w+)<") 
    Do While m.Success 
     MessageBox.Show(m.Groups(1).ToString) 
     m = m.NextMatch() 
    Loop 
    Return False 
End Function