#87732# Addlisttolist Function added

1 files changed, 23 insertions, 0 deletions

diff --git a/wizards/source/tools/Strings.xba b/wizards/source/tools/Strings.xba
index 2b1c4c9f0..d077ec0e1 100644
--- a/wizards/source/tools/Strings.xba
+++ b/wizards/source/tools/Strings.xba
@@ -454,4 +454,27 @@ Dim MaxIndex as Integer
 		End If
 	Next i
 End Function
+
+
+Function AddListtoList(ByVal FirstArray(), ByVal SecondArray(), Optional StartIndex)
+Dim n as Integer
+Dim m as Integer
+Dim MaxIndex as Integer
+	MaxIndex = Ubound(FirstArray()) + Ubound(SecondArray()) + 1
+	If MaxIndex > -1 Then
+		Dim ResultArray(MaxIndex)
+		For m = 0 To Ubound(FirstArray())
+			ResultArray(m) = FirstArray(m)
+		Next m
+		For n = 0 To Ubound(SecondArray())
+			ResultArray(m) = SecondArray(n)
+			m = m + 1
+		Next n
+		AddListToList() = ResultArray()
+	Else
+		Dim NullArray()
+		AddListToList() = NullArray()
+	End If
+End Function
+
 </script:module>
\ No newline at end of file