Il existe 2 fonctions bien pratiques pour obtenir du texte contenu entre 2 balises :
1 2 3 4 5 6 7 8 9
|
Private Function ParseBetween(Source$, Before$, After$) As String()
Dim Results As New List(Of String)
Dim T As New List(Of String)
With T
.AddRange(System.Text.RegularExpressions.Regex.Split(Source, Before))
.RemoveAt(0)
For Each Item$ In T
Results.Add(System.Text.RegularExpressions.Regex.Split(Item, |
...