From 5aafb40bd4268259242d7eb279496f95eee4ece3 Mon Sep 17 00:00:00 2001
From: mgobat <45852490+mgobat@users.noreply.github.com>
Date: Thu, 4 Mar 2021 13:23:22 -0600
Subject: [PATCH] Update Form1.vb

Add code to support specifying more than 9 characters to include for an element.
---
 Form1.vb | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/Form1.vb b/Form1.vb
index 6a57cd3..7295419 100644
--- a/Form1.vb
+++ b/Form1.vb
@@ -172,7 +172,7 @@ Public Class Form1
     'v. 2.3: dlgSettings.UseEXDialog = True to enable print dialog selection in Windows 7
     'v. 2.2: corrects spacing & punctuation errors in incoming call numbers (for TML);
     'v. ...: 
-    Dim somVersion As String = "8.1.0"
+    Dim somVersion As String = "8.1.1"
     Dim javaClassName As String = "almalabelu2" 'the java class name
     Dim javaSDKName As String = "alma-sdk.1.0.jar" 'the Ex Libris SDK for web services
     Dim javaTest As String = "javatest" 'java class that reports presence and version of java
@@ -1859,11 +1859,15 @@ Boolean = True) As String
                         fldval = xmlValue(cf)
                     End If
                     stringLength = 0
+                    Dim stringLengthString As String : stringLengthString = vbNullString
                     For j = 0 To fmt.Length - 1
-                        If "123456789".Contains(fmt(j)) Then
-                            stringLength = Convert.ToInt32(fmt.Substring(j, 1))
+                        If "0123456789".Contains(fmt(j)) Then
+                            stringLengthString += fmt.Substring(j, 1)
                         End If
                     Next
+                    If stringLengthString IsNot vbNullString Then
+                        stringLength = Convert.ToInt32(stringLengthString)
+                    End If
                     If (fldval.Length > 0 And fldval.Length > stringLength) And stringLength > 0 Then
                         fldval = fldval.Substring(0, stringLength)
                     End If
@@ -1962,7 +1966,7 @@ Boolean = True) As String
 
         For i = 1 To argnoquot.Length
             c = Mid$(argnoquot, i, 1)
-            If "~=!#%^*+".Contains(c) Or "123456789".Contains(c) Then
+            If "~=!#%^*+".Contains(c) Or "0123456789".Contains(c) Then
                 fmt = fmt & c
             Else
                 Exit For