devxlogo

ReplicateString – Replicate a string a given number of times

ReplicateString – Replicate a string a given number of times

' Replicate a string a given number of timesFunction ReplicateString(ByVal Source As String, ByVal Times As Integer) As _    String    Dim i As Integer    Dim sb As New Text.StringBuilder(Source.Length * Times)    For i = 1 To Times        sb.Append(Source)    Next    Return sb.ToStringEnd Function

devx-admin

Share the Post: