Esta es mi implementación de una colección por nombre NameObjectCollection que hereda del tipo NameObjectCollectionBase.

El uso es idéntico a una colección de tipo NameValueCollection (key:String, value:String) pero con la diferencia de que el valor es de tipo Object (key:String, value:Object).

Casos de uso: convertir un JSON donde el valor no es del tipo String.

' ***********************************************************************
' Author   : ElektroStudios
' Modified : 08-July-2023
' ***********************************************************************
 
#Region " Option Statements "
 
Option Strict On
Option Explicit On
Option Infer Off
 
#End Region
 
#Region " Imports "
 
Imports System.Collections.Specialized
Imports System.Runtime.Serialization
 
#End Region
 
Namespace DevCase.Runtime.Collections
 
    ''' ---------------------------------------------------------------------------------------------------- 
    ''' <summary>
    ''' Similarly to a <see cref="NameValueCollection"/>, this class represents a 
    ''' collection of associated <see cref="String"/> keys and <see cref="Object"/> values 
    ''' that can be accessed either with the name or with the index.
    ''' </summary>
    ''' ---------------------------------------------------------------------------------------------------- 
    <Serializable>
    Public Class NameObjectCollection : Inherits NameObjectCollectionBase
 
#Region " Private MethFieldsods "
 
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <summary>
        ''' Cached array of values in this <see cref="NameObjectCollection"/>.
        ''' </summary>
        ''' ---------------------------------------------------------------------------------------------------- 
        Private _all() As Object
 
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <summary>
        ''' Cached array of keys in this <see cref="NameObjectCollection"/>.
        ''' </summary>
        ''' ---------------------------------------------------------------------------------------------------- 
        Private _allKeys() As String
 
#End Region
 
#Region " Properties "
 
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <summary>
        ''' Gets or sets the entry with the specified key in this <see cref="NameObjectCollection"/>.
        ''' </summary>
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <param name="name">
        ''' The <see cref="String"/> key of the entry to locate. The key can be null.
        ''' </param>
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <returns>
        ''' A <see cref="Object"/> that contains the comma-separated list of values associated with
        ''' the specified key, if found; otherwise, null.
        ''' </returns>
        ''' ---------------------------------------------------------------------------------------------------- 
        Default Public Property Item(name As String) As Object
            Get
                Return Me.[Get](name)
            End Get
            Set(value As Object)
                Me.[Set](name, value)
            End Set
        End Property
 
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <summary>
        ''' Gets the entry at the specified index of this <see cref="NameObjectCollection"/>.
        ''' </summary>
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <param name="index">
        ''' The zero-based index of the entry to locate in the collection.
        ''' </param>
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <returns>
        ''' A <see cref="Object"/> that contains the comma-separated list of values at the specified
        ''' index of the collection.
        ''' </returns>
        ''' ---------------------------------------------------------------------------------------------------- 
        Default Public ReadOnly Property Item(index As Integer) As Object
            Get
                Return Me.[Get](index)
            End Get
        End Property
 
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <summary>
        ''' Gets all the keys in this <see cref="NameObjectCollection"/>.
        ''' </summary>
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <returns>
        ''' A <see cref="String"/> array that contains all the keys of this <see cref="NameObjectCollection"/>.
        ''' </returns>
        ''' ---------------------------------------------------------------------------------------------------- 
        Public Overridable ReadOnly Property AllKeys() As String()
            Get
                If Me._allKeys Is Nothing Then
                    Me._allKeys = Me.BaseGetAllKeys()
                End If
 
                Return Me._allKeys
            End Get
        End Property
 
#End Region
 
