Merge pull request #41 from dehilsterlexis/VISUALTEXT-FILES-030

VISUALTEXT-FILES-030 Added PadStr
VisualText · Jan 12, 2023 · c7542a8 · c7542a8
2 parents 43bc441 + bec9d07
commit c7542a8
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/spec/KBFuncs.nlp b/spec/KBFuncs.nlp
@@ -326,6 +326,17 @@ SpacesStr(L("num")) {
 	return L("spaces");
 }
 
+PadStr(L("num str"),L("pad str"),L("pad len")) {
+	L("len") = strlength(L("num str"));
+	L("pad") = 0;
+	L("to pad") = L("pad len") - L("len");
+	while (L("i")++ < L("to pad")) {
+		L("pad") = L("pad") + L("pad str");
+	}
+	L("padded") = L("pad") + L("num str");
+	return L("padded");
+}
+
 ###############################################
 # DICTIONARY FUNCTIONS
 ###############################################