ExplodeString – Add a filling char between a string’s chars

ExplodeString – Add a filling char between a string’s chars

' "Explode" a string by inserting a given filling character' between consecutive characters in the original string'' The source string cannot contain Chr$(0) charactersFunction ExplodeString(ByVal Source As String, Optional ByVal fillChar As Char = _    " "c) As String    Dim i As Integer    Dim sb As New Text.StringBuilder(Source.Length * 2)    ' exit if no character    If Source Is Nothing OrElse Source.Length = 0 Then Return ""    ' inserts the first char     sb.Append(Source.Chars(0))    ' insert the filling char before each character    For i = 1 To Source.Length - 1        sb.Append(fillChar)        sb.Append(Source.Chars(i))    Next    Return sb.ToStringEnd Function


About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist