Imports System

Imports System.Text

Imports System.Text.RegularExpressions

​

Public Module Module1

​

    Public Sub Main()

        Dim nf33 as String = "\n\n-\n\nCódigo do Serviço\n\n3,00\n\n2,00\n\n6,00\n\n13,00\n\n"

        Dim nf32 as String = "\n\n- Código do Serviço\n\n-\n\n-\n\n-\n\n-\n\n"

        'Dim tmp as String = "apostolos"

        Dim tmp2 as String = nf33.Replace("\", "").Replace("n", "")

        Dim padraoRegex As String = "\d{1,5},\d{2}"

        Dim verifica As New RegularExpressions.Regex(padraoRegex, RegexOptions.IgnorePatternWhitespace)

        Dim len = tmp2.Length

        Dim valida as Boolean

        Dim imp1 as String

        Dim imp2 as String

        Dim imp3 as String

        Dim imp4 as String

        Dim imp5 as String

        Dim c as Char

        For index As Integer = 0 To len - 1

            c = tmp2.Substring(index, 1)

            Console.Writeline(tmp2.Substring(index, 1))

        Next

​

        valida = verifica.IsMatch(tmp2, 0)

        Console.Writeline(valida.ToString())

        Console.WriteLine(tmp2)

    Dim mc As MatchCollection = Regex.Matches(nf32, padraoregex)

        Dim m As Match

        Console.WriteLine(mc.Count)

        if mc.Count > 0

            For Each m In mc

                Console.WriteLine(m)

            Next m

        end if

    'Dim res as String() = tmp2.Split()

    End Sub

End Module

​