From 69d56d12e32da0e6ca332f36484aca7746e9742d Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Thu, 4 Aug 2022 13:28:45 +0200
Subject: [PATCH] Language: Add StringEx Module

---
 Modules.Language/Language.vbproj | 1 +
 Modules.Language/StringEx.vb     | 9 +++++++++
 2 files changed, 10 insertions(+)
 create mode 100644 Modules.Language/StringEx.vb

diff --git a/Modules.Language/Language.vbproj b/Modules.Language/Language.vbproj
index d7b8357b..f72ac163 100644
--- a/Modules.Language/Language.vbproj
+++ b/Modules.Language/Language.vbproj
@@ -77,6 +77,7 @@
     <Compile Include="DataTableEx.vb" />
     <Compile Include="DateTimeEx.vb" />
     <Compile Include="InvalidChars.vb" />
+    <Compile Include="StringEx.vb" />
     <Compile Include="Utils.vb" />
     <Compile Include="My Project\AssemblyInfo.vb" />
     <Compile Include="My Project\Application.Designer.vb">
diff --git a/Modules.Language/StringEx.vb b/Modules.Language/StringEx.vb
new file mode 100644
index 00000000..232fc76b
--- /dev/null
+++ b/Modules.Language/StringEx.vb
@@ -0,0 +1,9 @@
+Imports System.Runtime.CompilerServices
+
+Public Module StringEx
+    <Extension()>
+    Public Function Truncate(pString As String, pLength As Integer) As String
+        If String.IsNullOrEmpty(pString) Then Return pString
+        Return pString.Substring(0, Math.Min(pLength, pString.Length))
+    End Function
+End Module