#Region " Constructors "
 
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <summary>
        ''' Initializes a new instance of the <see cref="NameObjectCollection"/>
        ''' class that is empty, has the default initial capacity and uses the default case-insensitive
        ''' hash code provider and the default case-insensitive comparer.
        ''' </summary>
        ''' ---------------------------------------------------------------------------------------------------- 
        Public Sub New()
        End Sub
 
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <summary>
        ''' Initializes a new instance of the <see cref="NameObjectCollection"/>
        ''' class that is empty, has the specified initial capacity and uses the specified
        ''' hash code provider and the specified comparer.
        ''' </summary>
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <param name="hashProvider">
        ''' The <see cref="System.Collections.IHashCodeProvider"/> that will supply the hash codes for
        ''' all keys in this <see cref="NameObjectCollection"/>.
        ''' </param>
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <param name="comparer">
        ''' The <see cref="System.Collections.IComparer"/> to use to determine whether two keys are equal.
        ''' </param>
        ''' ---------------------------------------------------------------------------------------------------- 
        <Obsolete("Please use NameObjectCollection(IEqualityComparer) instead.")>
        Public Sub New(hashProvider As IHashCodeProvider, comparer As IComparer)
            MyBase.New(hashProvider, comparer)
        End Sub
 
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <summary>
        ''' Initializes a new instance of the <see cref="NameObjectCollection"/>
        ''' class that is empty, has the specified initial capacity and uses the default
        ''' case-insensitive hash code provider and the default case-insensitive comparer.
        ''' </summary>
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <param name="capacity">
        ''' The initial number of entries that this <see cref="NameObjectCollection"/>
        ''' can contain.
        ''' </param>
        ''' ---------------------------------------------------------------------------------------------------- 
        Public Sub New(capacity As Integer)
            MyBase.New(capacity)
        End Sub
 
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <summary>
        ''' Initializes a new instance of the <see cref="NameObjectCollection"/>
        ''' class that is empty, has the default initial capacity, and uses the specified
        ''' <see cref="System.Collections.IEqualityComparer"/> object.
        ''' </summary>
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <param name="equalityComparer">
        ''' The <see cref="System.Collections.IEqualityComparer"/> object to use to determine whether two
        ''' keys are equal and to generate hash codes for the keys in the collection.
        ''' </param>
        ''' ---------------------------------------------------------------------------------------------------- 
        Public Sub New(equalityComparer As IEqualityComparer)
            MyBase.New(equalityComparer)
        End Sub
 
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <summary>
        ''' Initializes a new instance of the <see cref="NameObjectCollection"/>
        ''' class that is empty, has the specified initial capacity, and uses the specified
        ''' <see cref="System.Collections.IEqualityComparer"/> object.
        ''' </summary>
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <param name="capacity">
        ''' The initial number of entries that this <see cref="NameObjectCollection"/>
        ''' object can contain.
        ''' </param>
        '''
        ''' <param name="equalityComparer">
        ''' The <see cref="System.Collections.IEqualityComparer"/> object to use to determine whether two
        ''' keys are equal and to generate hash codes for the keys in the collection.
        ''' </param>
        ''' ---------------------------------------------------------------------------------------------------- 
        Public Sub New(capacity As Integer, equalityComparer As IEqualityComparer)
            MyBase.New(capacity, equalityComparer)
        End Sub
 
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <summary>
        ''' Copies the entries from the specified <see cref="NameObjectCollection"/>
        ''' to a new <see cref="NameObjectCollection"/> with the specified
        ''' initial capacity or the same initial capacity as the number of entries copied,
        ''' whichever is greater, and using the default case-insensitive hash code provider
        ''' and the default case-insensitive comparer.
        ''' </summary>
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <param name="capacity">
        ''' The initial number of entries that this <see cref="NameObjectCollection"/>
        ''' can contain.
        ''' </param>
        '''
        ''' <param name="col">
        ''' this <see cref="NameObjectCollection"/> to copy to the new <see cref="NameObjectCollection"/>
        ''' instance.
        ''' </param>
        ''' ---------------------------------------------------------------------------------------------------- 
        Public Sub New(capacity As Integer, col As NameObjectCollection)
            MyBase.New(capacity)
            If col Is Nothing Then
                Throw New ArgumentNullException(NameOf(col))
            End If
 
            Me.Add(col)
        End Sub
 
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <summary>
        ''' Initializes a new instance of the <see cref="NameObjectCollection"/>
        ''' class that is empty, has the specified initial capacity and uses the specified
        ''' hash code provider and the specified comparer.
        ''' </summary>
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <param name="capacity">
        ''' The initial number of entries that this <see cref="NameObjectCollection"/>
        ''' can contain.
        ''' </param>
        '''
        ''' <param name="hashProvider">
        ''' The <see cref="System.Collections.IHashCodeProvider"/> that will supply the hash codes for
        ''' all keys in this <see cref="NameObjectCollection"/>.
        ''' </param>
        '''
        ''' <param name="comparer">
        ''' The <see cref="System.Collections.IComparer"/> to use to determine whether two keys are equal.
        ''' </param>
        ''' ---------------------------------------------------------------------------------------------------- 
        <Obsolete("Please use NameObjectCollection(Int32, IEqualityComparer) instead.")>
        Public Sub New(capacity As Integer, hashProvider As IHashCodeProvider, comparer As IComparer)
            MyBase.New(capacity, hashProvider, comparer)
        End Sub
 
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <summary>
        ''' Initializes a new instance of the <see cref="NameObjectCollection"/>
        ''' class that is serializable and uses the specified <see cref="System.Runtime.Serialization.SerializationInfo"/>
        ''' and <see cref="System.Runtime.Serialization.StreamingContext"/>.
        ''' </summary>
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <param name="info">
        ''' A <see cref="System.Runtime.Serialization.SerializationInfo"/> object that contains the information
        ''' required to serialize the new <see cref="NameObjectCollection"/>
        ''' instance.
        ''' </param>
        '''
        ''' <param name="context">
        ''' A <see cref="System.Runtime.Serialization.StreamingContext"/> object that contains the source
        ''' and destination of the serialized stream associated with the new <see cref="NameObjectCollection"/>
        ''' instance.
        ''' </param>
        ''' ---------------------------------------------------------------------------------------------------- 
        Protected Sub New(info As SerializationInfo, context As StreamingContext)
            MyBase.New(info, context)
        End Sub
 
#End Region
 
#Region " Public Methods "
 
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <summary>
        ''' Copies the entries in the specified <see cref="NameObjectCollection"/>
        ''' to the current <see cref="NameObjectCollection"/>.
        ''' </summary>
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <param name="c">
        ''' this <see cref="NameObjectCollection"/> to copy to the current
        ''' <see cref="NameObjectCollection"/>.
        ''' </param>
        ''' ---------------------------------------------------------------------------------------------------- 
        Public Sub Add(c As NameObjectCollection)
            If c Is Nothing Then
                Throw New ArgumentNullException(NameOf(c))
            End If
 
            Me.InvalidateCachedArrays()
            Dim count As Integer = c.Count
            For i As Integer = 0 To count - 1
                Dim key As String = c.GetKey(i)
                Dim values() As Object = c.GetValues(i)
                If values IsNot Nothing Then
                    For j As Integer = 0 To values.Length - 1
                        Me.Add(key, values(j))
                    Next j
                Else
                    Me.Add(key, Nothing)
                End If
            Next i
        End Sub
 
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <summary>
        ''' Invalidates the cached arrays and removes all entries from this <see cref="NameObjectCollection"/>.
        ''' </summary>
        ''' ---------------------------------------------------------------------------------------------------- 
        Public Overridable Sub Clear()
            If MyBase.IsReadOnly Then
                Throw New NotSupportedException("CollectionReadOnly")
            End If
 
            Me.InvalidateCachedArrays()
            MyBase.BaseClear()
        End Sub
 
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <summary>
        ''' Copies the entire <see cref="NameObjectCollection"/> to a compatible
        ''' one-dimensional <see cref="System.Array"/>, starting at the specified index of the target array.
        ''' </summary>
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <param name="dest">
        ''' The one-dimensional <see cref="System.Array"/> that is the destination of the elements copied
        ''' from <see cref="NameObjectCollection"/>. The <see cref="System.Array"/> must
        ''' have zero-based indexing.
        ''' </param>
        '''
        ''' <param name="index">
        ''' The zero-based index in dest at which copying begins.
        ''' </param>
        ''' ---------------------------------------------------------------------------------------------------- 
        Public Sub CopyTo(dest As System.Array, index As Integer)
            If dest Is Nothing Then
                Throw New ArgumentNullException(NameOf(dest))
            End If
 
            If dest.Rank <> 1 Then
                Throw New ArgumentException("Arg_MultiRank")
            End If
 
            If index < 0 Then
                Throw New ArgumentOutOfRangeException(NameOf(index), "IndexOutOfRange")
            End If
 
            Dim count As Integer = Me.Count
            If dest.Length - index < count Then
                Throw New ArgumentException("Arg_InsufficientSpace")
            End If
 
            If Me._all Is Nothing Then
                Dim array(count - 1) As Object
                For i As Integer = 0 To count - 1
                    array(i) = Me.[Get](i)
                    dest.SetValue(array(i), i + index)
                Next i
 
                Me._all = array
            Else
                For j As Integer = 0 To count - 1
                    dest.SetValue(_all(j), j + index)
                Next j
            End If
        End Sub
 
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <summary>
        ''' Gets a value indicating whether this <see cref="NameObjectCollection"/>
        ''' contains keys that are not null.
        ''' </summary>
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <returns>
        ''' true if this <see cref="NameObjectCollection"/> contains keys
        ''' that are not null; otherwise, false.
        ''' </returns>
        ''' ---------------------------------------------------------------------------------------------------- 
        Public Function HasKeys() As Boolean
            Return Me.InternalHasKeys()
        End Function
 
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <summary>
        ''' Adds an entry with the specified name and value to this <see cref="NameObjectCollection"/>.
        ''' </summary>
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <param name="name">
        ''' The <see cref="String"/> key of the entry to add. The key can be null.
        ''' </param>
        '''
        ''' <param name="value">
        ''' The <see cref="String"/> value of the entry to add. The value can be null.
        ''' </param>
        ''' ---------------------------------------------------------------------------------------------------- 
        Public Overridable Sub Add(name As String, value As Object)
            If MyBase.IsReadOnly Then
                Throw New NotSupportedException("CollectionReadOnly")
            End If
 
            Me.InvalidateCachedArrays()
            Dim arrayList As ArrayList = DirectCast(MyBase.BaseGet(name), ArrayList)
            If arrayList Is Nothing Then
                arrayList = New ArrayList(1)
                If value IsNot Nothing Then
                    arrayList.Add(value)
                End If
 
                MyBase.BaseAdd(name, arrayList)
            ElseIf value IsNot Nothing Then
                arrayList.Add(value)
            End If
        End Sub
 
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <summary>
        ''' Gets the values associated with the specified key from this <see cref="NameObjectCollection"/>
        ''' combined into one comma-separated list.
        ''' </summary>
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <param name="name">
        ''' The <see cref="String"/> key of the entry that contains the values to get. The key can
        ''' be null.
        ''' </param>
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <returns>
        ''' A <see cref="String"/> that contains a comma-separated list of the values associated
        ''' with the specified key from this <see cref="NameObjectCollection"/>,
        ''' if found; otherwise, null.
        ''' </returns>
        ''' ---------------------------------------------------------------------------------------------------- 
        Public Overridable Function [Get](name As String) As Object
            Dim list As ArrayList = DirectCast(MyBase.BaseGet(name), ArrayList)
            Return NameObjectCollection.GetAsOneObject(list)
        End Function
 
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <summary>
        ''' Gets the values associated with the specified key from this <see cref="NameObjectCollection"/>.
        ''' </summary>
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <param name="name">
        ''' The <see cref="String"/> key of the entry that contains the values to get. The key can
        ''' be null.
        ''' </param>
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <returns>
        ''' A <see cref="Object"/> array that contains the values associated with the specified
        ''' key from this <see cref="NameObjectCollection"/>, if found; otherwise,
        ''' null.
        ''' </returns>
        ''' ---------------------------------------------------------------------------------------------------- 
        Public Overridable Function GetValues(name As String) As Object()
            Dim list As ArrayList = DirectCast(MyBase.BaseGet(name), ArrayList)
            Return NameObjectCollection.GetAsObjectArray(list)
        End Function
 
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <summary>
        ''' Sets the value of an entry in this <see cref="NameObjectCollection"/>.
        ''' </summary>
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <param name="name">
        ''' The <see cref="String"/> key of the entry to add the new value to. The key can be null.
        ''' </param>
        '''
        ''' <param name="value">
        ''' The <see cref="Object"/> that represents the new value to add to the specified entry.
        ''' The value can be null.
        ''' </param>
        ''' ---------------------------------------------------------------------------------------------------- 
        Public Overridable Sub [Set](name As String, value As Object)
            If MyBase.IsReadOnly Then
                Throw New NotSupportedException("CollectionReadOnly")
            End If
 
            Me.InvalidateCachedArrays()
            Dim arrayList As New ArrayList(1) From {value}
            MyBase.BaseSet(name, arrayList)
        End Sub
 
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <summary>
        ''' Removes the entries with the specified key from this <see cref="NameObjectCollection"/>
        ''' instance.
        ''' </summary>
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <param name="name">
        ''' The <see cref="String"/> key of the entry to remove. The key can be null.
        ''' </param>
        ''' ---------------------------------------------------------------------------------------------------- 
        Public Overridable Sub Remove(name As String)
            Me.InvalidateCachedArrays()
            MyBase.BaseRemove(name)
        End Sub
 
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <summary>
        ''' Gets the values at the specified index of this <see cref="NameObjectCollection"/>
        ''' combined into one comma-separated list.
        ''' </summary>
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <param name="index">
        ''' The zero-based index of the entry that contains the values to get from the collection.
        ''' </param>
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <returns>
        ''' A <see cref="String"/> that contains a comma-separated list of the values at the specified
        ''' index of this <see cref="NameObjectCollection"/>, if found; otherwise,
        ''' null.
        ''' </returns>
        ''' ---------------------------------------------------------------------------------------------------- 
        Public Overridable Function [Get](index As Integer) As Object
            Dim list As ArrayList = DirectCast(MyBase.BaseGet(index), ArrayList)
            Return NameObjectCollection.GetAsOneObject(list)
        End Function
 
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <summary>
        ''' Gets the values at the specified index of this <see cref="NameObjectCollection"/>.
        ''' </summary>
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <param name="index">
        ''' The zero-based index of the entry that contains the values to get from the collection.
        ''' </param>
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <returns>
        ''' A <see cref="String"/> array that contains the values at the specified index of the
        ''' <see cref="NameObjectCollection"/>, if found; otherwise, null.
        ''' </returns>
        ''' ---------------------------------------------------------------------------------------------------- 
        Public Overridable Function GetValues(index As Integer) As Object()
            Dim list As ArrayList = DirectCast(MyBase.BaseGet(index), ArrayList)
            Return NameObjectCollection.GetAsObjectArray(list)
        End Function
 
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <summary>
        ''' Gets the key at the specified index of this <see cref="NameObjectCollection"/>.
        ''' </summary>
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <param name="index">
        ''' The zero-based index of the key to get from the collection.
        ''' </param>
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <returns>
        ''' A <see cref="String"/> that contains the key at the specified index of this <see cref="NameObjectCollection"/>,
        ''' if found; otherwise, null.
        ''' </returns>
        ''' ---------------------------------------------------------------------------------------------------- 
        Public Overridable Function GetKey(index As Integer) As String
            Return MyBase.BaseGetKey(index)
        End Function
 
