LKWNr Prfung, ustva, etc.

VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb

@@ -938,6 +938,31 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
 
 
 
+    End Function
+
+    Shared Function checkLKWNr(lkwNr As String) As List(Of String)
+
+        Dim ListOfLKWNr As New List(Of String)
+
+        If String.IsNullOrWhiteSpace(lkwNr) Then Return ListOfLKWNr
+
+        Dim listOfLkwNrTemp = lkwNr.Split("/"c)
+
+        For Each oneLKWNr In listOfLkwNrTemp
+            Dim e = oneLKWNr.Trim()
+            If e = "" Then Continue For
+
+            Try
+                ListOfLKWNr.Add(oneLKWNr)
+            Catch
+
+            End Try
+        Next
+
+
+        Return ListOfLKWNr
+
+
     End Function
 
     Public Function MakeScreenshot()