' "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


The Best Mechanical Keyboards For Programmers: Where To Find Them
When it comes to programming, a good mechanical keyboard can make all the difference. Naturally, you would want one of the best mechanical keyboards for programmers. But with so many