#End Region
 
#Region " Private Methods "
 
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <summary>
        ''' Resets the cached arrays of the collection to null.
        ''' </summary>
        ''' ---------------------------------------------------------------------------------------------------- 
        Protected Sub InvalidateCachedArrays()
            Me._all = Nothing
            Me._allKeys = Nothing
        End Sub
 
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <summary>
        ''' Gets a value indicating whether the <see cref="NameObjectCollection"/> has keys that are not null.
        ''' </summary>
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <returns>
        '''  <c>true</c> if the <see cref="NameObjectCollection"/> has keys that are not null; otherwise, <c>false</c>.
        ''' </returns>
        ''' ---------------------------------------------------------------------------------------------------- 
        Friend Overridable Function InternalHasKeys() As Boolean
            Return MyBase.BaseHasKeys()
        End Function
 
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <summary>
        ''' Converts an <see cref="ArrayList"/> to a single object.
        ''' </summary>
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <param name="list">
        ''' The <see cref="ArrayList"/> to convert.
        ''' </param>
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <returns>
        ''' The converted object. If the <see cref="ArrayList"/> contains a single item, that item is returned. 
        ''' If the <see cref="ArrayList"/> contains multiple items, 
        ''' a <see cref="Collection"/> object is created with the items and returned.
        ''' If the <see cref="ArrayList"/> is empty or null, null is returned.
        ''' </returns>
        ''' ---------------------------------------------------------------------------------------------------- 
        Private Shared Function GetAsOneObject(list As ArrayList) As Object
            Dim num As Integer = If(list?.Count, 0)
            If num = 1 Then
                Return list(0)
            End If
 
            If num > 1 Then
                Dim collection As New Collection From {list(0)}
                For i As Integer = 1 To num - 1
                    collection.Add(list(i))
                Next i
                Return collection
            End If
 
            Return Nothing
        End Function
 
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <summary>
        ''' Converts an <see cref="ArrayList"/> to an array of objects.
        ''' </summary>
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <param name="list">
        ''' The <see cref="ArrayList"/> to convert.
        ''' </param>
        ''' ---------------------------------------------------------------------------------------------------- 
        ''' <returns>
        ''' An array of objects containing the items from the <see cref="ArrayList"/>.
        ''' If the <see cref="ArrayList"/> is empty or null, null is returned.
        ''' </returns>
        ''' ---------------------------------------------------------------------------------------------------- 
        Private Shared Function GetAsObjectArray(list As ArrayList) As Object()
            Dim num As Integer = If(list?.Count, 0)
            If num = 0 Then
                Return Nothing
            End If
 
            Dim array(num - 1) As Object
            list.CopyTo(0, array, 0, num)
            Return array
        End Function
 
