For Each ondem inversa

Question

Boa noite pessoal.

Eu tenho um For Each com um Regex que separa todos os títulos em um arquivo txt, o problema é que ele começa a captar do último item até o primeiro, gostaria de saber como faço para inverter a ordem, pegar do primeiro ao último de acordo com a ordem que eles aparecem no TXT:

    'Ler TXT sumário
    Private Sub BtnLertxt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLertxt.Click

        Dim htmltxt As String = File.ReadAllText("C:\page1.txt")

        Dim Titulo As String = ""

        Dim matches As MatchCollection = Regex.Matches(htmltxt, "<DIV class=title>(.*?)</DIV>")

        For Each m As Match In matches

            Titulo = m.Groups(1).Value & vbCrLf & Titulo

        Next

        TextBox1.Text = Titulo

    End Sub

Answer 1

Olá Marques, tente usar o Reverse

For Each m As Match In matches.Reverse()
	Titulo = m.Groups(1).Value & vbCrLf & Titulo
Next

Abraço

E.M.

---

Se a resposta foi útil marcar 'como resposta'.

Answer 2

Perfeito.