add string repeat function

iwpiv · May 8, 2019 · e657f51 · e657f51
1 parent daabfd2
commit e657f51
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/src/Modules/StringExtensions.bas b/src/Modules/StringExtensions.bas
@@ -62,3 +62,12 @@ Public Function CharAt(ByVal text As String, ByVal index As Integer) As String
     CharAt = Mid(text, index, 1)
 End Function
 
+
+Public Function Repeat(ByVal text As String, ByVal count As Integer) As String
+    Repeat = ""
+
+    Dim i As Integer
+    For i = 1 To count
+        Repeat = Repeat & text
+    Next
+End Function