#End Region
 
    End Class
 
End Namespace
 
 

Dos funciones para truncar un string, al final del string o en medio.

Ejemplo:



Nota: para evitar mal entendidos, en este ejemplo visual se ha utilizado el caracter "…" como caracter separador de cadena truncada, que no son tres caracteres de puntos sino un solo caracter ("…".Length = 1).

---

' ***********************************************************************
' Author   : ElektroStudios
' Modified : 13-July-2023
' ***********************************************************************
 
#Region " Public Members Summary "
 
' String.Truncate(Integer, Opt: String) As String
' String.TruncateMiddle(Integer, Opt: String) As String
 
#End Region
 
#Region " Option Statements "
 
Option Strict On
Option Explicit On
Option Infer Off
 
#End Region
 
#Region " Imports "
 
Imports System.ComponentModel
Imports System.Runtime.CompilerServices
 
#End Region
 
#Region " String Extensions "
 
' ReSharper disable once CheckNamespace
 
Namespace DevCase.Extensions.StringExtensions
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Contains custom extension methods to use with a <see cref="String"/> type.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    <HideModuleName>
    Public Module StringExtensions
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Truncates the source string to a specified length 
        ''' and replaces the truncated part with an ellipsis.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <example> This is a code example.
        ''' <code language="VB.NET">
        ''' Dim text As String = "123456789"
        ''' Dim truncated As String = Truncate(text, 5)
        ''' Console.WriteLine(truncated)
        ''' </code>
        ''' </example>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <param name="text">
        ''' The string that will be truncated.
        ''' </param>
        ''' 
        ''' <param name="maxLength">
        ''' The maximum length of characters to maintain before truncation occurs.
        ''' </param>
        ''' 
        ''' <param name="elipsis">
        ''' Optional. The ellipsis string to use as the replacement. 
        ''' <para></para>
        ''' Default value is: "…" (U+2026)
        ''' </param>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <returns>
        ''' The truncated string with the ellipsis in the end.
        ''' </returns>
        ''' ----------------------------------------------------------------------------------------------------
        <DebuggerStepThrough>
        <Extension>
        <EditorBrowsable(EditorBrowsableState.Always)>
        Public Function Truncate(text As String, maxLength As Integer, Optional elipsis As String = "…") As String
            If maxLength < 1 Then
                Throw New ArgumentException("Value can't be less than 1.", paramName:=NameOf(maxLength))
            End If
 
            If String.IsNullOrEmpty(text) Then
                Throw New ArgumentNullException(paramName:=NameOf(text))
            End If
 
