none
For Each ondem inversa RRS feed

  • Pergunta

  • 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

    sexta-feira, 24 de outubro de 2014 21:28

Respostas

  • 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'.

    • Sugerido como Resposta Diego Cotini sábado, 25 de outubro de 2014 03:51
    • Marcado como Resposta Marques Junior sábado, 25 de outubro de 2014 17:16
    sábado, 25 de outubro de 2014 01:02

Todas as Respostas