1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Shared Function IdentifierLog(ByVal CheminFichier As String, ByVal Regex As Regex) As List(Of String)
Dim listeRecomposee As New List(Of String)
Dim listeDeString As List(Of String) = LogManager.LireFichier(CheminFichier)
Dim builder As New StringBuilder("")
For Each ligne In listeDeString
' Si la ligne est un nouveau log, alors on ajoute ce que contenait jusque là le buider.
If Regex.Match(ligne).Success Then
listeRecomposee.Add(builder.ToString())
builder.Length = 0
builder.Append(ligne)
' Sinon la ligne n'est pas un nouveau log, on l'ajoute au builder
Else
builder.Append(ligne)
End If
Next
listeRecomposee.RemoveAt(0)
Return listeRecomposee
End Function |