#If NETCOREAPP Then
            Return If(text.Length <= maxLength, text, String.Concat(text.AsSpan(0, maxLength), elipsis))
#Else
            Return If(text.Length <= maxLength, text, text.Substring(0, maxLength) & elipsis)
#End If
 
        End Function
 
        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Truncates the source string to a specified length by stripping out the center 
        ''' and replacing it with an ellipsis, so that the beginning and end of the string are retained.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <example> This is a code example.
        ''' <code language="VB.NET">
        ''' Dim text As String = "123456789"
        ''' Dim truncated As String = TruncateMiddle(text, 6)
        ''' Console.WriteLine(truncated)
        ''' </code>
        ''' </example>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <param name="text">
        ''' The string that will be truncated.
        ''' </param>
        ''' 
        ''' <param name="maxLength">
        ''' The maximum length of characters to maintain before truncation occurs.
        ''' </param>
        ''' 
        ''' <param name="elipsis">
        ''' Optional. The ellipsis string to use as the replacement. 
        ''' <para></para>
        ''' Default value is: "…" (U+2026)
        ''' </param>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <returns>
        ''' The truncated string with the ellipsis in the middle.
        ''' </returns>
        ''' ----------------------------------------------------------------------------------------------------
        <DebuggerStepThrough>
        <Extension>
        <EditorBrowsable(EditorBrowsableState.Always)>
        Public Function TruncateMiddle(text As String, maxLength As Integer, Optional elipsis As String = "…") As String
            If maxLength < 1 Then
                Throw New ArgumentException("Value can't be less than 1.", paramName:=NameOf(maxLength))
            End If
 
            If String.IsNullOrEmpty(text) Then
                Throw New ArgumentNullException(paramName:=NameOf(text))
            End If
 
            Dim charsInEachHalf As Integer = maxLength \ 2
            Dim right As String = text.Substring(text.Length - charsInEachHalf, charsInEachHalf)
            Dim left As String = text.Substring(0, maxLength - right.Length)
 
            Return $"{left}{elipsis}{right}"
        End Function
 
    End Module
 
