Question

How to split string into words by spaces in VB.NET

Answer 1

Imports System
				
Public Module Module1
	Public Sub Main()
		Dim s As String = "VB.NET Java Python PHP C#"
 
        Dim arr As String() = s.Split(New Char() {" "c})
 
        For Each word As String In arr
            Console.WriteLine(word)
        Next
	End Sub
End Module


' run:
'
' VB.NET
' Java
' Python
' PHP
' C#
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System
Imports System.Text.RegularExpressions
Imports System.Collections.Generic

Module Module1

    Function SplitString(s As String, delims As String) As List(Of String)
        Dim parts = Regex.Split(s, delims)
        Dim tokens As New List(Of String)

        For Each p In parts
            If Not String.IsNullOrEmpty(p) Then
                tokens.Add(p)
            End If
        Next

        Return tokens
    End Function

    Sub Main()
	Dim s As String = "-c, c++.. c#:: -java ,php...python    vbnet"
        Dim delims As String = "[ ,.:\-!]+"

        Dim tokens = SplitString(s, delims)

        For Each t In tokens
            Console.WriteLine(t)
        Next
    End Sub

End Module



' run:
'
' c
' c++
' c#
' java
' php
' python
' vbnet
'

 

70+ SQL courses for beginners and professionals

Answer 3

Imports System
Imports System.Collections.Generic

Module Module1

    Function SplitString(s As String, delims As String) As List(Of String)
        Dim delimSet As New HashSet(Of Char)(delims)

        Dim normalized As New Text.StringBuilder()

        For Each ch As Char In s
            If delimSet.Contains(ch) Then
                normalized.Append(" "c)
            Else
                normalized.Append(ch)
            End If
        Next

        Dim parts() As String = normalized.ToString().Split(" "c)
        Dim tokens As New List(Of String)()

        For Each p As String In parts
            If p <> "" Then
                tokens.Add(p)
            End If
        Next

        Return tokens
    End Function

    Sub Main()
        Dim s As String = "-c, c++.. c#:: -java! ,php...python:      vbnet!"
        Dim delims As String = " ,.:\-!"

        Dim tokens As List(Of String) = SplitString(s, delims)

        For Each t As String In tokens
            Console.WriteLine(t)
        Next
    End Sub

End Module



' run:
'
' c
' c++
' c#
' java
' php
' python
' vbnet
'

 

70+ SQL courses for beginners and professionals