Tag Archives: vb.net
VB.NET || How To Convert An Array/List/IEnumerable To A DataTable & Convert A DataTable To A List Using VB.NET
The following is a module with functions which demonstrates how to convert an Array/List/IEnumerable to a DataTable, and how to convert a DataTable to a List using VB.NET.
Contents
1. Overview
2. Convert To DataTable - Integer Array
3. Convert To DataTable - List Of Strings
4. Convert To DataTable - List Of Objects
5. Convert To List - Integer DataTable
6. Convert To List - String DataTable
7. Convert To List - Multi-Column DataTable
8. Utils Namespace
9. More Examples
1. Overview
The functions demonstrated on this page are generic extension methods which uses reflection to convert a DataTable to a List(Of T) and an Array/List/IEnumerable to a DataTable.
These functions work on primitive data types, custom structure and class object fields and properties, as well as DBNull.Value, and nullable arrays and lists.
Note: Don’t forget to include the ‘Utils Namespace‘ before running the examples!
2. Convert To DataTable – Integer Array
The example below demonstrates the use of ‘Utils.Collections.ToDataTable‘ to convert a nullable integer array to a datatable.
When converting nullable types, their value is represented as DBNull in the returned table.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
' Convert To DataTable - Integer Array Imports Utils.Collections ' Declare array of integers Dim numbers = New Integer?() {Nothing, 1987, 19, 22, 2009, 2019, 1991, 28, 31} ' Convert array to a datatable Dim tableNumbers = numbers.ToDataTable ' For primitive types, access data using the 'value' key For Each row As DataRow In tableNumbers.Rows Debug.Print($"{If(IsDBNull(row("value")), "[DBNull.Value]", row("value"))}") Next ' expected output: ' [DBNull.Value] ' 1987 ' 19 ' 22 ' 2009 ' 2019 ' 1991 ' 28 ' 31 |
3. Convert To DataTable – List Of Strings
The example below demonstrates the use of ‘Utils.Collections.ToDataTable‘ to convert a list of strings to a datatable.
When converting nullable types, their value is represented as DBNull in the returned table.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 |
' Convert To DataTable - List Of Strings Imports Utils.Collections ' Declare list of strings Dim names = New List(Of String) From { "Kenneth", "Jennifer", "Lynn", "Sole", Nothing } ' Convert list to a datatable Dim tableNames = names.ToDataTable ' For primitive types, access data using the 'value' key For Each row As DataRow In tableNames.Rows Debug.Print($"{If(IsDBNull(row("value")), "[DBNull.Value]", row("value"))}") Next ' expected output: ' Kenneth ' Jennifer ' Lynn ' Sole ' [DBNull.Value] |
4. Convert To DataTable – List Of Objects
The example below demonstrates the use of ‘Utils.Collections.ToDataTable‘ to convert a list of custom objects to a datatable.
A class is used in this example, but a custom structure also works here as well.
When converting nullable types, their value is represented as DBNull in the returned table.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 |
' Convert To DataTable - List Of Objects Imports Utils.Collections Public Class Part Public Property PartName As String Public PartId As Integer? End Class ' Declare list of objects Dim parts = New List(Of Part) From { New Part With { .PartName = "crank arm", .PartId = 1234 }, New Part With { .PartName = "chain ring", .PartId = 1334 }, New Part With { .PartName = "regular seat", .PartId = 1434 }, New Part With { .PartName = "banana seat", .PartId = 1444 }, New Part With { .PartName = "cassette", .PartId = 1534 }, New Part With { .PartName = "shift lever", .PartId = 1634 }, New Part With { .PartName = Nothing, .PartId = Nothing }} ' Convert list to a datatable Dim tableParts = parts.ToDataTable ' For non primitive types, access data using the class property names For Each row As DataRow In tableParts.Rows Debug.Print($"{If(IsDBNull(row("PartId")), "[DBNull.Value]", row("PartId"))} - {If(IsDBNull(row("PartName")), "[DBNull.Value]", row("PartName"))}") Next ' expected output: ' 1234 - crank arm ' 1334 - chain ring ' 1434 - regular seat ' 1444 - banana seat ' 1534 - cassette ' 1634 - shift lever ' [DBNull.Value] - [DBNull.Value] |
5. Convert To List – Integer DataTable
The example below demonstrates the use of ‘Utils.Collections.ToList‘ to convert a datatable to a List(Of Integer?).
When converting DBNull types, their value is represented as ‘Nothing‘ in the returned list.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 |
' Convert To List - Integer DataTable Imports Utils.Collections ' Declare datatable of integers Dim tableNumbers = New DataTable tableNumbers.Columns.Add("Number", GetType(Integer)) tableNumbers.Rows.Add(System.DBNull.Value) tableNumbers.Rows.Add(1987) tableNumbers.Rows.Add(19) tableNumbers.Rows.Add(22) tableNumbers.Rows.Add(2009) tableNumbers.Rows.Add(2019) tableNumbers.Rows.Add(1991) tableNumbers.Rows.Add(28) tableNumbers.Rows.Add(31) ' Convert datatable to a list. ' When converting to a primitive type, only the first column is returned Dim listNumbers = tableNumbers.ToList(Of Integer?) ' Loop through the items in the returned list For Each item In listNumbers Debug.Print($"{If(item Is Nothing, "[Nothing]", item.ToString)}") Next ' expected output: ' [Nothing] ' 1987 ' 19 ' 22 ' 2009 ' 2019 ' 1991 ' 28 ' 31 |
6. Convert To List – String DataTable
The example below demonstrates the use of ‘Utils.Collections.ToList‘ to convert a datatable to a List(Of String).
When converting DBNull types, their value is represented as ‘Nothing‘ in the returned list.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 |
' Convert To List - String DataTable Imports Utils.Collections ' Declare datatable of strings Dim tableNames = New DataTable tableNames.Columns.Add("Name", GetType(String)) tableNames.Rows.Add("Kenneth") tableNames.Rows.Add("Jennifer") tableNames.Rows.Add("Lynn") tableNames.Rows.Add("Sole") tableNames.Rows.Add(System.DBNull.Value) ' Convert datatable to a list. ' When converting to a primitive type, only the first column is returned Dim listNames = tableNames.ToList(Of String) ' Loop through the items in the returned list For Each item In listNames Debug.Print($"{If(item Is Nothing, "[Nothing]", item.ToString)}") Next ' expected output: ' Kenneth ' Jennifer ' Lynn ' Sole ' [Nothing] |
7. Convert To List – Multi-Column DataTable
The example below demonstrates the use of ‘Utils.Collections.ToList‘ to convert a datatable to a List(Of Object).
A class is used in this example, but a custom structure also works here as well.
When converting DBNull types, their value is represented as ‘Nothing‘ in the returned list.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 |
' Convert To List - Multi-Column DataTable Imports Utils.Collections Public Class Part Public Property PartName As String Public PartId As Integer? End Class ' Declare multi column datatable Dim tableParts = New DataTable tableParts.Columns.Add("PartName", GetType(String)) tableParts.Columns.Add("PartId", GetType(Integer)) tableParts.Rows.Add({"crank arm", 1234}) tableParts.Rows.Add({"chain ring", 1334}) tableParts.Rows.Add({"regular seat", 1434}) tableParts.Rows.Add({"banana seat", 1444}) tableParts.Rows.Add({"cassette", 1534}) tableParts.Rows.Add({"shift lever", 1634}) tableParts.Rows.Add({System.DBNull.Value, System.DBNull.Value}) ' Convert datatable to a list. ' When converting to an object, all matching columns are returned Dim listParts = tableParts.ToList(Of Part) ' Access properties like normal For Each item In listParts Debug.Print($"{If(item.PartId Is Nothing, "[Nothing]", item.PartId.ToString)} - {If(item.PartName Is Nothing, "[Nothing]", item.PartName.ToString)}") Next ' expected output: ' 1234 - crank arm ' 1334 - chain ring ' 1434 - regular seat ' 1444 - banana seat ' 1534 - cassette ' 1634 - shift lever ' [Nothing] - [Nothing] |
8. Utils Namespace
The following is the Utils Namespace. Include this in your project to start using!
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 |
' ============================================================================ ' Author: Kenneth Perkins ' Date: Nov 13, 2020 ' Taken From: http://programmingnotes.org/ ' File: Utils.vb ' Description: Handles general utility functions ' ============================================================================ Option Strict On Option Explicit On Namespace Global.Utils Namespace Collections Public Module modCollections ''' <summary> ''' Returns a List(Of T) of the items contained in the DataTable ''' </summary> ''' <param name="source">The DataTable to convert to a List(Of T)</param> ''' <returns>A List(Of T) with the contents of the DataTable</returns> <Runtime.CompilerServices.Extension()> Public Function ToList(Of T)(source As DataTable) As List(Of T) Dim type = GetType(T) Dim list = New List(Of T) Dim isPrimitive = IsPrimitiveType(type) Dim members = New List(Of System.Reflection.MemberInfo) If Not isPrimitive Then members.AddRange(type.GetProperties) members.AddRange(type.GetFields) End If ' Convert data rows to the object For Each row As DataRow In source.Rows Dim obj = CreateObject(Of T)(isPrimitive, row, members) list.Add(obj) Next Return list End Function ''' <summary> ''' Returns a DataTable of the items contained in the IEnumerable(Of T) ''' </summary> ''' <param name="source">The IEnumerable list to convert to a DataTable</param> ''' <returns>A DataTable with the contents of the IEnumerable(Of T)</returns> <Runtime.CompilerServices.Extension()> Public Function ToDataTable(Of T)(source As IEnumerable(Of T)) As DataTable Dim type = GetType(T) Dim table = New DataTable(type.Name) Dim isPrimitive = IsPrimitiveType(type) Dim primitiveColumnName = "value" Dim members = New List(Of System.Reflection.MemberInfo) If Not isPrimitive Then Dim flags = System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.Public members.AddRange(type.GetProperties(flags)) members.AddRange(type.GetFields(flags)) End If ' Build the header rows BuildColumns(Of T)(isPrimitive, primitiveColumnName, table, members) ' Add the data rows For Each item In source Dim row = CreateRow(isPrimitive, primitiveColumnName, item, table, members) table.Rows.Add(row) Next Return table End Function Private Sub BuildColumns(Of T)(isPrimitive As Boolean, primitiveColumnName As String, table As DataTable, members As IEnumerable(Of System.Reflection.MemberInfo)) If isPrimitive Then AddColumn(table, primitiveColumnName, GetType(T)) Else For Each member In members AddColumn(table, member.Name, GetMemberDataType(member)) Next End If End Sub Private Sub AddColumn(table As DataTable, columnName As String, type As System.Type) table.Columns.Add(columnName, If(IsNullable(type), System.Nullable.GetUnderlyingType(type), type)) End Sub Private Function CreateRow(Of T)(isPrimitive As Boolean, primitiveColumnName As String, obj As T, table As DataTable, members As IEnumerable(Of System.Reflection.MemberInfo)) As DataRow Dim row = table.NewRow If isPrimitive Then SetRowValue(row, primitiveColumnName, obj) Else For Each member In members Dim value = If(CanRead(member), GetMemberValue(obj, member), Nothing) SetRowValue(row, member.Name, value) Next End If Return row End Function Private Sub SetRowValue(row As DataRow, columnName As String, value As Object) row(columnName) = If(value Is Nothing, System.DBNull.Value, value) End Sub Private Function CreateObject(Of T)(isPrimitive As Boolean, row As DataRow, members As IEnumerable(Of System.Reflection.MemberInfo)) As T Dim obj As T If isPrimitive Then SetObjectValue(isPrimitive, obj, row(0)) Else obj = System.Activator.CreateInstance(Of T)() For Each column As DataColumn In row.Table.Columns Dim member = members.FirstOrDefault(Function(x) x.Name.ToLower = column.ColumnName.ToLower) If member Is Nothing _ OrElse Not CanWrite(member) Then Continue For End If Dim value = row(column.ColumnName) SetObjectValue(isPrimitive, obj, value, member) Next End If Return obj End Function Private Sub SetObjectValue(Of T)(isPrimitive As Boolean, ByRef obj As T, value As Object, Optional member As System.Reflection.MemberInfo = Nothing) If IsDBNull(value) Then Dim type = If(isPrimitive, GetType(T), GetMemberDataType(member)) Dim nullValue = If(IsNullable(type), Nothing, GetDefaultValue(type)) If isPrimitive Then obj = CType(nullValue, T) Else SetObjectValue(obj, member, nullValue) End If Else If isPrimitive Then obj = CType(value, T) Else SetObjectValue(obj, member, value) End If End If End Sub Private Sub SetObjectValue(Of T)(ByRef obj As T, member As System.Reflection.MemberInfo, value As Object) ' Boxing method used for modifying structures Dim boxed = If(obj.GetType.IsValueType, CType(obj, Object), obj) SetMemberValue(boxed, member, value) obj = CType(boxed, T) End Sub Private Sub SetMemberValue(Of T)(ByRef obj As T, member As System.Reflection.MemberInfo, value As Object) If IsProperty(member) Then Dim prop = CType(member, System.Reflection.PropertyInfo) If prop.SetMethod IsNot Nothing Then prop.SetValue(obj, value) End If ElseIf IsField(member) Then Dim field = CType(member, System.Reflection.FieldInfo) field.SetValue(obj, value) End If End Sub Private Function GetMemberValue(obj As Object, member As System.Reflection.MemberInfo) As Object Dim result As Object = Nothing If IsProperty(member) Then Dim prop = CType(member, System.Reflection.PropertyInfo) result = prop.GetValue(obj, If(prop.GetIndexParameters.Count = 1, New Object() {Nothing}, Nothing)) ElseIf IsField(member) Then Dim field = CType(member, System.Reflection.FieldInfo) result = field.GetValue(obj) End If Return result End Function Private Function GetDefaultValue(type As System.Type) As Object Return Conversion.CTypeDynamic(Nothing, type) End Function Private Function IsPrimitiveType(type As System.Type) As Boolean Return type.IsPrimitive _ OrElse type.IsEnum _ OrElse (type.IsValueType AndAlso Not IsCustomStructure(type)) _ OrElse IsType(type, GetType(String)) End Function Private Function IsCustomStructure(type As System.Type) As Boolean Dim result = type.IsValueType AndAlso Not type.IsPrimitive _ AndAlso (String.IsNullOrWhiteSpace(type.Namespace) _ OrElse Not type.Namespace.StartsWith("System") _ OrElse Not type.FullName.StartsWith("System.")) _ AndAlso Not System.Reflection.Assembly.GetAssembly(type).Location.ToLower.Contains("microsoft") Return result End Function Private Function IsNullable(type As System.Type) As Boolean Return System.Nullable.GetUnderlyingType(type) IsNot Nothing End Function Private Function GetMemberDataType(member As System.Reflection.MemberInfo) As System.Type Dim result As System.Type = Nothing If IsProperty(member) Then result = CType(member, System.Reflection.PropertyInfo).PropertyType ElseIf IsField(member) Then result = CType(member, System.Reflection.FieldInfo).FieldType End If Return result End Function Private Function CanWrite(member As System.Reflection.MemberInfo) As Boolean Return If(IsProperty(member), CType(member, System.Reflection.PropertyInfo).CanWrite, IsField(member)) End Function Private Function CanRead(member As System.Reflection.MemberInfo) As Boolean Return If(IsProperty(member), CType(member, System.Reflection.PropertyInfo).CanRead, IsField(member)) End Function Private Function IsProperty(member As System.Reflection.MemberInfo) As Boolean Return IsType(member.GetType, GetType(System.Reflection.PropertyInfo)) End Function Private Function IsField(member As System.Reflection.MemberInfo) As Boolean Return IsType(member.GetType, GetType(System.Reflection.FieldInfo)) End Function Private Function IsType(type As System.Type, targetType As System.Type) As Boolean Return type.Equals(targetType) OrElse type.IsSubclassOf(targetType) End Function End Module End Namespace End Namespace ' http://programmingnotes.org/ |
9. More Examples
Below are more examples demonstrating the use of the ‘Utils‘ Namespace. Don’t forget to include the module when running the examples!
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 |
' ============================================================================ ' Author: Kenneth Perkins ' Date: Nov 13, 2020 ' Taken From: http://programmingnotes.org/ ' File: Program.vb ' Description: The following demonstrates the use of the Utils Namespace ' ============================================================================ Option Strict On Option Explicit On Imports System Imports Utils.Collections Module Program Public Class Part Public Property PartName As String Public PartId As Integer? End Class Sub Main(args As String()) Try ' Declare array of integers Dim numbers = New Integer?() {Nothing, 1987, 19, 22, 2009, 2019, 1991, 28, 31} ' Convert array to a datatable Dim tableNumbers = numbers.ToDataTable ' For primitive types, access data using the 'value' key For Each row As DataRow In tableNumbers.Rows Display($"{If(IsDBNull(row("value")), "[DBNull.Value]", row("value"))}") Next Display("") ' Declare list of strings Dim names = New List(Of String) From { "Kenneth", "Jennifer", "Lynn", "Sole", Nothing } ' Convert list to a datatable Dim tableNames = names.ToDataTable ' For primitive types, access data using the 'value' key For Each row As DataRow In tableNames.Rows Display($"{If(IsDBNull(row("value")), "[DBNull.Value]", row("value"))}") Next Display("") ' Declare list of objects Dim parts = New List(Of Part) From { New Part With { .PartName = "crank arm", .PartId = 1234 }, New Part With { .PartName = "chain ring", .PartId = 1334 }, New Part With { .PartName = "regular seat", .PartId = 1434 }, New Part With { .PartName = "banana seat", .PartId = 1444 }, New Part With { .PartName = "cassette", .PartId = 1534 }, New Part With { .PartName = "shift lever", .PartId = 1634 }, New Part With { .PartName = Nothing, .PartId = Nothing }} ' Convert list to a datatable Dim tableParts = parts.ToDataTable ' For non primitive types, access data using the class property names For Each row As DataRow In tableParts.Rows Display($"{If(IsDBNull(row("PartId")), "[DBNull.Value]", row("PartId"))} - {If(IsDBNull(row("PartName")), "[DBNull.Value]", row("PartName"))}") Next Display("'==========================") '========================== ' Declare datatable of integers Dim dtblNumbers = New DataTable dtblNumbers.Columns.Add("Number", GetType(Integer)) dtblNumbers.Rows.Add(System.DBNull.Value) dtblNumbers.Rows.Add(1987) dtblNumbers.Rows.Add(19) dtblNumbers.Rows.Add(22) dtblNumbers.Rows.Add(2009) dtblNumbers.Rows.Add(2019) dtblNumbers.Rows.Add(1991) dtblNumbers.Rows.Add(28) dtblNumbers.Rows.Add(31) ' Convert datatable to a list. ' When converting to a primitive type, only the first column is returned Dim listNumbers = dtblNumbers.ToList(Of Integer?) ' Loop through the items in the returned list For Each item In listNumbers Display($"{If(item Is Nothing, "[Nothing]", item.ToString)}") Next Display("") ' Declare datatable of strings Dim dtblNames = New DataTable dtblNames.Columns.Add("Name", GetType(String)) dtblNames.Rows.Add("Kenneth") dtblNames.Rows.Add("Jennifer") dtblNames.Rows.Add("Lynn") dtblNames.Rows.Add("Sole") dtblNames.Rows.Add(System.DBNull.Value) ' Convert datatable to a list. ' When converting to a primitive type, only the first column is returned Dim listNames = dtblNames.ToList(Of String) ' Loop through the items in the returned list For Each item In listNames Display($"{If(item Is Nothing, "[Nothing]", item.ToString)}") Next Display("") ' Declare multi column datatable Dim dtblParts = New DataTable dtblParts.Columns.Add("PartName", GetType(String)) dtblParts.Columns.Add("PartId", GetType(Integer)) dtblParts.Rows.Add({"crank arm", 1234}) dtblParts.Rows.Add({"chain ring", 1334}) dtblParts.Rows.Add({"regular seat", 1434}) dtblParts.Rows.Add({"banana seat", 1444}) dtblParts.Rows.Add({"cassette", 1534}) dtblParts.Rows.Add({"shift lever", 1634}) dtblParts.Rows.Add({System.DBNull.Value, System.DBNull.Value}) ' Convert datatable to a list. ' When converting to an object, all matching columns are returned Dim listParts = dtblParts.ToList(Of Part) ' Access properties like normal For Each item In listParts Display($"{If(item.PartId Is Nothing, "[Nothing]", item.PartId.ToString)} - {If(item.PartName Is Nothing, "[Nothing]", item.PartName.ToString)}") Next Display("") Catch ex As Exception Display(ex.ToString) Finally Console.ReadLine() End Try End Sub Public Sub Display(message As String) Console.WriteLine(message) Debug.Print(message) End Sub End Module ' http://programmingnotes.org/ |
QUICK NOTES:
The highlighted lines are sections of interest to look out for.
The code is heavily commented, so no further insight is necessary. If you have any questions, feel free to leave a comment below.
VB.NET || How To Set & Get The Description Of An Enum Using VB.NET
The following is a module with functions which demonstrates how to set and get the description of an enum using VB.NET.
This function uses the DescriptionAttribute to get the description of an Enum element. If a description attribute is not specified, the string value of the Enum element is returned.
1. Get Description
The example below demonstrates the use of ‘Utils.GetDescription‘ to get the description of enum elements.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 |
' Get Description Imports Utils Public Enum MimeTypes <System.ComponentModel.Description("application/pdf")> ApplicationPDF = 1 <System.ComponentModel.Description("application/octet-stream")> ApplicationOctect = 2 <System.ComponentModel.Description("application/zip")> ApplicationZip = 3 <System.ComponentModel.Description("application/msword")> ApplicationMSWordDOC = 4 <System.ComponentModel.Description("application/vnd.openxmlformats-officedocument.wordprocessingml.document")> ApplicationMSWordDOCX = 5 <System.ComponentModel.Description("application/vnd.ms-excel")> ApplicationMSExcelXLS = 6 <System.ComponentModel.Description("application/vnd.openxmlformats-officedocument.spreadsheetml.sheet")> ApplicationMSExcelXLSX = 7 End Enum For Each value As MimeTypes In System.[Enum].GetValues(GetType(MimeTypes)) Debug.Print($"Numeric Value: {CInt(value)}, Name: {value.ToString}, Description: {value.GetDescription}") Next ' expected output: ' Numeric Value: 1, Name: ApplicationPDF, Description: application/pdf ' Numeric Value: 2, Name: ApplicationOctect, Description: application/octet-stream ' Numeric Value: 3, Name: ApplicationZip, Description: application/zip ' Numeric Value: 4, Name: ApplicationMSWordDOC, Description: application/msword ' Numeric Value: 5, Name: ApplicationMSWordDOCX, Description: application/vnd.openxmlformats-officedocument.wordprocessingml.document" ' Numeric Value: 6, Name: ApplicationMSExcelXLS, Description: application/vnd.ms-excel ' Numeric Value: 7, Name: ApplicationMSExcelXLSX, Description: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet |
2. Utils Namespace
The following is the Utils Namespace. Include this in your project to start using!
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 |
' ============================================================================ ' Author: Kenneth Perkins ' Date: Nov 11, 2020 ' Taken From: http://programmingnotes.org/ ' File: Utils.vb ' Description: Handles general utility functions ' ============================================================================ Option Strict On Option Explicit On Namespace Global.Utils Public Module modUtils ''' <summary> ''' Returns the description of an enum decorated with a DescriptionAttribute ''' </summary> ''' <param name="value">An Enumeration value</param> ''' <returns>The description of an enumeration value</returns> <Runtime.CompilerServices.Extension()> Public Function GetDescription(value As System.[Enum]) As String Dim description = value.ToString Dim attribute = GetAttribute(Of System.ComponentModel.DescriptionAttribute)(value) If attribute IsNot Nothing Then description = attribute.Description End If Return description End Function Public Function GetAttribute(Of T As {System.Attribute})(value As System.[Enum]) As T Dim field = value.GetType().GetField(value.ToString()) Dim attribute = CType(field.GetCustomAttributes(GetType(T), False), T()).FirstOrDefault Return attribute End Function End Module End Namespace ' http://programmingnotes.org/ |
3. More Examples
Below are more examples demonstrating the use of the ‘Utils‘ Namespace. Don’t forget to include the module when running the examples!
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 |
' ============================================================================ ' Author: Kenneth Perkins ' Date: Nov 11, 2020 ' Taken From: http://programmingnotes.org/ ' File: Program.vb ' Description: The following demonstrates the use of the Utils Namespace ' ============================================================================ Option Strict On Option Explicit On Imports System Imports Utils Module Program Public Enum MimeTypes <System.ComponentModel.Description("application/pdf")> ApplicationPDF = 1 <System.ComponentModel.Description("application/octet-stream")> ApplicationOctect = 2 <System.ComponentModel.Description("application/zip")> ApplicationZip = 3 <System.ComponentModel.Description("application/msword")> ApplicationMSWordDOC = 4 <System.ComponentModel.Description("application/vnd.openxmlformats-officedocument.wordprocessingml.document")> ApplicationMSWordDOCX = 5 <System.ComponentModel.Description("application/vnd.ms-excel")> ApplicationMSExcelXLS = 6 <System.ComponentModel.Description("application/vnd.openxmlformats-officedocument.spreadsheetml.sheet")> ApplicationMSExcelXLSX = 7 <System.ComponentModel.Description("application/vnd.ms-powerpoint")> ApplicationMSPowerPointPPT = 8 <System.ComponentModel.Description("application/vnd.openxmlformats-officedocument.presentationml.presentation")> ApplicationMSPowerPointPPTX = 9 <System.ComponentModel.Description("audio/basic")> AudioBasic = 10 <System.ComponentModel.Description("audio/mpeg")> AudioMPEG = 11 <System.ComponentModel.Description("audio/x-wav")> AudioWAV = 12 <System.ComponentModel.Description("image/gif")> ImageGIF = 13 <System.ComponentModel.Description("image/jpeg")> ImageJPEG = 14 <System.ComponentModel.Description("image/png")> ImagePNG = 15 <System.ComponentModel.Description("text/html")> TextHTML = 16 <System.ComponentModel.Description("text/plain")> TextPlain = 17 <System.ComponentModel.Description("video/mpeg")> VideoMPEG = 18 <System.ComponentModel.Description("video/x-msvideo")> VideoAVI = 19 End Enum Sub Main(args As String()) Try For Each value As MimeTypes In System.[Enum].GetValues(GetType(MimeTypes)) Display($"Numeric Value: {CInt(value)}, Name: {value.ToString}, Description: {value.GetDescription}") Next Catch ex As Exception Display(ex.ToString) Finally Console.ReadLine() End Try End Sub Public Sub Display(message As String) Console.WriteLine(message) Debug.Print(message) End Sub End Module ' http://programmingnotes.org/ |
QUICK NOTES:
The highlighted lines are sections of interest to look out for.
The code is heavily commented, so no further insight is necessary. If you have any questions, feel free to leave a comment below.
VB.NET || How To Iterate & Get The Values Of An Enum Using VB.NET
The following is a module with functions which demonstrates how to iterate and get the values of an enum using VB.NET.
This function is a generic wrapper for the Enum.GetValues function.
1. Get Values – Basic Enum
The example below demonstrates the use of ‘Utils.GetEnumValues‘ to get the values of a simple Enum.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
' Get Values - Basic Enum Enum Colors Red Green Blue Yellow End Enum Dim colors = Utils.GetEnumValues(Of Colors) For Each color In colors Debug.Print($"Numeric Value: {CInt(color)}, Name: {color.ToString}") Next ' expected output: ' Numeric Value: 0, Name: Red ' Numeric Value: 1, Name: Green ' Numeric Value: 2, Name: Blue ' Numeric Value: 3, Name: Yellow |
2. Get Values – Numbered Enum
The example below demonstrates the use of ‘Utils.GetEnumValues‘ to get the values of a numbered Enum.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 |
' Get Values - Numbered Enum Public Enum Pets None = 0 Dog = 1 Cat = 2 Rodent = 4 Bird = 8 Fish = 16 Reptile = 32 Other = 64 End Enum Dim pets = Utils.GetEnumValues(Of Pets) For Each pet In pets Debug.Print($"Numeric Value: {CInt(pet)}, Name: {pet.ToString}") Next ' expected output: ' Numeric Value: 0, Name: None ' Numeric Value: 1, Name: Dog ' Numeric Value: 2, Name: Cat ' Numeric Value: 4, Name: Rodent ' Numeric Value: 8, Name: Bird ' Numeric Value: 16, Name: Fish ' Numeric Value: 32, Name: Reptile ' Numeric Value: 64, Name: Other |
3. Utils Namespace
The following is the Utils Namespace. Include this in your project to start using!
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 |
' ============================================================================ ' Author: Kenneth Perkins ' Date: Nov 11, 2020 ' Taken From: http://programmingnotes.org/ ' File: Utils.vb ' Description: Handles general utility functions ' ============================================================================ Option Strict On Option Explicit On Namespace Global.Utils Public Module modUtils ''' <summary> ''' Returns a List of the values of the constants in a specified enumeration ''' </summary> ''' <returns>The values contained in the enumeration</returns> Public Function GetEnumValues(Of T)() As List(Of T) Dim type = GetType(T) If Not type.IsSubclassOf(GetType(System.[Enum])) Then Throw New InvalidCastException($"Unable to cast '{type.FullName}' to System.Enum") End If Dim result = New List(Of T) For Each value As T In System.[Enum].GetValues(type) result.Add(value) Next Return result End Function End Module End Namespace ' http://programmingnotes.org/ |
4. More Examples
Below are more examples demonstrating the use of the ‘Utils‘ Namespace. Don’t forget to include the module when running the examples!
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 |
' ============================================================================ ' Author: Kenneth Perkins ' Date: Nov 11, 2020 ' Taken From: http://programmingnotes.org/ ' File: Program.vb ' Description: The following demonstrates the use of the Utils Namespace ' ============================================================================ Option Strict On Option Explicit On Imports System Module Program Enum Colors Red Green Blue Yellow End Enum Public Enum Pets None = 0 Dog = 1 Cat = 2 Rodent = 4 Bird = 8 Fish = 16 Reptile = 32 Other = 64 End Enum Sub Main(args As String()) Try Dim colors = Utils.GetEnumValues(Of Colors) For Each color In colors Display($"Numeric Value: {CInt(color)}, Name: {color.ToString}") Next Display("") Dim pets = Utils.GetEnumValues(Of Pets) For Each pet In pets Display($"Numeric Value: {CInt(pet)}, Name: {pet.ToString}") Next Catch ex As Exception Display(ex.ToString) Finally Console.ReadLine() End Try End Sub Public Sub Display(message As String) Console.WriteLine(message) Debug.Print(message) End Sub End Module ' http://programmingnotes.org/ |
QUICK NOTES:
The highlighted lines are sections of interest to look out for.
The code is heavily commented, so no further insight is necessary. If you have any questions, feel free to leave a comment below.
VB.NET || How To Resize & Rotate Image, Convert Image To Byte Array, Change Image Format, & Fix Image Orientation Using VB.NET
The following is a module with functions which demonstrates how to resize an image, rotate an image to a specific angle, convert an image to a byte array, change an image format, and fix an image orientation Using VB.NET.
Contents
1. Overview
2. Resize & Rotate - Image
3. Resize & Rotate - Byte Array
4. Resize & Rotate - Memory Stream
5. Convert Image To Byte Array
6. Change Image Format
7. Fix Image Orientation
8. Utils Namespace
9. More Examples
1. Overview
To use the functions in this module, make sure you have a reference to ‘System.Drawing‘ in your project.
One way to do this is, in your Solution Explorer (where all the files are shown with your project), right click the ‘References‘ folder, click ‘Add References‘, then type ‘System.Drawing‘ in the search box, and add a reference to System.Drawing in the results Tab.
Note: Don’t forget to include the ‘Utils Namespace‘ before running the examples!
2. Resize & Rotate – Image
The example below demonstrates the use of ‘Utils.Image.Resize‘ and ‘Utils.Image.Rotate‘ to resize and rotate an image object.
Resizing and rotating an image returns a newly created image object.
|
1 2 3 4 5 6 7 8 9 10 11 12 |
' Resize & Rotate - Image Imports Utils.Image Dim path = $"path-to-file\file.extension" Dim image = System.Drawing.Image.FromFile(path) ' Resize image 500x500 Dim resized = image.Resize(New System.Drawing.Size(500, 500)) ' Rotate 90 degrees counter clockwise Dim rotated = image.Rotate(-90) |
3. Resize & Rotate – Byte Array
The example below demonstrates the use of ‘Utils.Image.Resize‘ and ‘Utils.Image.Rotate‘ to resize and rotate a byte array.
Resizing and rotating an image returns a newly created image object.
|
1 2 3 4 5 6 7 8 9 10 |
' Resize & Rotate - Byte Array ' Read file to byte array Dim bytes As Byte() ' Resize image 800x800 Dim resized = Utils.Image.Resize(bytes, New System.Drawing.Size(800, 800)) ' Rotate 180 degrees clockwise Dim rotated = Utils.Image.Rotate(bytes, 180) |
4. Resize & Rotate – Memory Stream
The example below demonstrates the use of ‘Utils.Image.Resize‘ and ‘Utils.Image.Rotate‘ to resize and rotate a memory stream.
Resizing and rotating an image returns a newly created image object.
|
1 2 3 4 5 6 7 8 9 10 |
' Resize & Rotate - Memory Stream ' Read file to memory stream Dim stream As New System.IO.MemoryStream() ' Resize image 2000x2000 Dim resized = Utils.Image.Resize(stream, New System.Drawing.Size(2000, 2000)) ' Rotate 360 degrees Dim rotated = Utils.Image.Rotate(stream, 360) |
5. Convert Image To Byte Array
The example below demonstrates the use of ‘Utils.Image.ToArray‘ to convert an image object to a byte array.
The optional function parameter allows you to specify the image format.
|
1 2 3 4 5 6 7 8 9 |
' Convert Image To Byte Array Imports Utils.Image Dim path = $"path-to-file\file.extension" Dim image = System.Drawing.Image.FromFile(path) ' Convert image to byte array Dim bytes = image.ToArray() |
6. Change Image Format
The example below demonstrates the use of ‘Utils.Image.ConvertFormat‘ to convert the image object raw format to another format.
Converting an images format returns a newly created image object.
|
1 2 3 4 5 6 7 8 9 |
' Change Image Format Imports Utils.Image Dim path = $"path-to-file\file.extension" Dim image = System.Drawing.Image.FromFile(path) ' Convert image to another format Dim newImage = image.ConvertFormat(System.Drawing.Imaging.ImageFormat.Png) |
7. Fix Image Orientation
The example below demonstrates the use of ‘Utils.Image.FixOrientation‘ to update the image object to reflect its Exif orientation.
When you view an image in a Photo Viewer, it automatically corrects image orientation if it has Exif orientation data.
‘Utils.Image.FixOrientation‘ makes it so the loaded image object reflects the correct orientation when rendered according to its Exif orientation data.
|
1 2 3 4 5 6 7 8 9 |
' Fix Image Orientation Imports Utils.Image Dim path = $"path-to-file\file.extension" Dim image = System.Drawing.Image.FromFile(path) ' Correct the image object to reflect its Exif orientation image.FixOrientation |
8. Utils Namespace
The following is the Utils Namespace. Include this in your project to start using!
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 |
' ============================================================================ ' Author: Kenneth Perkins ' Date: Nov 9, 2020 ' Taken From: http://programmingnotes.org/ ' File: Utils.vb ' Description: Handles general utility functions ' ============================================================================ Option Strict On Option Explicit On Namespace Global.Utils Namespace Image Public Module modImage ''' <summary> ''' Resizes an image to a specified size ''' </summary> ''' <param name="source">The image to resize</param> ''' <param name="desiredSize">The size to resize the image to</param> ''' <param name="preserveAspectRatio">Determines if the aspect ratio should be preserved</param> ''' <returns>A new image resized to the specified size</returns> <Runtime.CompilerServices.Extension()> Public Function Resize(source As System.Drawing.Image, desiredSize As System.Drawing.Size, Optional preserveAspectRatio As Boolean = True) As System.Drawing.Image If desiredSize.IsEmpty Then Throw New ArgumentException("Image size cannot be empty", NameOf(desiredSize)) End If Dim resizedWidth = desiredSize.Width Dim resizedHeight = desiredSize.Height Dim sourceFormat = source.RawFormat source.FixOrientation If preserveAspectRatio Then Dim sourceWidth = Math.Max(source.Width, 1) Dim sourceHeight = Math.Max(source.Height, 1) Dim resizedPercentWidth = desiredSize.Width / sourceWidth Dim resizedPercentHeight = desiredSize.Height / sourceHeight Dim resizedPercentRatio = Math.Min(resizedPercentHeight, resizedPercentWidth) resizedWidth = CInt(sourceWidth * resizedPercentRatio) resizedHeight = CInt(sourceHeight * resizedPercentRatio) End If Dim resizedImage = New System.Drawing.Bitmap(resizedWidth, resizedHeight) resizedImage.SetResolution(source.HorizontalResolution, source.VerticalResolution) Using graphicsHandle = System.Drawing.Graphics.FromImage(resizedImage) graphicsHandle.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.HighQualityBicubic graphicsHandle.CompositingQuality = System.Drawing.Drawing2D.CompositingQuality.HighQuality graphicsHandle.PixelOffsetMode = System.Drawing.Drawing2D.PixelOffsetMode.HighQuality graphicsHandle.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality graphicsHandle.DrawImage(source, 0, 0, resizedWidth, resizedHeight) End Using If Not sourceFormat.Equals(resizedImage.RawFormat) Then resizedImage = CType(resizedImage.ConvertFormat(sourceFormat), System.Drawing.Bitmap) End If Return resizedImage End Function ''' <summary> ''' Resizes an image to a specified size ''' </summary> ''' <param name="stream">The stream of the image to resize</param> ''' <param name="desiredSize">The size to resize the image to</param> ''' <param name="preserveAspectRatio">Determines if the aspect ratio should be preserved</param> ''' <returns>A new image resized to the specified size</returns> Public Function Resize(stream As System.IO.Stream, desiredSize As System.Drawing.Size, Optional preserveAspectRatio As Boolean = True) As System.Drawing.Image Dim image As System.Drawing.Image Using original = StreamToImage(stream) image = Resize(original, desiredSize, preserveAspectRatio:=preserveAspectRatio) End Using Return image End Function ''' <summary> ''' Resizes an image to a specified size ''' </summary> ''' <param name="bytes">The byte array of the image to resize</param> ''' <param name="desiredSize">The size to resize the image to</param> ''' <param name="preserveAspectRatio">Determines if the aspect ratio should be preserved</param> ''' <returns>A new image resized to the specified size</returns> Public Function Resize(bytes As Byte(), desiredSize As System.Drawing.Size, Optional preserveAspectRatio As Boolean = True) As System.Drawing.Image Dim image As System.Drawing.Image Using original = BytesToImage(bytes) image = Resize(original, desiredSize, preserveAspectRatio:=preserveAspectRatio) End Using Return image End Function ''' <summary> ''' Rotates an image to a specified angle ''' </summary> ''' <param name="source">The image to resize</param> ''' <param name="angle">The angle to rotate the image</param> ''' <returns>A new image rotated to the specified angle</returns> <Runtime.CompilerServices.Extension()> Public Function Rotate(source As System.Drawing.Image, angle As Decimal) As System.Drawing.Image Dim sourceFormat = source.RawFormat source.FixOrientation Dim alpha = angle While alpha < 0 alpha += 360 End While Dim gamma = 90D Dim beta = 180 - angle - gamma Dim c1 = source.Height Dim a1 = Math.Abs((c1 * Math.Sin(alpha * Math.PI / 180))) Dim b1 = Math.Abs((c1 * Math.Sin(beta * Math.PI / 180))) Dim c2 = source.Width Dim a2 = Math.Abs((c2 * Math.Sin(alpha * Math.PI / 180))) Dim b2 = Math.Abs((c2 * Math.Sin(beta * Math.PI / 180))) Dim width = CInt(b2 + a1) Dim height = CInt(b1 + a2) Dim rotatedImage = New System.Drawing.Bitmap(width, height) rotatedImage.SetResolution(source.HorizontalResolution, source.VerticalResolution) Using graphicsHandle = System.Drawing.Graphics.FromImage(rotatedImage) graphicsHandle.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.HighQualityBicubic graphicsHandle.CompositingQuality = System.Drawing.Drawing2D.CompositingQuality.HighQuality graphicsHandle.PixelOffsetMode = System.Drawing.Drawing2D.PixelOffsetMode.HighQuality graphicsHandle.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality graphicsHandle.TranslateTransform(rotatedImage.Width \ 2, rotatedImage.Height \ 2) graphicsHandle.RotateTransform(angle) graphicsHandle.TranslateTransform(-rotatedImage.Width \ 2, -rotatedImage.Height \ 2) graphicsHandle.DrawImage(source, New System.Drawing.Point((width - source.Width) \ 2, (height - source.Height) \ 2)) End Using If Not sourceFormat.Equals(rotatedImage.RawFormat) Then rotatedImage = CType(rotatedImage.ConvertFormat(sourceFormat), System.Drawing.Bitmap) End If Return rotatedImage End Function ''' <summary> ''' Rotates an image to a specified angle ''' </summary> ''' <param name="stream">The stream of the image to resize</param> ''' <param name="angle">The angle to rotate the image</param> ''' <returns>A new image rotated to the specified angle</returns> Public Function Rotate(stream As System.IO.Stream, angle As Decimal) As System.Drawing.Image Dim image As System.Drawing.Image Using original = StreamToImage(stream) image = Rotate(original, angle) End Using Return image End Function ''' <summary> ''' Rotates an image to a specified angle ''' </summary> ''' <param name="bytes">The byte array of the image to rotate</param> ''' <param name="angle">The angle to rotate the image</param> ''' <returns>A new image rotated to the specified angle</returns> Public Function Rotate(bytes As Byte(), angle As Decimal) As System.Drawing.Image Dim image As System.Drawing.Image Using original = BytesToImage(bytes) image = Rotate(original, angle) End Using Return image End Function ''' <summary> ''' Converts an image to a byte array ''' </summary> ''' <param name="source">The image to convert</param> ''' <param name="format">The format the byte array image should be converted to</param> ''' <returns>The image as a byte array</returns> <Runtime.CompilerServices.Extension()> Public Function ToArray(source As System.Drawing.Image, Optional format As System.Drawing.Imaging.ImageFormat = Nothing) As Byte() If format Is Nothing Then format = source.ResolvedFormat If format.Equals(System.Drawing.Imaging.ImageFormat.MemoryBmp) Then format = System.Drawing.Imaging.ImageFormat.Png End If End If Dim bytes As Byte() Using stream = New System.IO.MemoryStream source.Save(stream, format) bytes = stream.ToArray End Using Return bytes End Function ''' <summary> ''' Converts an image to a different ImageFormat ''' </summary> ''' <param name="source">The image to convert</param> ''' <param name="format">The format the image should be changed to</param> ''' <returns>The new image converted to the specified format</returns> <Runtime.CompilerServices.Extension()> Public Function ConvertFormat(source As System.Drawing.Image, format As System.Drawing.Imaging.ImageFormat) As System.Drawing.Image Dim bytes = source.ToArray(format) Dim image = BytesToImage(bytes) Return image End Function ''' <summary> ''' Returns the resolved static image format from an images RawFormat ''' </summary> ''' <param name="source">The image to get the format from</param> ''' <returns>The resolved image format</returns> <Runtime.CompilerServices.Extension()> Public Function ResolvedFormat(source As System.Drawing.Image) As System.Drawing.Imaging.ImageFormat Dim format = FindImageFormat(source.RawFormat) Return format End Function ''' <summary> ''' Returns all the ImageFormats as an IEnumerable ''' </summary> ''' <returns>All the ImageFormats as an IEnumerable</returns> Public Function GetImageFormats() As IEnumerable(Of System.Drawing.Imaging.ImageFormat) Static formats As IEnumerable(Of System.Drawing.Imaging.ImageFormat) = GetType(System.Drawing.Imaging.ImageFormat) _ .GetProperties(Reflection.BindingFlags.Static Or Reflection.BindingFlags.Public) _ .Select(Function(p) CType(p.GetValue(Nothing, Nothing), System.Drawing.Imaging.ImageFormat)) Return formats End Function ''' <summary> ''' Returns the static image format from a RawFormat ''' </summary> ''' <param name="raw">The ImageFormat to get info from</param> ''' <returns>The resolved image format</returns> Public Function FindImageFormat(raw As System.Drawing.Imaging.ImageFormat) As System.Drawing.Imaging.ImageFormat Dim format = GetImageFormats().FirstOrDefault(Function(x) raw.Equals(x)) If format Is Nothing Then format = System.Drawing.Imaging.ImageFormat.Png End If Return format End Function ''' <summary> ''' Update the image to reflect its exif orientation ''' </summary> ''' <param name="image">The image to update</param> <Runtime.CompilerServices.Extension()> Public Sub FixOrientation(image As System.Drawing.Image) Dim orientationId = 274 If Not image.PropertyIdList.Contains(orientationId) Then Return End If Dim orientation = BitConverter.ToInt16(image.GetPropertyItem(orientationId).Value, 0) Dim rotateFlip = System.Drawing.RotateFlipType.RotateNoneFlipNone Select Case orientation Case 1 ' Image is correctly oriented rotateFlip = System.Drawing.RotateFlipType.RotateNoneFlipNone Case 2 ' Image has been mirrored horizontally rotateFlip = System.Drawing.RotateFlipType.RotateNoneFlipX Case 3 ' Image has been rotated 180 degrees rotateFlip = System.Drawing.RotateFlipType.Rotate180FlipNone Case 4 ' Image has been mirrored horizontally and rotated 180 degrees rotateFlip = System.Drawing.RotateFlipType.Rotate180FlipX Case 5 ' Image has been mirrored horizontally and rotated 90 degrees clockwise rotateFlip = System.Drawing.RotateFlipType.Rotate90FlipX Case 6 ' Image has been rotated 90 degrees clockwise rotateFlip = System.Drawing.RotateFlipType.Rotate90FlipNone Case 7 ' Image has been mirrored horizontally and rotated 270 degrees clockwise rotateFlip = System.Drawing.RotateFlipType.Rotate270FlipX Case 8 ' Image has been rotated 270 degrees clockwise rotateFlip = System.Drawing.RotateFlipType.Rotate270FlipNone End Select If rotateFlip <> System.Drawing.RotateFlipType.RotateNoneFlipNone Then image.RotateFlip(rotateFlip) End If End Sub ''' <summary> ''' Returns an image from a byte array ''' </summary> ''' <param name="bytes">The bytes representing the image</param> ''' <returns>The image from the byte array</returns> Public Function BytesToImage(bytes As Byte()) As System.Drawing.Image Return StreamToImage(New System.IO.MemoryStream(bytes)) End Function ''' <summary> ''' Returns an image from a stream ''' </summary> ''' <param name="stream">The stream representing the image</param> ''' <returns>The image from the stream</returns> Public Function StreamToImage(stream As System.IO.Stream) As System.Drawing.Image Return System.Drawing.Image.FromStream(stream) End Function End Module End Namespace End Namespace ' http://programmingnotes.org/ |
9. More Examples
Below are more examples demonstrating the use of the ‘Utils‘ Namespace. Don’t forget to include the module when running the examples!
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 |
' ============================================================================ ' Author: Kenneth Perkins ' Date: Nov 9, 2020 ' Taken From: http://programmingnotes.org/ ' File: Program.vb ' Description: The following demonstrates the use of the Utils Namespace ' ============================================================================ Option Strict On Option Explicit On Imports System Imports Utils.Image Module Program Sub Main(args As String()) Try Dim path = $"" ' Image Dim image = System.Drawing.Image.FromFile(path) 'Dim newImage = image.Resize(New System.Drawing.Size(500, 500)) Dim newImage = image.Rotate(-90) ' Byte 'Dim bytes As Byte() 'Dim newImage = Utils.Image.Resize(bytes, New System.Drawing.Size(800, 800)) 'Dim newImage = Utils.Image.Rotate(bytes, 180) ' Stream 'Dim stream As New System.IO.MemoryStream 'Dim newImage = Utils.Image.Resize(stream, New System.Drawing.Size(2000, 2000)) 'Dim newImage = Utils.Image.Rotate(stream, 360) Dim newPath = $"" newImage.Save(newPath) Catch ex As Exception Display(ex.ToString) Finally Console.ReadLine() End Try End Sub Public Sub Display(message As String) Console.WriteLine(message) Debug.Print(message) End Sub End Module ' http://programmingnotes.org/ |
QUICK NOTES:
The highlighted lines are sections of interest to look out for.
The code is heavily commented, so no further insight is necessary. If you have any questions, feel free to leave a comment below.
VB.NET || How To Convert A String To Byte Array & Byte Array To String Using VB.NET
The following is a module with functions which demonstrates how to convert a string to a byte array and a byte array to a string using VB.NET.
1. String To Byte Array
The example below demonstrates the use of ‘Utils.GetBytes‘ to convert a string to a byte array. The optional parameter allows to specify the encoding.
|
1 2 3 4 5 6 7 8 |
' String To Byte Array Imports Utils Dim text = $"My Programming Notes!" Dim bytes = text.GetBytes() ' Do something with the byte array |
2. Byte Array To String
The example below demonstrates the use of ‘Utils.GetString‘ to convert a byte array to a string. The optional parameter allows to specify the encoding.
|
1 2 3 4 5 6 7 8 9 |
' Byte Array To String Imports Utils Dim text = $"My Programming Notes!" Dim bytes = text.GetBytes() Dim str = bytes.GetString() ' Do something with the string |
3. Utils Namespace
The following is the Utils Namespace. Include this in your project to start using!
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 |
' ============================================================================ ' Author: Kenneth Perkins ' Date: Nov 5, 2020 ' Taken From: http://programmingnotes.org/ ' File: Utils.vb ' Description: Handles general utility functions ' ============================================================================ Option Strict On Option Explicit On Namespace Global.Utils Public Module modUtils ''' <summary> ''' Decodes all bytes in the specified byte array into a string ''' </summary> ''' <param name="bytes">The byte array containing the sequence of bytes to decode</param> ''' <param name="encode">The type of encoding to be used. Default is UTF8Encoding</param> ''' <returns> A byte array containing the results of encoding</returns> <Runtime.CompilerServices.Extension()> Public Function GetString(bytes As Byte(), Optional encode As System.Text.Encoding = Nothing) As String If encode Is Nothing Then encode = New System.Text.UTF8Encoding End If Return encode.GetString(bytes) End Function ''' <summary> ''' Encodes the characters in the specified string into a sequence of bytes ''' </summary> ''' <param name="str">The string containing the characters to encode</param> ''' <param name="encode">The type of encoding to be used. Default is UTF8Encoding</param> ''' <returns> A byte array containing the results of encoding</returns> <Runtime.CompilerServices.Extension()> Public Function GetBytes(str As String, Optional encode As System.Text.Encoding = Nothing) As Byte() If encode Is Nothing Then encode = New System.Text.UTF8Encoding End If Return encode.GetBytes(str) End Function End Module End Namespace ' http://programmingnotes.org/ |
4. More Examples
Below are more examples demonstrating the use of the ‘Utils‘ Namespace. Don’t forget to include the module when running the examples!
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 |
' ============================================================================ ' Author: Kenneth Perkins ' Date: Nov 5, 2020 ' Taken From: http://programmingnotes.org/ ' File: Program.vb ' Description: The following demonstrates the use of the Utils Namespace ' ============================================================================ Option Strict On Option Explicit On Imports System Module Program Sub Main(args As String()) Try Dim text = $"My Programming Notes!" Dim bytes = Utils.GetBytes(text) Dim str = Utils.GetString(bytes) Display(str) Display($"{str = text}") Catch ex As Exception Display(ex.ToString) Finally Console.ReadLine() End Try End Sub Public Sub Display(message As String) Console.WriteLine(message) Debug.Print(message) End Sub End Module ' http://programmingnotes.org/ |
QUICK NOTES:
The highlighted lines are sections of interest to look out for.
The code is heavily commented, so no further insight is necessary. If you have any questions, feel free to leave a comment below.
VB.NET || How To Save, Open & Read File As A Byte Array & Memory Stream Using VB.NET
The following is a module with functions which demonstrates how to save, open and read a file as a byte array and memory stream using VB.NET.
1. Read File – Byte Array
The example below demonstrates the use of ‘Utils.ReadFile‘ to read a file as a byte array.
|
1 2 3 4 5 6 |
' Byte Array Dim path = $"path-to-file\file.extension" Dim fileByteArray = Utils.ReadFile(path) ' Do something with the byte array |
2. Read File – Memory Stream
The example below demonstrates the use of ‘Utils.ReadFile‘ to read a file as a memory stream.
|
1 2 3 4 5 6 |
' Memory Stream Dim path = $"path-to-file\file.extension" Using fileMS = New System.IO.MemoryStream(Utils.ReadFile(path)) ' Do something with the stream End Using |
3. Save File – Byte Array
The example below demonstrates the use of ‘Utils.SaveFile‘ to save the contents of a byte array to a file.
|
1 2 3 4 5 6 |
' Byte Array Dim path = $"path-to-file\file.extension" Dim bytes As Byte() Utils.SaveFile(path, bytes) |
4. Save File – Memory Stream
The example below demonstrates the use of ‘Utils.SaveFile‘ to save the contents of a memory stream to a file.
|
1 2 3 4 5 6 |
' Memory Stream Dim path = $"path-to-file\file.extension" Dim fileMS As System.IO.MemoryStream Utils.SaveFile(path, fileMS.ToArray) |
5. Utils Namespace
The following is the Utils Namespace. Include this in your project to start using!
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 |
' ============================================================================ ' Author: Kenneth Perkins ' Date: Nov 5, 2020 ' Taken From: http://programmingnotes.org/ ' File: Utils.vb ' Description: Handles general utility functions ' ============================================================================ Option Strict On Option Explicit On Namespace Global.Utils Public Module modUtils ''' <summary> ''' Reads a file at the given path into a byte array ''' </summary> ''' <param name="filePath">The path of the file to be read</param> ''' <param name="shareOption">Determines how the file will be shared by processes</param> ''' <returns>The contents of the file as a byte array</returns> Public Function ReadFile(filePath As String, Optional shareOption As System.IO.FileShare = System.IO.FileShare.None) As Byte() Dim fileBytes() As Byte Using fs = New System.IO.FileStream(filePath, System.IO.FileMode.Open, System.IO.FileAccess.Read, shareOption) ReDim fileBytes(CInt(fs.Length - 1)) fs.Read(fileBytes, 0, fileBytes.Length) End Using Return fileBytes End Function ''' <summary> ''' Saves a file at the given path with the contents of the byte array ''' </summary> ''' <param name="filePath">The path of the file to be saved</param> ''' <param name="fileBytes">The byte array containing the file contents</param> ''' <param name="shareOption">Determines how the file will be shared by processes</param> Public Sub SaveFile(filePath As String, fileBytes As Byte(), Optional shareOption As System.IO.FileShare = System.IO.FileShare.None) Using fs = New System.IO.FileStream(filePath, System.IO.FileMode.Create, System.IO.FileAccess.Write, shareOption) fs.Write(fileBytes, 0, fileBytes.Length) End Using End Sub End Module End Namespace ' http://programmingnotes.org/ |
6. More Examples
Below are more examples demonstrating the use of the ‘Utils‘ Namespace. Don’t forget to include the module when running the examples!
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 |
' ============================================================================ ' Author: Kenneth Perkins ' Date: Nov 5, 2020 ' Taken From: http://programmingnotes.org/ ' File: Program.vb ' Description: The following demonstrates the use of the Utils Namespace ' ============================================================================ Option Strict On Option Explicit On Imports System Module Program Sub Main(args As String()) Try Dim path = $"" Dim fileByteArray = Utils.ReadFile(path, System.IO.FileShare.None) Display("") Using fileMS = New System.IO.MemoryStream(Utils.ReadFile(path, System.IO.FileShare.None)) ' Do something with the stream End Using Catch ex As Exception Display(ex.ToString) Finally Console.ReadLine() End Try End Sub Public Sub Display(message As String) Console.WriteLine(message) Debug.Print(message) End Sub End Module ' http://programmingnotes.org/ |
QUICK NOTES:
The highlighted lines are sections of interest to look out for.
The code is heavily commented, so no further insight is necessary. If you have any questions, feel free to leave a comment below.
VB.NET || How To Validate An Email Address Using VB.NET
The following is a module with functions which demonstrates how to determine if an email address is valid using VB.NET.
This function is based on RFC2821 and RFC2822 to determine the validity of an email address.
1. Validate Email – Basic Usage
The example below demonstrates the use of ‘Utils.Email.IsValid‘ to determine if an email address is valid.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 |
' Validate Email Dim addresses = New List(Of String) From { "a@gmail.comm", "name@yah00.com", "_name@yah00.com", "name@again@example.com", "anystring@anystring.anystring", "prettyandsimple@example.com", "very.common@example.com", "disposable.style.email.with+symbol@example.com", "other.email-with-dash@example.com", "x@example.com", """much.more unusual""@example.com", """very.unusual.@.unusual.com""@example.com", "<< example-indeed@strange-example.com >>", "<< admin@mailserver1 >>", "<< #!$%&\'*+-/=?^_`{}|~@example.org >>", "example@s.solutions", "user@com", "john.doe@example..com", "john..doe@example.com", "A@b@c@example.com" } For Each email In addresses Debug.Print($"Email: {email}, Is Valid: {Utils.Email.IsValid(email)}") Next ' expected output: ' Email: a@gmail.comm, Is Valid: True ' Email: name@yah00.com, Is Valid: True ' Email: _name@yah00.com, Is Valid: False ' Email: name@again@example.com, Is Valid: False ' Email: anystring@anystring.anystring, Is Valid: True ' Email: prettyandsimple@example.com, Is Valid: True ' Email: very.common@example.com, Is Valid: True ' Email: disposable.style.email.with+symbol@example.com, Is Valid: True ' Email: other.email-with-dash@example.com, Is Valid: True ' Email: x@example.com, Is Valid: True ' Email: "much.more unusual"@example.com, Is Valid: False ' Email: "very.unusual.@.unusual.com"@example.com, Is Valid: False ' Email: << example-indeed@strange-example.com >>, Is Valid: False ' Email: << admin@mailserver1 >>, Is Valid: False ' Email: << #!$%&\'*+-/=?^_`{}|~@example.org >>, Is Valid: False ' Email: example@s.solutions, Is Valid: True ' Email: user@com, Is Valid: False ' Email: john.doe@example..com, Is Valid: False ' Email: john..doe@example.com, Is Valid: False ' Email: A@b@c@example.com, Is Valid: False |
2. Validate Email – Additional Options
The example below demonstrates the use of ‘Utils.Email.IsValid‘ to determine if an email address is valid with additional validation options.
Supplying options to verify an email address uses the default validity rules, in addition to the provided validation options.
This allows you to add custom rules to determine if an email is valid or not. For example, the misspelling of common email domains, or known spam domains.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 |
' Verify Email Using Default Rules With Additional Options Dim addresses = New List(Of String) From { "a@gmail.comm", "name@yah00.com", "prettyandsimple@bumpymail.com", "disposable@gold2world.com", "user@gold2world.biz" } ' Additional options Dim options = New Utils.Email.Options With { .InvalidDomains = { ' Optional: IEnumerable of invalid domains. Example: gmail.com "aichyna.com", "gawab.com", "gold2world.biz", "front14.org", "bumpymail.com", "pleasantphoto.com", "spam.la" }, .InvalidTopLevelDomains = New String() { ' Optional: IEnumerable of invalid top level domains. Example: .com "comm", "nett", "c0m" }, .InvalidSecondLevelDomains = New List(Of String) From { ' Optional: IEnumerable of invalid second level domains. Example: gmail "yah00", "ynail", "gnail" } } For Each email In addresses Debug.Print($"Email: {email}, Is Valid: {Utils.Email.IsValid(email, options)}") Next ' expected output: ' Email: a@gmail.comm, Is Valid: False ' Email: name@yah00.com, Is Valid: False ' Email: prettyandsimple@bumpymail.com, Is Valid: False ' Email: disposable@gold2world.com, Is Valid: True ' Email: user@gold2world.biz, Is Valid: False |
3. Utils Namespace
The following is the Utils Namespace. Include this in your project to start using!
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 |
' ============================================================================ ' Author: Kenneth Perkins ' Date: Nov 4, 2020 ' Taken From: http://programmingnotes.org/ ' File: Utils.vb ' Description: Handles general utility functions ' ============================================================================ Option Strict On Option Explicit On Namespace Global.Utils Public Module modUtils Public MustInherit Class Email ''' <summary> ''' Based on RFC2821 and RFC2822 to determine the validity of an ''' email address ''' </summary> ''' <param name="emailAddress">The email address to verify</param> ''' <param name="options">Additional email restrictions</param> ''' <returns>True if the email address is valid, false otherwise</returns> Public Shared Function IsValid(emailAddress As String, Optional options As Email.Options = Nothing) As Boolean If String.IsNullOrWhiteSpace(emailAddress) OrElse emailAddress.Length > 100 Then Return False End If Dim optionsPattern = If(options Is Nothing, String.Empty, options.Pattern) 'https://www.jochentopf.com/email/characters-in-email-addresses.pdf Dim pattern = "^[^a-zA-Z0-9]|[^a-zA-Z0-9]$" & ' First and last characters should be between a-z, A-Z, or 0-9. "|[\000-\052]|[\074-\077]" & ' Invalid characers between oct 000-052, and oct 074-077. "|^((?!@).)*$" & ' Must contain an '@' character. "|(@.*){2}" & ' Must not contain more than one '@' character. "|@[^.]*$" & ' Must contain at least one '.' character after the '@' character. "|~" & ' Invalid '~' character. "|\.@" & ' First character before the '@' must not be '.' character. "|@\." & ' First character after the '@' must not be '.' character. "|;|:|,|\^|\[|\]|\\|\{|\}|`|\t" & ' Must not contain various invalid characters. "|[\177-\377]" & ' Invalid characers between oct 177-377. "|\/|\.\.|^\.|\.$|@@" & ' Must not contain '/', '..', '@@' or end with '.' character. If(String.IsNullOrWhiteSpace(optionsPattern), String.Empty, $"|{optionsPattern}") Dim regex = New Text.RegularExpressions.Regex(pattern, Text.RegularExpressions.RegexOptions.IgnoreCase) Dim match = regex.Match(emailAddress) If match.Success Then 'Debug.Print("Email address '" & emailAddress & "' contains invalid char/string '" & match.Value & "'.") Return False End If Return True End Function Public Class Options Private Property data As New Dictionary(Of String, Object) Public Sub New() Dim properties = New String() { NameOf(InvalidDomains), NameOf(InvalidTopLevelDomains), NameOf(InvalidSecondLevelDomains), NameOf(Pattern) } For Each prop In properties data.Add(prop, Nothing) Next End Sub ''' <summary> ''' Invalid domains. Example: gmail.com ''' </summary> Public Property InvalidDomains As IEnumerable(Of String) Get Return GetData(Of IEnumerable(Of String))(NameOf(InvalidDomains)) End Get Set(value As IEnumerable(Of String)) SetData(NameOf(InvalidDomains), value) ResetPattern() End Set End Property ''' <summary> ''' Invalid top level domains. Example: .com ''' </summary> Public Property InvalidTopLevelDomains As IEnumerable(Of String) Get Return GetData(Of IEnumerable(Of String))(NameOf(InvalidTopLevelDomains)) End Get Set(value As IEnumerable(Of String)) SetData(NameOf(InvalidTopLevelDomains), value) ResetPattern() End Set End Property ''' <summary> ''' Invalid second level domains. Example: gmail ''' </summary> Public Property InvalidSecondLevelDomains As IEnumerable(Of String) Get Return GetData(Of IEnumerable(Of String))(NameOf(InvalidSecondLevelDomains)) End Get Set(value As IEnumerable(Of String)) SetData(NameOf(InvalidSecondLevelDomains), value) ResetPattern() End Set End Property Public ReadOnly Property Pattern As String Get If GetData(Of Object)(NameOf(Pattern)) Is Nothing Then Dim options = New List(Of String) If InvalidTopLevelDomains IsNot Nothing Then options.AddRange(InvalidTopLevelDomains.Select(Function(domain) FormatTld(domain))) End If If InvalidSecondLevelDomains IsNot Nothing Then options.AddRange(InvalidSecondLevelDomains.Select(Function(domain) FormatSld(domain))) End If If InvalidDomains IsNot Nothing Then options.AddRange(InvalidDomains.Select(Function(domain) FormatDomain(domain))) End If SetData(NameOf(Pattern), String.Join("|", options)) End If Return GetData(Of String)(NameOf(Pattern)) End Get End Property Private Function GetData(Of T)(key As String) As T Return CType(data(key), T) End Function Private Sub SetData(key As String, value As Object) data(key) = value End Sub Private Sub ResetPattern() SetData(NameOf(Pattern), Nothing) End Sub Private Function FormatTld(domain As String) As String If String.IsNullOrWhiteSpace(domain) Then Return domain End If Return AddPeriodSlash(AddPeriod(AddDollar(domain))) End Function Private Function FormatSld(domain As String) As String If String.IsNullOrWhiteSpace(domain) Then Return domain End If Return AddAt(domain) End Function Private Function FormatDomain(domain As String) As String If String.IsNullOrWhiteSpace(domain) Then Return domain End If Return AddPeriodSlash(AddAt(domain)) End Function Private Function AddDollar(domain As String) As String If Not domain.EndsWith("$") Then domain = $"{domain}$" End If Return domain End Function Private Function AddAt(domain As String) As String If Not domain.StartsWith("@") Then domain = $"@{domain}" End If Return domain End Function Private Function AddPeriod(domain As String) As String If Not domain.StartsWith(".") Then domain = $".{domain}" End If Return domain End Function Private Function AddPeriodSlash(domain As String) As String Dim index = domain.LastIndexOf(".") If index > -1 Then domain = domain.Insert(index, "\") End If Return domain End Function End Class End Class End Module End Namespace ' http://programmingnotes.org/ |
4. More Examples
Below are more examples demonstrating the use of the ‘Utils‘ Namespace. Don’t forget to include the module when running the examples!
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 |
' ============================================================================ ' Author: Kenneth Perkins ' Date: Nov 4, 2020 ' Taken From: http://programmingnotes.org/ ' File: Program.vb ' Description: The following demonstrates the use of the Utils Namespace ' ============================================================================ Option Strict On Option Explicit On Imports System Module Program Sub Main(args As String()) Try ' Verify email Dim addresses = New List(Of String) From { "a@gmail.comm", "name@yah00.com", "_name@yah00.com", "name@again@example.com", "anystring@anystring.anystring", "prettyandsimple@example.com", "very.common@example.com", "disposable.style.email.with+symbol@example.com", "other.email-with-dash@example.com", "x@example.com", """much.more unusual""@example.com", """very.unusual.@.unusual.com""@example.com", "<< example-indeed@strange-example.com >>", "<< admin@mailserver1 >>", "<< #!$%&\'*+-/=?^_`{}|~@example.org >>", "example@s.solutions", "user@com", "john.doe@example..com", "john..doe@example.com", "A@b@c@example.com" } For Each email In addresses Display($"Email: {email}, Is Valid: {Utils.Email.IsValid(email)}") Next Display("") ' Verify email using the default rules with additional options Dim addresses2 = New List(Of String) From { "a@gmail.comm", "name@yah00.com", "prettyandsimple@bumpymail.com", "disposable@gold2world.com", "user@gold2world.biz" } ' Additional options Dim options = New Utils.Email.Options With { .InvalidDomains = { ' IEnumerable of invalid domains. Example: gmail.com "aichyna.com", "gawab.com", "gold2world.biz", "front14.org", "bumpymail.com", "pleasantphoto.com", "spam.la" }, .InvalidTopLevelDomains = New String() { ' IEnumerable of invalid top level domains. Example: .com "comm", "nett", "c0m" }, .InvalidSecondLevelDomains = New List(Of String) From { ' IEnumerable of invalid second level domains. Example: gmail "yah00", "ynail" } } For Each email In addresses2 Display($"Email: {email}, Is Valid: {Utils.Email.IsValid(email, options)}") Next Catch ex As Exception Display(ex.ToString) Finally Console.ReadLine() End Try End Sub Public Sub Display(message As String) Console.WriteLine(message) Debug.Print(message) End Sub End Module ' http://programmingnotes.org/ |
QUICK NOTES:
The highlighted lines are sections of interest to look out for.
The code is heavily commented, so no further insight is necessary. If you have any questions, feel free to leave a comment below.
VB.NET || How To Validate A Phone Number Using VB.NET
The following is a module with functions which demonstrates how to validate a phone number using VB.NET.
Not only does this function check formatting, but follows NANP numbering rules by ensuring that the first digit in the area code and the first digit in the second section are 2-9.
1. Validate Phone Number
The example below demonstrates the use of ‘Utils.IsValidPhoneNumber‘ to determine if a phone number is valid.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 |
' Validate Phone Number Dim numbers = New List(Of String) From { "(123) 456-7890", "(123)456-7890", "123-456-7890", "123.456.7890", "1234567890", "+31636363634", "075-63546725", "(657) 278-2011", "(657)278-2011", "(657)2782011", "6572782011", "+6572782011", "657-278-2011", "657 278 2011", "657.278.2011", "1657.278.2011", "+6572782011", "16572782011", "657-2782011" } For Each number In numbers Debug.Print($"Number: {number}, Is Valid: {Utils.IsValidPhoneNumber(number)}") Next ' expected output: ' Number: (123) 456-7890, Is Valid: False ' Number: (123)456-7890, Is Valid: False ' Number: 123-456-7890, Is Valid: False ' Number: 123.456.7890, Is Valid: False ' Number: 1234567890, Is Valid: False ' Number: +31636363634, Is Valid: False ' Number: 075-63546725, Is Valid: False ' Number: (657) 278-2011, Is Valid: True ' Number: (657)278-2011, Is Valid: True ' Number: (657)2782011, Is Valid: True ' Number: 6572782011, Is Valid: True ' Number: +6572782011, Is Valid: True ' Number: 657-278-2011, Is Valid: True ' Number: 657 278 2011, Is Valid: True ' Number: 657.278.2011, Is Valid: True ' Number: 1657.278.2011, Is Valid: True ' Number: +6572782011, Is Valid: True ' Number: 16572782011, Is Valid: True ' Number: 657-2782011, Is Valid: True |
2. Utils Namespace
The following is the Utils Namespace. Include this in your project to start using!
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 |
' ============================================================================ ' Author: Kenneth Perkins ' Date: Nov 3, 2020 ' Taken From: http://programmingnotes.org/ ' File: Utils.vb ' Description: Handles general utility functions ' ============================================================================ Option Strict On Option Explicit On Namespace Global.Utils Public Module modUtils ''' <summary> ''' Not only checks formatting, but follows NANP numbering rules ''' by ensuring that the first digit in the area code and the first ''' digit in the second section are 2-9. ''' </summary> ''' <param name="phoneNumber">The phone number to verify</param> ''' <returns>True if the phone number is valid, false otherwise</returns> Public Function IsValidPhoneNumber(phoneNumber As String) As Boolean If String.IsNullOrWhiteSpace(phoneNumber) Then Return False End If Dim pattern = "^[\+]?[{1}]?[(]?[2-9]\d{2}[)]?[-\s\.]?[2-9]\d{2}[-\s\.]?[0-9]{4}$" Static regex As New Text.RegularExpressions.Regex(pattern, Text.RegularExpressions.RegexOptions.Compiled Or Text.RegularExpressions.RegexOptions.IgnoreCase) Return regex.IsMatch(phoneNumber) End Function End Module End Namespace ' http://programmingnotes.org/ |
3. More Examples
Below are more examples demonstrating the use of the ‘Utils‘ Namespace. Don’t forget to include the module when running the examples!
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 |
' ============================================================================ ' Author: Kenneth Perkins ' Date: Nov 3, 2020 ' Taken From: http://programmingnotes.org/ ' File: Program.vb ' Description: The following demonstrates the use of the Utils Namespace ' ============================================================================ Option Strict On Option Explicit On Imports System Module Program Sub Main(args As String()) Try Dim numbers = New List(Of String) From { "(123) 456-7890", "(123)456-7890", "123-456-7890", "123.456.7890", "1234567890", "+31636363634", "075-63546725", "(657) 278-2011", "(657)278-2011", "(657)2782011", "6572782011", "+6572782011", "657-278-2011", "657 278 2011", "657.278.2011", "1657.278.2011", "+6572782011", "16572782011", "657-2782011" } For Each number In numbers Display($"Number: {number}, Is Valid: {Utils.IsValidPhoneNumber(number)}") Next Catch ex As Exception Display(ex.ToString) Finally Console.ReadLine() End Try End Sub Public Sub Display(message As String) Console.WriteLine(message) Debug.Print(message) End Sub End Module ' http://programmingnotes.org/ |
QUICK NOTES:
The highlighted lines are sections of interest to look out for.
The code is heavily commented, so no further insight is necessary. If you have any questions, feel free to leave a comment below.
VB.NET || How To Shuffle & Randomize An Array/List/IEnumerable Using VB.NET
The following is a module with functions which demonstrates how to randomize and shuffle the contents of an Array/List/IEnumerable using VB.NET.
This function shuffles an IEnumerable and returns the results as a new List(Of T).
This function is generic, so it should work on IEnumerables of any datatype.
1. Shuffle – Integer Array
The example below demonstrates the use of ‘Utils.Shuffle‘ to randomize an integer array.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
' Shuffle - Integer Array Imports Utils Dim numbers = New Integer() {1987, 19, 22, 2009, 2019, 1991, 28, 31} Dim results = numbers.Shuffle For Each item In results Debug.Print($"{item}") Next ' example output: ' 2009 ' 1987 ' 31 ' 22 ' 28 ' 2019 ' 1991 ' 19 |
2. Shuffle – String List
The example below demonstrates the use of ‘Utils.Shuffle‘ to randomize a list of strings.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
' Shuffle - String List Imports Utils Dim names = New List(Of String) From { "Kenneth", "Jennifer", "Lynn", "Sole" } Dim results = names.Shuffle For Each item In results Debug.Print($"{item}") Next ' example output: ' Sole ' Kenneth ' Lynn ' Jennifer |
3. Shuffle – Custom Object List
The example below demonstrates the use of ‘Utils.Shuffle‘ to randomize a list of custom objects.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 |
' Shuffle - Custom Object List Imports Utils Public Class Part Public Property PartName As String Public Property PartId As Integer End Class Dim parts = New List(Of Part) From { New Part With { .PartName = "crank arm", .PartId = 1234 }, New Part With { .PartName = "chain ring", .PartId = 1334 }, New Part With { .PartName = "regular seat", .PartId = 1434 }, New Part With { .PartName = "banana seat", .PartId = 1444 }, New Part With { .PartName = "cassette", .PartId = 1534 }, New Part With { .PartName = "shift lever", .PartId = 1634 }} Dim results = parts.Shuffle For Each item In results Debug.Print($"{item.PartId} {item.PartName}") Next ' example output: ' 1634 shift lever ' 1444 banana seat ' 1434 regular seat ' 1234 crank arm ' 1334 chain ring ' 1534 cassette |
4. Utils Namespace
The following is the Utils Namespace. Include this in your project to start using!
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 |
' ============================================================================ ' Author: Kenneth Perkins ' Date: Nov 3, 2020 ' Taken From: http://programmingnotes.org/ ' File: Utils.vb ' Description: Handles general utility functions ' ============================================================================ Option Strict On Option Explicit On Namespace Global.Utils Public Module modUtils ''' <summary> ''' Shuffles an IEnumerable and returns the results as a List ''' </summary> ''' <param name="list">The IEnumerable list to shuffle</param> ''' <returns>A List of shuffled items from the IEnumerable</returns> <Runtime.CompilerServices.Extension()> Function Shuffle(Of T)(list As IEnumerable(Of T)) As List(Of T) Dim r = New Random Dim shuffled = list.ToList For index = 0 To shuffled.Count - 1 Dim randomIndex = r.Next(index, shuffled.Count) If index <> randomIndex Then Dim temp = shuffled(index) shuffled(index) = shuffled(randomIndex) shuffled(randomIndex) = temp End If Next Return shuffled End Function End Module End Namespace ' http://programmingnotes.org/ |
5. More Examples
Below are more examples demonstrating the use of the ‘Utils‘ Namespace. Don’t forget to include the module when running the examples!
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 |
' ============================================================================ ' Author: Kenneth Perkins ' Date: Nov 3, 2020 ' Taken From: http://programmingnotes.org/ ' File: Program.vb ' Description: The following demonstrates the use of the Utils Namespace ' ============================================================================ Option Strict On Option Explicit On Imports System Imports Utils Module Program Public Class Part Public Property PartName As String Public Property PartId As Integer End Class Sub Main(args As String()) Try Dim numbers = New Integer() {1987, 19, 22, 2009, 2019, 1991, 28, 31} Dim results = numbers.Shuffle For Each item In results Display($"{item}") Next Display("") Dim names = New List(Of String) From { "Kenneth", "Jennifer", "Lynn", "Sole" } Dim results1 = names.Shuffle For Each item In results1 Display($"{item}") Next Display("") Dim parts = New List(Of Part) From { New Part With { .PartName = "crank arm", .PartId = 1234 }, New Part With { .PartName = "chain ring", .PartId = 1334 }, New Part With { .PartName = "regular seat", .PartId = 1434 }, New Part With { .PartName = "banana seat", .PartId = 1444 }, New Part With { .PartName = "cassette", .PartId = 1534 }, New Part With { .PartName = "shift lever", .PartId = 1634 }} Dim results2 = parts.Shuffle For Each item In results2 Display($"{item.PartId} {item.PartName}") Next Catch ex As Exception Display(ex.ToString) Finally Console.ReadLine() End Try End Sub Public Sub Display(message As String) Console.WriteLine(message) Debug.Print(message) End Sub End Module ' http://programmingnotes.org/ |
QUICK NOTES:
The highlighted lines are sections of interest to look out for.
The code is heavily commented, so no further insight is necessary. If you have any questions, feel free to leave a comment below.
VB.NET || Word Wrap – How To Split A String Text Into lines With Maximum Length
The following is a module with functions which demonstrates how to split text into multiple lines using VB.NET.
The following function is an extension method, which takes a string, and splits it into multiple lines (array indices) of a specified length.
An optional boolean parameter specifies whether this function should break up long individual words to fit as many characters as possible on a line.
With this option enabled, if a word is too long to fit on a line, the word is broken up to fit as many characters as possible up to the maximum length on the current line, and the remaining characters gets moved to the next line (the next array index).
Note: Don’t forget to include the ‘Utils Namespace‘ before running the examples!
1. Word Wrap – Don’t Break Words
The example below demonstrates the use of ‘Utils.WordWrap‘ to split a string into multiple lines.
In this example, individual words are not broken up. They are simply moved onto the next line (if necessary).
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 |
' Word Wrap - Don't Break Words Imports Utils ' Limit string text to 40 characters per line Dim text = "Lorem ipsum dolor sit amet, consectetur adipiscing elit. Phasellus faucibus venenatis justo, placerat maximus tortor dictum non. Curabitur efficitur pulvinar arcu, id vehicula nisi commodo in. Interdum et malesuada fames ac ante ipsum primis in faucibus. Vivamus consectetur ut orci scelerisque fringilla. Sed id nisl ac nunc congue suscipit at sollicitudin elit. Nullam tempus tortor sit amet molestie rutrum. Sed a sollicitudin magna, eget vulputate tortor. Proin ut sodales orci, a iaculis ipsum.Ut nec odio risus. Vivamus viverra metus turpis. Pellentesque lacinia lacinia tempus. Suspendisse in justo eget orci porttitor ornare vitae nec tortor. Donec dolor odio, dapibus non sodales quis, volutpat a turpis. Curabitur eget fermentum ante. Donec pulvinar nulla non ante mattis aliquam.Aenean vulputate, ligula sit amet laoreet porttitor, magna justo pellentesque diam, id tempus eros orci ut arcu. Praesent et finibus ipsum. Mauris luctus, metus vel sagittis pharetra, felis odio placerat felis, et ullamcorper neque turpis eget tellus. Maecenas vel imperdiet augue. Morbi imperdiet diam ac enim cursus venenatis. Donec eros turpis, pharetra a aliquet sed, vehicula sed libero. Donec efficitur volutpat ex, in euismod dolor tristique at. Quisque a nisi ultricies libero lacinia fringilla nec vel tortor.Aenean id felis et quam lacinia ornare. Curabitur blandit, arcu eget ultricies pulvinar, neque lectus ultrices mauris, vitae feugiat mauris diam id tellus. Vestibulum finibus cursus dui et feugiat. Sed vitae sagittis lorem. Duis suscipit sollicitudin est tempor efficitur. Morbi eget fringilla massa. Integer ullamcorper, ligula congue consequat sodales, dolor eros pretium augue, in luctus enim massa quis est. Fusce cursus ac ipsum quis aliquet. Curabitur pharetra lectus non suscipit scelerisque. Pellentesque vitae scelerisque tellus. Donec sit amet ligula felis. Donec ac hendrerit magna, sed pharetra diam. Morbi gravida felis finibus sodales suscipit. In hac habitasse platea dictumst.Curabitur purus erat, tincidunt vel tincidunt et, fermentum eget dui. Fusce eu justo vel massa ultrices lacinia sit amet quis augue. Nunc fringilla justo quis felis fringilla, at rutrum justo venenatis. Ut ullamcorper gravida finibus. Donec fermentum varius metus sit amet porttitor. Sed at auctor velit. Quisque et urna metus. Donec ut mi vel turpis dignissim pulvinar. Curabitur massa leo, interdum ac urna id, dictum pellentesque nunc. Ut dolor justo, vehicula quis porta in, laoreet eget augue. this is a test pneumonoultramicroscopicsilicovolcanoconiosis" Dim maxCharacters = 40 Dim result = text.WordWrap(maxCharacters) For Each line In result Display($"Length: {line.Length} - {line}") Next ' expected output: ' Length: 39 - Lorem ipsum dolor sit amet, consectetur ' Length: 35 - adipiscing elit. Phasellus faucibus ' Length: 40 - venenatis justo, placerat maximus tortor ' Length: 40 - dictum non. Curabitur efficitur pulvinar ' Length: 34 - arcu, id vehicula nisi commodo in. ' Length: 35 - Interdum et malesuada fames ac ante ' Length: 33 - ipsum primis in faucibus. Vivamus ' Length: 31 - consectetur ut orci scelerisque ' Length: 37 - fringilla. Sed id nisl ac nunc congue ' Length: 37 - suscipit at sollicitudin elit. Nullam ' Length: 39 - tempus tortor sit amet molestie rutrum. ' Length: 40 - Sed a sollicitudin magna, eget vulputate ' Length: 40 - tortor. Proin ut sodales orci, a iaculis ' Length: 40 - ipsum.Ut nec odio risus. Vivamus viverra ' Length: 34 - metus turpis. Pellentesque lacinia ' Length: 36 - lacinia tempus. Suspendisse in justo ' Length: 36 - eget orci porttitor ornare vitae nec ' Length: 37 - tortor. Donec dolor odio, dapibus non ' Length: 32 - sodales quis, volutpat a turpis. ' Length: 36 - Curabitur eget fermentum ante. Donec ' Length: 30 - pulvinar nulla non ante mattis ' Length: 36 - aliquam.Aenean vulputate, ligula sit ' Length: 35 - amet laoreet porttitor, magna justo ' Length: 38 - pellentesque diam, id tempus eros orci ' Length: 35 - ut arcu. Praesent et finibus ipsum. ' Length: 33 - Mauris luctus, metus vel sagittis ' Length: 39 - pharetra, felis odio placerat felis, et ' Length: 37 - ullamcorper neque turpis eget tellus. ' Length: 35 - Maecenas vel imperdiet augue. Morbi ' Length: 40 - imperdiet diam ac enim cursus venenatis. ' Length: 37 - Donec eros turpis, pharetra a aliquet ' Length: 31 - sed, vehicula sed libero. Donec ' Length: 39 - efficitur volutpat ex, in euismod dolor ' Length: 38 - tristique at. Quisque a nisi ultricies ' Length: 32 - libero lacinia fringilla nec vel ' Length: 38 - tortor.Aenean id felis et quam lacinia ' Length: 36 - ornare. Curabitur blandit, arcu eget ' Length: 32 - ultricies pulvinar, neque lectus ' Length: 37 - ultrices mauris, vitae feugiat mauris ' Length: 34 - diam id tellus. Vestibulum finibus ' Length: 32 - cursus dui et feugiat. Sed vitae ' Length: 29 - sagittis lorem. Duis suscipit ' Length: 40 - sollicitudin est tempor efficitur. Morbi ' Length: 29 - eget fringilla massa. Integer ' Length: 36 - ullamcorper, ligula congue consequat ' Length: 37 - sodales, dolor eros pretium augue, in ' Length: 40 - luctus enim massa quis est. Fusce cursus ' Length: 32 - ac ipsum quis aliquet. Curabitur ' Length: 28 - pharetra lectus non suscipit ' Length: 31 - scelerisque. Pellentesque vitae ' Length: 34 - scelerisque tellus. Donec sit amet ' Length: 39 - ligula felis. Donec ac hendrerit magna, ' Length: 38 - sed pharetra diam. Morbi gravida felis ' Length: 32 - finibus sodales suscipit. In hac ' Length: 35 - habitasse platea dictumst.Curabitur ' Length: 39 - purus erat, tincidunt vel tincidunt et, ' Length: 38 - fermentum eget dui. Fusce eu justo vel ' Length: 36 - massa ultrices lacinia sit amet quis ' Length: 38 - augue. Nunc fringilla justo quis felis ' Length: 40 - fringilla, at rutrum justo venenatis. Ut ' Length: 34 - ullamcorper gravida finibus. Donec ' Length: 31 - fermentum varius metus sit amet ' Length: 39 - porttitor. Sed at auctor velit. Quisque ' Length: 37 - et urna metus. Donec ut mi vel turpis ' Length: 40 - dignissim pulvinar. Curabitur massa leo, ' Length: 40 - interdum ac urna id, dictum pellentesque ' Length: 35 - nunc. Ut dolor justo, vehicula quis ' Length: 39 - porta in, laoreet eget augue. this is a ' Length: 4 - test ' Length: 45 - pneumonoultramicroscopicsilicovolcanoconiosis |
2. Word Wrap – Break Words
The example below demonstrates the use of ‘Utils.WordWrap‘ to split a string into multiple lines.
In this example, individual words are broken up and moved onto the next line (if necessary), with the default hyphen character used, which is a dash (‘-‘).
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 |
' Word Wrap - Break Words Imports Utils ' Limit string text to 40 characters per line Dim text = "Lorem ipsum dolor sit amet, consectetur adipiscing elit. Phasellus faucibus venenatis justo, placerat maximus tortor dictum non. Curabitur efficitur pulvinar arcu, id vehicula nisi commodo in. Interdum et malesuada fames ac ante ipsum primis in faucibus. Vivamus consectetur ut orci scelerisque fringilla. Sed id nisl ac nunc congue suscipit at sollicitudin elit. Nullam tempus tortor sit amet molestie rutrum. Sed a sollicitudin magna, eget vulputate tortor. Proin ut sodales orci, a iaculis ipsum.Ut nec odio risus. Vivamus viverra metus turpis. Pellentesque lacinia lacinia tempus. Suspendisse in justo eget orci porttitor ornare vitae nec tortor. Donec dolor odio, dapibus non sodales quis, volutpat a turpis. Curabitur eget fermentum ante. Donec pulvinar nulla non ante mattis aliquam.Aenean vulputate, ligula sit amet laoreet porttitor, magna justo pellentesque diam, id tempus eros orci ut arcu. Praesent et finibus ipsum. Mauris luctus, metus vel sagittis pharetra, felis odio placerat felis, et ullamcorper neque turpis eget tellus. Maecenas vel imperdiet augue. Morbi imperdiet diam ac enim cursus venenatis. Donec eros turpis, pharetra a aliquet sed, vehicula sed libero. Donec efficitur volutpat ex, in euismod dolor tristique at. Quisque a nisi ultricies libero lacinia fringilla nec vel tortor.Aenean id felis et quam lacinia ornare. Curabitur blandit, arcu eget ultricies pulvinar, neque lectus ultrices mauris, vitae feugiat mauris diam id tellus. Vestibulum finibus cursus dui et feugiat. Sed vitae sagittis lorem. Duis suscipit sollicitudin est tempor efficitur. Morbi eget fringilla massa. Integer ullamcorper, ligula congue consequat sodales, dolor eros pretium augue, in luctus enim massa quis est. Fusce cursus ac ipsum quis aliquet. Curabitur pharetra lectus non suscipit scelerisque. Pellentesque vitae scelerisque tellus. Donec sit amet ligula felis. Donec ac hendrerit magna, sed pharetra diam. Morbi gravida felis finibus sodales suscipit. In hac habitasse platea dictumst.Curabitur purus erat, tincidunt vel tincidunt et, fermentum eget dui. Fusce eu justo vel massa ultrices lacinia sit amet quis augue. Nunc fringilla justo quis felis fringilla, at rutrum justo venenatis. Ut ullamcorper gravida finibus. Donec fermentum varius metus sit amet porttitor. Sed at auctor velit. Quisque et urna metus. Donec ut mi vel turpis dignissim pulvinar. Curabitur massa leo, interdum ac urna id, dictum pellentesque nunc. Ut dolor justo, vehicula quis porta in, laoreet eget augue. this is a test pneumonoultramicroscopicsilicovolcanoconiosis" Dim maxCharacters = 40 Dim result = text.WordWrap(maxCharacters, True) For Each line In result Display($"Length: {line.Length} - {line}") Next ' expected output: ' Length: 39 - Lorem ipsum dolor sit amet, consectetur ' Length: 40 - adipiscing elit. Phasellus faucibus ven- ' Length: 40 - enatis justo, placerat maximus tortor d- ' Length: 39 - ictum non. Curabitur efficitur pulvinar ' Length: 40 - arcu, id vehicula nisi commodo in. Inte- ' Length: 40 - rdum et malesuada fames ac ante ipsum p- ' Length: 38 - rimis in faucibus. Vivamus consectetur ' Length: 40 - ut orci scelerisque fringilla. Sed id n- ' Length: 40 - isl ac nunc congue suscipit at sollicit- ' Length: 40 - udin elit. Nullam tempus tortor sit amet ' Length: 40 - molestie rutrum. Sed a sollicitudin mag- ' Length: 40 - na, eget vulputate tortor. Proin ut sod- ' Length: 38 - ales orci, a iaculis ipsum.Ut nec odio ' Length: 40 - risus. Vivamus viverra metus turpis. Pe- ' Length: 40 - llentesque lacinia lacinia tempus. Susp- ' Length: 40 - endisse in justo eget orci porttitor or- ' Length: 40 - nare vitae nec tortor. Donec dolor odio, ' Length: 40 - dapibus non sodales quis, volutpat a tu- ' Length: 40 - rpis. Curabitur eget fermentum ante. Do- ' Length: 40 - nec pulvinar nulla non ante mattis aliq- ' Length: 40 - uam.Aenean vulputate, ligula sit amet l- ' Length: 40 - aoreet porttitor, magna justo pellentes- ' Length: 38 - que diam, id tempus eros orci ut arcu. ' Length: 40 - Praesent et finibus ipsum. Mauris luctu- ' Length: 40 - s, metus vel sagittis pharetra, felis o- ' Length: 40 - dio placerat felis, et ullamcorper neque ' Length: 40 - turpis eget tellus. Maecenas vel imperd- ' Length: 39 - iet augue. Morbi imperdiet diam ac enim ' Length: 40 - cursus venenatis. Donec eros turpis, ph- ' Length: 40 - aretra a aliquet sed, vehicula sed libe- ' Length: 40 - ro. Donec efficitur volutpat ex, in eui- ' Length: 39 - smod dolor tristique at. Quisque a nisi ' Length: 38 - ultricies libero lacinia fringilla nec ' Length: 40 - vel tortor.Aenean id felis et quam laci- ' Length: 40 - nia ornare. Curabitur blandit, arcu eget ' Length: 40 - ultricies pulvinar, neque lectus ultric- ' Length: 39 - es mauris, vitae feugiat mauris diam id ' Length: 40 - tellus. Vestibulum finibus cursus dui et ' Length: 39 - feugiat. Sed vitae sagittis lorem. Duis ' Length: 40 - suscipit sollicitudin est tempor effici- ' Length: 40 - tur. Morbi eget fringilla massa. Integer ' Length: 40 - ullamcorper, ligula congue consequat so- ' Length: 40 - dales, dolor eros pretium augue, in luc- ' Length: 40 - tus enim massa quis est. Fusce cursus ac ' Length: 38 - ipsum quis aliquet. Curabitur pharetra ' Length: 40 - lectus non suscipit scelerisque. Pellen- ' Length: 38 - tesque vitae scelerisque tellus. Donec ' Length: 40 - sit amet ligula felis. Donec ac hendrer- ' Length: 40 - it magna, sed pharetra diam. Morbi grav- ' Length: 38 - ida felis finibus sodales suscipit. In ' Length: 39 - hac habitasse platea dictumst.Curabitur ' Length: 39 - purus erat, tincidunt vel tincidunt et, ' Length: 38 - fermentum eget dui. Fusce eu justo vel ' Length: 40 - massa ultrices lacinia sit amet quis au- ' Length: 40 - gue. Nunc fringilla justo quis felis fr- ' Length: 38 - ingilla, at rutrum justo venenatis. Ut ' Length: 40 - ullamcorper gravida finibus. Donec ferm- ' Length: 38 - entum varius metus sit amet porttitor. ' Length: 40 - Sed at auctor velit. Quisque et urna me- ' Length: 40 - tus. Donec ut mi vel turpis dignissim p- ' Length: 38 - ulvinar. Curabitur massa leo, interdum ' Length: 40 - ac urna id, dictum pellentesque nunc. Ut ' Length: 40 - dolor justo, vehicula quis porta in, la- ' Length: 40 - oreet eget augue. this is a test pneumo- ' Length: 39 - noultramicroscopicsilicovolcanoconiosis |
3. Utils Namespace
The following is the Utils Namespace. Include this in your project to start using!
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 |
' ============================================================================ ' Author: Kenneth Perkins ' Date: Nov 3, 2020 ' Taken From: http://programmingnotes.org/ ' File: Utils.vb ' Description: Handles general utility functions ' ============================================================================ Option Strict On Option Explicit On Namespace Global.Utils Public Module modUtils ''' <summary> ''' Takes in a string and splits it into multiple lines (array indices) ''' of a specified length. If a word is too long to fit on a line, ''' the word gets moved to the next line (the next array index) ''' </summary> ''' <param name="text">The text to word wrap</param> ''' <param name="maxCharactersPerLine">The maximum characters per ''' line</param> ''' <param name="breakWords">Determine if words should fit as many as ''' possible on current line, with remaining broken up to the next line</param> ''' <param name="hyphenChar">The character to use at the end of the line ''' as a hyphen when breaking up words</param> ''' <param name="hyphenatedWordMinLength">The minimum length of the ''' hyphenated word after it is broken up. A word will not be hyphenated ''' unless it meets this minimum length after it is broken up</param> ''' <returns>A list of strings that contains each line limited by ''' the specified length</returns> <Runtime.CompilerServices.Extension()> Public Function WordWrap(text As String, maxCharactersPerLine As Integer, Optional breakWords As Boolean = False, Optional hyphenChar As Char? = "-"c, Optional hyphenatedWordMinLength As Integer = 1) As List(Of String) If breakWords AndAlso hyphenatedWordMinLength >= maxCharactersPerLine Then Throw New System.InvalidOperationException($"Unable to fit the value of '{NameOf(hyphenatedWordMinLength)}' ({hyphenatedWordMinLength}) with '{NameOf(maxCharactersPerLine)}' ({maxCharactersPerLine}). Either increase the value of '{NameOf(maxCharactersPerLine)}' or decrease the value of '{NameOf(hyphenatedWordMinLength)}'") End If text = text.Trim() Dim result = New List(Of String)() If text.Length <= maxCharactersPerLine Then result.Add(text) Else Dim words = text.Split(New Char() {" "c}, StringSplitOptions.RemoveEmptyEntries) Dim leftOver = String.Empty Dim wordIndex As Integer = 0 While wordIndex < words.Length OrElse Not String.IsNullOrWhiteSpace(leftOver) Dim currentResultLineIndex = result.Count - 1 Dim currentResultLineLength = If(currentResultLineIndex > -1, result(currentResultLineIndex).Length, 0) ' Start string with left over text from previous word Dim addition = String.Empty If Not String.IsNullOrWhiteSpace(leftOver) Then If currentResultLineLength > 0 _ AndAlso currentResultLineLength < maxCharactersPerLine _ AndAlso Not leftOver.StartsWith(" ") Then addition &= " " End If addition &= leftOver End If ' Add current word to string If wordIndex < words.Length Then Dim word = words(wordIndex).Trim() If currentResultLineLength > 0 AndAlso Not addition.EndsWith(" ") Then addition &= " " End If addition &= word End If If breakWords Then ' Determine how many characters to take from the current addition Dim remainingLineLength = maxCharactersPerLine - currentResultLineLength Dim charactersToAddLength = Math.Min((If(remainingLineLength > 0, remainingLineLength, maxCharactersPerLine)), addition.Length) ' Include hyphen if word will be broken up If charactersToAddLength > 1 AndAlso charactersToAddLength < addition.Length Then Dim slice = addition.Substring(0, charactersToAddLength) If Not String.IsNullOrWhiteSpace(slice) Then If Not hyphenChar.HasValue OrElse Not slice(charactersToAddLength - 1) = hyphenChar Then ' Determine the length of the hyphenated word Dim hyphenatedWordLength = 0 Dim hyphenInsertIndexStart = charactersToAddLength - 1 While hyphenInsertIndexStart >= 0 _ AndAlso Not Char.IsWhiteSpace(slice(hyphenInsertIndexStart)) hyphenatedWordLength += 1 hyphenInsertIndexStart -= 1 End While ' Subtract the hypenated character from the result If hyphenChar.HasValue Then hyphenatedWordLength -= 1 End If If hyphenatedWordLength >= hyphenatedWordMinLength Then addition = addition.Insert(charactersToAddLength - 1, If(hyphenChar.HasValue, hyphenChar.ToString(), String.Empty)) ElseIf hyphenInsertIndexStart >= 0 AndAlso (Not hyphenChar.HasValue OrElse Not addition(hyphenInsertIndexStart) = hyphenChar) Then addition = addition.Insert(hyphenInsertIndexStart, New String(" "c, hyphenatedWordMinLength)) End If End If End If End If currentResultLineLength += charactersToAddLength ' Save excess characters from current addition for the next line leftOver = If(charactersToAddLength < addition.Length, addition.Substring(charactersToAddLength), String.Empty) ' Only take the specified characters from the string addition = addition.Substring(0, charactersToAddLength) Else currentResultLineLength += addition.Length End If ' Add or append words to result If result.Count < 1 OrElse currentResultLineLength > maxCharactersPerLine Then ' Start new line addition = addition.Trim() result.Add(addition) Else ' Append existing line result(currentResultLineIndex) &= addition End If wordIndex += 1 End While End If ' Remove excess whitespace For index = 0 To result.Count - 1 result(index) = result(index).Trim() Next Return result End Function End Module End Namespace ' http://programmingnotes.org/ |
4. More Examples
Below are more examples demonstrating the use of the ‘Utils‘ Namespace. Don’t forget to include the module when running the examples!
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 |
' ============================================================================ ' Author: Kenneth Perkins ' Date: Nov 3, 2020 ' Taken From: http://programmingnotes.org/ ' File: Program.vb ' Description: The following demonstrates the use of the Utils Namespace ' ============================================================================ Option Strict On Option Explicit On Imports System Imports Utils Public Module Program Sub Main(args As String()) Try ' Limit string text to 40 characters per line Dim text = "Lorem ipsum dolor sit amet, consectetur adipiscing elit. Phasellus faucibus venenatis justo, placerat maximus tortor dictum non. Curabitur efficitur pulvinar arcu, id vehicula nisi commodo in. Interdum et malesuada fames ac ante ipsum primis in faucibus. Vivamus consectetur ut orci scelerisque fringilla. Sed id nisl ac nunc congue suscipit at sollicitudin elit. Nullam tempus tortor sit amet molestie rutrum. Sed a sollicitudin magna, eget vulputate tortor. Proin ut sodales orci, a iaculis ipsum.Ut nec odio risus. Vivamus viverra metus turpis. Pellentesque lacinia lacinia tempus. Suspendisse in justo eget orci porttitor ornare vitae nec tortor. Donec dolor odio, dapibus non sodales quis, volutpat a turpis. Curabitur eget fermentum ante. Donec pulvinar nulla non ante mattis aliquam.Aenean vulputate, ligula sit amet laoreet porttitor, magna justo pellentesque diam, id tempus eros orci ut arcu. Praesent et finibus ipsum. Mauris luctus, metus vel sagittis pharetra, felis odio placerat felis, et ullamcorper neque turpis eget tellus. Maecenas vel imperdiet augue. Morbi imperdiet diam ac enim cursus venenatis. Donec eros turpis, pharetra a aliquet sed, vehicula sed libero. Donec efficitur volutpat ex, in euismod dolor tristique at. Quisque a nisi ultricies libero lacinia fringilla nec vel tortor.Aenean id felis et quam lacinia ornare. Curabitur blandit, arcu eget ultricies pulvinar, neque lectus ultrices mauris, vitae feugiat mauris diam id tellus. Vestibulum finibus cursus dui et feugiat. Sed vitae sagittis lorem. Duis suscipit sollicitudin est tempor efficitur. Morbi eget fringilla massa. Integer ullamcorper, ligula congue consequat sodales, dolor eros pretium augue, in luctus enim massa quis est. Fusce cursus ac ipsum quis aliquet. Curabitur pharetra lectus non suscipit scelerisque. Pellentesque vitae scelerisque tellus. Donec sit amet ligula felis. Donec ac hendrerit magna, sed pharetra diam. Morbi gravida felis finibus sodales suscipit. In hac habitasse platea dictumst.Curabitur purus erat, tincidunt vel tincidunt et, fermentum eget dui. Fusce eu justo vel massa ultrices lacinia sit amet quis augue. Nunc fringilla justo quis felis fringilla, at rutrum justo venenatis. Ut ullamcorper gravida finibus. Donec fermentum varius metus sit amet porttitor. Sed at auctor velit. Quisque et urna metus. Donec ut mi vel turpis dignissim pulvinar. Curabitur massa leo, interdum ac urna id, dictum pellentesque nunc. Ut dolor justo, vehicula quis porta in, laoreet eget augue. this is a test pneumonoultramicroscopicsilicovolcanoconiosis" Dim maxCharacters = 40 Dim result = text.WordWrap(maxCharacters) For Each line In result Display($"Length: {line.Length} - {line}") Next Catch ex As Exception Display(ex.ToString) Finally Console.ReadLine() End Try End Sub Public Sub Display(message As String) Console.WriteLine(message) Debug.Print(message) End Sub End Module ' http://programmingnotes.org/ |
QUICK NOTES:
The highlighted lines are sections of interest to look out for.
The code is heavily commented, so no further insight is necessary. If you have any questions, feel free to leave a comment below.
VB.NET || How To Get First/Last Day Of The Week And The First/Last Day Of The Month
The following is a module with functions which demonstrates how to get the first and last day of the week, as well as how to get the first and last day of the month using VB.NET.
1. First & Last Day Of Week
The example below demonstrates the use of ‘Utils.DateRange.GetWeekStartAndEnd‘ to get the first and last day of the week.
By default, the start of the week is set on Monday. This can be changed by setting the second parameter to any valid property contained in the Microsoft.VisualBasic.FirstDayOfWeek enum.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
' First & Last Day Of Week Dim weekResult = Utils.DateRange.GetWeekStartAndEnd(Date.Today) Debug.Print($" Today = {Date.Today.ToShortDateString} Week Start = {weekResult.StartDate.ToShortDateString} Week End = {weekResult.EndDate.ToShortDateString} ") ' expected output: ' Today = 11/2/2020 ' Week Start = 11/2/2020 ' Week End = 11/8/2020 |
2. First & Last Day Of Month
The example below demonstrates the use of ‘Utils.DateRange.GetMonthStartAndEnd‘ to get the first and last day of the week.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
' First & Last Day Of Month Dim monthResult = Utils.DateRange.GetMonthStartAndEnd(Date.Today) Debug.Print($" Today = {Date.Today.ToShortDateString} Month Start = {monthResult.StartDate.ToShortDateString} Month End = {monthResult.EndDate.ToShortDateString} ") ' expected output: ' Today = 11/2/2020 ' Month Start = 11/1/2020 ' Month End = 11/30/2020 |
3. Utils Namespace
The following is the Utils Namespace. Include this in your project to start using!
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 |
' ============================================================================ ' Author: Kenneth Perkins ' Date: Nov 2, 2020 ' Taken From: http://programmingnotes.org/ ' File: Utils.vb ' Description: Handles general utility functions ' ============================================================================ Option Strict On Option Explicit On Namespace Global.Utils Public Module modUtils Public Class DateRange Public Property StartDate As Date Public Property EndDate As Date ''' <summary> ''' Takes in a date and returns the first and last day of the week ''' </summary> ''' <param name="date">The reference date in question</param> ''' <param name="firstDayOfWeek">The day the week starts on</param> ''' <returns>An object that contains the date range result</returns> Public Shared Function GetWeekStartAndEnd([date] As Date, Optional firstDayOfWeek As Microsoft.VisualBasic.FirstDayOfWeek = Microsoft.VisualBasic.FirstDayOfWeek.Monday) As DateRange Dim result = New DateRange result.StartDate = [date].AddDays(1 - Weekday([date], firstDayOfWeek)).Date result.EndDate = result.StartDate.AddDays(6).Date Return result End Function ''' <summary> ''' Takes in a date and returns the first and last day of the month ''' </summary> ''' <param name="date">The reference date in question</param> ''' <returns>An object that contains the date range result</returns> Public Shared Function GetMonthStartAndEnd([date] As Date) As DateRange Dim result = New DateRange result.StartDate = New Date([date].Year, [date].Month, 1).Date result.EndDate = result.StartDate.AddMonths(1).AddDays(-1).Date Return result End Function End Class End Module End Namespace ' http://programmingnotes.org/ |
4. More Examples
Below are more examples demonstrating the use of the ‘Utils‘ Namespace. Don’t forget to include the module when running the examples!
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 |
' ============================================================================ ' Author: Kenneth Perkins ' Date: Nov 2, 2020 ' Taken From: http://programmingnotes.org/ ' File: Program.vb ' Description: The following demonstrates the use of the Utils Namespace ' ============================================================================ Option Strict On Option Explicit On Imports System Module Program Sub Main(args As String()) Try Dim weekResult = Utils.DateRange.GetWeekStartAndEnd(Date.Today) Display($" Today = {Date.Today.ToShortDateString} Week Start = {weekResult.StartDate.ToShortDateString} Week End = {weekResult.EndDate.ToShortDateString} ") Dim monthResult = Utils.DateRange.GetMonthStartAndEnd(Date.Today) Display($" Today = {Date.Today.ToShortDateString} Month Start = {monthResult.StartDate.ToShortDateString} Month End = {monthResult.EndDate.ToShortDateString} ") Catch ex As Exception Display(ex.ToString) Finally Console.ReadLine() End Try End Sub Public Sub Display(message As String) Console.WriteLine(message) Debug.Print(message) End Sub End Module ' http://programmingnotes.org/ |
QUICK NOTES:
The highlighted lines are sections of interest to look out for.
The code is heavily commented, so no further insight is necessary. If you have any questions, feel free to leave a comment below.
VB.NET || Roman Numeral Conversion – How To Convert Roman Numeral To Integer & Integer To Roman Numeral
The following is a program with functions which demonstrates how to convert roman numerals to integer, and integers to roman numerals.
The sample program implemented on this page was presented in a Data Structures course. This program was assigned in order to practice the use of the class data structure.
1. Roman Numeral Conversion
The example below demonstrates how to convert integers to roman numerals and roman numerals to integers.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 |
' ============================================================================ ' Author: Kenneth Perkins ' Date: Nov 2, 2020 ' Taken From: http://programmingnotes.org/ ' File: romanNumeralConversion.vb ' Description: The following demonstrates how to convert roman numerals. ' ============================================================================ Option Strict On Option Explicit On Imports System Module Program Sub Main(args As String()) Try Dim decimalNumber = 1987 DecimalTest(decimalNumber) Display("") Dim roman = "MCMXCI" RomanTest(roman) Catch ex As Exception Display(ex.ToString) Finally Console.ReadLine() End Try End Sub Public Sub RomanTest(roman As String) Dim decimalNumber = RomanNumeral.ConvertToDecimal(roman) Dim convertedBack = RomanNumeral.ConvertToRoman(decimalNumber) Display("======= Roman Test Start =======") Display($"Original = {roman} Converted = {decimalNumber} Converted Back To Original = {convertedBack}") Display("======= Roman Test End =======") End Sub Public Sub DecimalTest(decimalNumber As Decimal) Dim roman = RomanNumeral.ConvertToRoman(decimalNumber) Dim convertedBack = RomanNumeral.ConvertToDecimal(roman) Display("======= Decimal Test Start =======") Display($"Original = {decimalNumber} Converted = {roman} Converted Back To Original = {convertedBack}") Display("======= Decimal Test End =======") End Sub ''' <summary> ''' Class to hold Roman Numeral Conversion Values ''' </summary> Public Class RomanNumeral Public Property [decimal] As Decimal Public Property roman As String ''' <summary> ''' Converts a Decimal number to a Roman Numeral ''' </summary> ''' <param name="decimal">Decimal number to be converted</param> Public Shared Function ConvertToRoman(decimalNumber As Decimal) As String Dim stbRoman = New Text.StringBuilder If decimalNumber > 0 Then Dim conversionValues = GetValues() For Each conversionValue In conversionValues While decimalNumber > 0 _ AndAlso decimalNumber >= conversionValue.decimal stbRoman.Append(conversionValue.roman) decimalNumber -= conversionValue.decimal End While If decimalNumber <= 0 Then Exit For End If Next End If Dim roman = stbRoman.ToString Return roman End Function ''' <summary> ''' Converts a Roman Numeral to a Decimal value ''' </summary> ''' <param name="roman">Roman Numeral value to be converted</param> Public Shared Function ConvertToDecimal(roman As String) As Decimal Dim decimalNumber As Decimal = 0 If Not String.IsNullOrWhiteSpace(roman) Then Dim previousNumber As Decimal = 0 Dim conversionValues = GetValues() ' Iterate the string starting from the end For index = roman.Length - 1 To 0 Step -1 Dim currentLetter = roman(index).ToString ' Skip whitepsace characters If String.IsNullOrWhiteSpace(currentLetter) Then Continue For End If ' Find a conversion value that matches the current letter Dim conversionValue = (From x In conversionValues Where x.roman.ToLower = currentLetter.ToLower Select x Take 1).FirstOrDefault ' If a valid conversion was found, get the value If conversionValue Is Nothing Then Continue For End If Dim currentNumber = conversionValue.decimal ' Calculate the result If previousNumber > currentNumber Then decimalNumber -= currentNumber Else decimalNumber += currentNumber End If ' Save the current number in order to process the next letter previousNumber = currentNumber Next End If Return decimalNumber End Function ''' <summary> ''' Returns Roman Numeral Conversion Values ''' </summary> Public Shared Function GetValues() As List(Of RomanNumeral) Dim conversionValues = New List(Of RomanNumeral) From { New RomanNumeral With {.decimal = 1000, .roman = "M"}, New RomanNumeral With {.decimal = 900, .roman = "CM"}, New RomanNumeral With {.decimal = 500, .roman = "D"}, New RomanNumeral With {.decimal = 400, .roman = "CD"}, New RomanNumeral With {.decimal = 100, .roman = "C"}, New RomanNumeral With {.decimal = 90, .roman = "XC"}, New RomanNumeral With {.decimal = 50, .roman = "L"}, New RomanNumeral With {.decimal = 40, .roman = "XL"}, New RomanNumeral With {.decimal = 10, .roman = "X"}, New RomanNumeral With {.decimal = 9, .roman = "IX"}, New RomanNumeral With {.decimal = 5, .roman = "V"}, New RomanNumeral With {.decimal = 4, .roman = "IV"}, New RomanNumeral With {.decimal = 1, .roman = "I"} } Return conversionValues.OrderByDescending(Function(x) x.decimal).ToList() End Function End Class Public Sub Display(message As String) Console.WriteLine(message) Debug.Print(message) End Sub End Module ' http://programmingnotes.org/ |
QUICK NOTES:
The highlighted lines are sections of interest to look out for.
The code is heavily commented, so no further insight is necessary. If you have any questions, feel free to leave a comment below.
Once compiled, you should get this as your output
======= Decimal Test Start =======
Original = 1987
Converted = MCMLXXXVII
Converted Back To Original = 1987
======= Decimal Test End ============== Roman Test Start =======
Original = MCMXCI
Converted = 1991
Converted Back To Original = MCMXCI
======= Roman Test End =======
Hi, I'm a software engineer. I write articles about programming and design in my spare time.