End Namespace
 
#End Region

Cifrar código fuente de Visual Basic Script (VBS):

 - https://foro.elhacker.net/programacion_visual_basic/cogravemo_puedo_cifrar_archivos_vbs-t409714.0.html;msg2277482#msg2277482

Los dos siguientes métodos sirven para truncar nombres de archivos que superen los 255 caracteres (incluyendo la longitud de la extensión del archivo), acortando la longitud cuanto sea necesario para no sobrepasar dicho límite, y añadiendo puntos suspensivos (…) al final del nombre del archivo.

Eso es lo que hace con los nombres de archivo (file name), no con las rutas (file path).

En caso de enviar como parámetro a cualquiera de estos dos métodos una ruta de archivo (file path), aparte de realizar los ajustes mencionados con el nombre del archivo y, en caso de que la ruta exceda el límite máximo permitido de 260 caracteres (definido en MAX_PATH), se añadirá el prefijo "\\?\" a la ruta para garantizar la compatibilidad de uso con sistemas NTFS que tengan habilitado el soporte para rutas de longitud extendida (es decir, mayores de 260 caracteres).

De esta forma, y además de prevenir el uso de nombres de archivo (file names) inválidos / demasiado largos, además se garantiza que la aplicación que utilice estos métodos para la manipulación o creación de archivos sea "LONG PATH AWARE".

Nota: Los métodos han pasado pruebas usando rutas locales (relativas y absolutas). No han sido probados con rutas UNC ni adaptados para ello.

Leer con detenimiento el bloque de documentación XML para más información.

