Skip to main content
adicionou 258 caracteres ao conteúdo
Fonte Link
stderr
  • 30,9mil
  • 5
  • 49
  • 76

Talvez não seja possível usar o método String.Split() para esse propósito, expressões regulares podem vir a cair bem neste caso, use o método Regex.Split()>:

Imports System.Text.RegularExpressions
'

SubFunction MainExtrairBlocos()
    DimByVal texto As String = "if ""esse campo tem) espaços""As =List(Of true"String)
    Dim blocos() As New List(Of String)
    blocos = Regex.Split(texto, "(""[^""]*""|\s+)")
 .ToList()
    For Each bloco As String In blocos
        If Not String.IsNullOrWhiteSpaceRemoveAll(Function(bloco) Then
            ConsoleString.WriteLineIsNullOrWhiteSpace("{0}", bloco)
        End If)
    Next
   Return Console.ReadLine()blocos
End SubFunction

Ver demonstração E para utilizar, faça:

Sub Main()
    Dim texto As String = "if ""esse campo tem espaços"" = true"
    Dim blocos As New List(Of String)
    blocos = ExtrairBlocos(texto)

    For Each bloco As String In blocos
        Console.WriteLine("{0}", bloco)
    Next
    Console.ReadLine()
End Sub

Ver demonstração

Talvez não seja possível usar o método String.Split() para esse propósito, expressões regulares podem vir a cair bem neste caso, use o método Regex.Split()>

Imports System.Text.RegularExpressions
'

Sub Main()
    Dim texto As String = "if ""esse campo tem espaços"" = true"
    Dim blocos() As String = Regex.Split(texto, "(""[^""]*""|\s+)")
 
    For Each bloco As String In blocos
        If Not String.IsNullOrWhiteSpace(bloco) Then
            Console.WriteLine("{0}", bloco)
        End If
    Next
    Console.ReadLine()
End Sub

Ver demonstração

Talvez não seja possível usar o método String.Split() para esse propósito, expressões regulares podem vir a cair bem neste caso, use o método Regex.Split():

Imports System.Text.RegularExpressions
'

Function ExtrairBlocos(ByVal texto As String) As List(Of String)
    Dim blocos As New List(Of String)
    blocos = Regex.Split(texto, "(""[^""]*""|\s+)").ToList()
    blocos.RemoveAll(Function(bloco) String.IsNullOrWhiteSpace(bloco))
    Return blocos
End Function

E para utilizar, faça:

Sub Main()
    Dim texto As String = "if ""esse campo tem espaços"" = true"
    Dim blocos As New List(Of String)
    blocos = ExtrairBlocos(texto)

    For Each bloco As String In blocos
        Console.WriteLine("{0}", bloco)
    Next
    Console.ReadLine()
End Sub

Ver demonstração

Fonte Link
stderr
  • 30,9mil
  • 5
  • 49
  • 76

Talvez não seja possível usar o método String.Split() para esse propósito, expressões regulares podem vir a cair bem neste caso, use o método Regex.Split()>

Imports System.Text.RegularExpressions
'

Sub Main()
    Dim texto As String = "if ""esse campo tem espaços"" = true"
    Dim blocos() As String = Regex.Split(texto, "(""[^""]*""|\s+)")

    For Each bloco As String In blocos
        If Not String.IsNullOrWhiteSpace(bloco) Then
            Console.WriteLine("{0}", bloco)
        End If
    Next
    Console.ReadLine()
End Sub

Ver demonstração