''' ----------------------------------------------------------------------------------------------------
''' <summary>
''' If needed, truncates the length of the specified file name or full file path  
''' to comply with Windows OS maximum file name length of 255 characters 
''' (including the file extension length).
''' <para></para>
''' If the file name exceeds this limit, it truncates it and 
''' adds a ellipsis (…) at the end of the file name.
''' <para></para>
''' If the path exceeds the MAX_PATH limit (260 characters), 
''' it adds the "\\?\" prefix to support extended-length paths.
''' <para></para>
''' See also: <see href="https://learn.microsoft.com/en-us/windows/win32/fileio/maximum-file-path-limitation"/>
''' </summary>
''' ----------------------------------------------------------------------------------------------------
''' <remarks>
''' This method is particularly useful when dealing with file names or file paths that might exceed 
''' the maximum allowed length, preventing potential errors related to file name length limitations
''' when creating files in the drive.
''' </remarks>
''' ----------------------------------------------------------------------------------------------------
''' <param name="filePath">
''' The file name or full file path.
''' </param>
''' 
''' <param name="maxFileNameLength">
''' Optional. The maximum character length that the file name can have. 
''' Default (and maximum) value is 255.
''' </param>
''' ----------------------------------------------------------------------------------------------------
''' <returns>
''' The truncated file name or full file path.
''' </returns>
''' ----------------------------------------------------------------------------------------------------
<DebuggerStepThrough>
Public Shared Function TruncateLongFilePath(filePath As String, Optional maxFileNameLength As Byte = 255) As String
 
    If String.IsNullOrEmpty(filePath) Then
        Throw New ArgumentNullException(paramName:=NameOf(filePath))
    End If
 
    If filePath.StartsWith("\\?\", StringComparison.Ordinal) Then
        filePath = filePath.Substring(4)
    End If
 
    Dim fileInfo As New FileInfo(If(filePath.Length <= 255, filePath, $"\\?\{filePath}"))
    TruncateLongFilePath(fileInfo, maxFileNameLength)
    Return fileInfo.FullName
 
End Function
 
''' ----------------------------------------------------------------------------------------------------
''' <summary>
''' If needed, truncates the length of the file name in 
''' the source <see cref="FileInfo"/> object to comply with 
''' Windows OS maximum file name length of 255 characters 
''' (including the file extension length).
''' <para></para>
''' If the file name exceeds this limit, it truncates it and 
''' adds a ellipsis (…) at the end of the file name.
''' <para></para>
''' If the path exceeds the MAX_PATH limit (260 characters), 
''' it adds the "\\?\" prefix to support extended-length paths.
''' <para></para>
''' See also: <see href="https://learn.microsoft.com/en-us/windows/win32/fileio/maximum-file-path-limitation"/>
''' </summary>
''' ----------------------------------------------------------------------------------------------------
''' <remarks>
''' This method is particularly useful when dealing with file paths that might exceed 
''' the maximum allowed length, preventing potential errors related to file name length limitations
''' when creating files in the drive.
''' </remarks>
''' ----------------------------------------------------------------------------------------------------
''' <param name="refFileInfo">
''' The source <see cref="FileInfo"/> object representing a full file path.
''' <para></para>
''' When this method returns, this object contains the file path with the file name truncated.
''' </param>
''' 
''' <param name="maxFileNameLength">
''' Optional. The maximum character length that the file name can have. 
''' Default (and maximum) value is 255.
''' </param>
''' ----------------------------------------------------------------------------------------------------
<DebuggerStepThrough>
Public Shared Sub TruncateLongFilePath(ByRef refFileInfo As FileInfo, Optional maxFileNameLength As Byte = 255)
 
    If refFileInfo Is Nothing Then
        Throw New ArgumentNullException(paramName:=NameOf(refFileInfo))
    End If
 
    If maxFileNameLength = 0 Then
        Throw New ArgumentException("Value must be greater than zero.", paramName:=NameOf(maxFileNameLength))
    End If
 
    If refFileInfo.Name.Length >= maxFileNameLength Then
        Dim fileExt As String = refFileInfo.Extension
        Dim fileName As String = refFileInfo.Name.Substring(0, maxFileNameLength - 1 - fileExt.Length) & $"…{fileExt}"
 
        Dim directoryName As String = Path.GetDirectoryName(refFileInfo.FullName)
        If directoryName.Equals("\\?", StringComparison.Ordinal) Then
            refFileInfo = New FileInfo($"\\?\{fileName}")
 
        ElseIf directoryName.StartsWith("\\?\", StringComparison.Ordinal) Then
            refFileInfo = New FileInfo(Path.Combine(refFileInfo.DirectoryName, fileName))
 
        Else
            Dim fullpath As String = Path.Combine(refFileInfo.DirectoryName, fileName)
            refFileInfo = If(fullpath.Length >= 260, ' MAX_PATH
                          New FileInfo($"\\?\{fullpath}"),
                          New FileInfo(fullpath))
        End If
    End If
 
End Sub

La siguiente función, por nombre "GetAssemblyNetTargetType", sirve para determinar si el tipo de un archivo de ensamblado es .NET Framework, .NET Standard o .NET Core.

Modo de empleo:

Dim assembly As Assembly = Assembly.LoadFile("C:\Assembly.dll")
Dim assemblyType As NetTargetType = GetAssemblyNetTargetType(assembly)
Console.WriteLine(assemblyType.ToString())

La función contiene tres validaciones diferentes, separadas por Regiones, aunque por lo general solamente se procesará el bloque de código de la primera validación.

Se ha diseñado así con la intención de funcionar correctamente en diversos escenarios, con errores esperados e inesperados de Reflection, y ya sea teniendo en cuenta si se usa esta función desde una aplicación .NET Framework, o .NET Core.

''' <summary>
''' Specifies the type of a .NET assembly.
''' </summary>
Public Enum NetTargetType
    ''' <summary>
    ''' An assembly that targets .NET Framework.
    ''' </summary>
    NetFramework
 
    ''' <summary>
    ''' An assembly that targets .NET Standard.
    ''' </summary>
    NetStandard
 
    ''' <summary>
    ''' An assembly that targets .NET Core.
    ''' </summary>
    NetCore
End Enum

''' ----------------------------------------------------------------------------------------------------
''' <summary>
''' Determines whether the specified assembly ia a .NET Framework, .NET Standard or .NET Core assembly.
''' </summary>
''' ----------------------------------------------------------------------------------------------------
''' <returns>
''' A <see cref="NetTargetType"/> value that indicates the type of assembly.
''' </returns>
''' ----------------------------------------------------------------------------------------------------
<DebuggerStepThrough>
Public Shared Function GetAssemblyNetTargetType(assembly As Assembly) As NetTargetType
 
#Region " Primary validation "
    Dim parimaryValidationException As Exception = Nothing
 
    Dim attrib As TargetFrameworkAttribute
    Try
        attrib = assembly.GetCustomAttributes.OfType(Of TargetFrameworkAttribute).SingleOrDefault()
        If attrib?.FrameworkName.StartsWith(".NETFramework", StringComparison.OrdinalIgnoreCase) Then
            Return NetTargetType.NetFramework
 
        ElseIf attrib?.FrameworkName.StartsWith(".NETStandard", StringComparison.OrdinalIgnoreCase) Then
            Return NetTargetType.NetStandard
 
        ElseIf attrib?.FrameworkName.StartsWith(".NETCore", StringComparison.OrdinalIgnoreCase) Then
            Return NetTargetType.NetCore
 
        Else
            Throw New NotImplementedException($"Cannot determine type of {NameOf(TargetFrameworkAttribute)}.")
 
        End If
 
    Catch ex As FileNotFoundException When ex.FileName.StartsWith("System.Runtime", StringComparison.OrdinalIgnoreCase)
        ' This exception will be thrown generally when the current
        ' running application is targetting .NET Framework
        ' and Reflection (via method "GetCustomAttributes")
        ' tries to load "System.Runtime" assembly.
 
        Dim assName As New AssemblyName(ex.FileName)
        If assName.Version.Major >= 4 AndAlso assName.Version.Minor <> 0 Then
            Return NetTargetType.NetCore
        Else
            ' Ignore and continue with the alternative .NET Core validation.
        End If
 
    Catch ex As Exception
        parimaryValidationException = ex
        ' Ignore for now, and continue with the alternative validations.
 
    End Try
#End Region
 
#Region " .NET Standard alternative validation (when Primary validation failed) "
    Dim isNetStandard As Boolean =
        assembly.GetReferencedAssemblies().
                 Any(Function(x) x.Name.Equals("netstandard", StringComparison.OrdinalIgnoreCase))
 
    If isNetStandard Then
        Return NetTargetType.NetStandard
    End If
#End Region
 
#Region " .NET Core alternative validation (when Primary validation failed) "
Dim isNetCore As Boolean =
    assembly.GetReferencedAssemblies().
             Any(Function(x As AssemblyName)
                     Return (x.Name.Equals("System.Runtime", StringComparison.OrdinalIgnoreCase) _
                             AndAlso x.Version.Major >= 4 _
                             AndAlso x.Version.Minor <> 0) _
                             OrElse ({"System.Collections",
                                      "System.ComponentModel.Primitives",
                                      "System.Drawing.Primitives",
                                      "System.Windows.Forms"
                                     }.Contains(x.Name) _
                             AndAlso x.Version.Major > 4)
                 End Function)
 
    If isNetCore Then
        Return NetTargetType.NetCore
    End If
#End Region
 
    If parimaryValidationException IsNot Nothing Then
        Throw parimaryValidationException
    End If
    Throw New Exception("Cannot determine type of assembly.")
End Function