将.NET 4.8.1 VB类库迁移至.NET Standard 2.0的VB函数兼容问题

问题背景 #

我们有一个从VB6迁移而来、基于.NET 4.8.1的类库，为.NET 4.8.1主应用提供服务。计划将该类库迁移至.NET Standard 2.0，为后续整体升级到.NET 7/8铺路。迁移时已引用Microsoft.VisualBasic NuGet包（10.3.0），但Len、Mid、Val、Asc等VB专属函数仍报错。相同代码在.NET 7中可正常运行，但因需同时兼容.NET 4.8.1和.NET 7应用，无法直接采用.NET 7方案，且暂无时间重写现有代码，需最小改动的解决办法。

示例报错代码：

Public Shared Function HexEncode(Text As String) As String
    Try
        Dim iCount As Double, sTemp As String = "", GData As String = ""
        For iCount = 1 To Text.Length
            sTemp = Hex$(Asc(Mid$(Text, iCount, 1)))
            If Len(sTemp) < 2 Then sTemp = "0" & sTemp
            GData &= sTemp
        Next
        HexEncode = GData
    Catch ex As Exception
        Return ""
    End Try
End Function 

最小改动解决方案 #

方案1：直接替换为Strings类调用 #

在.NET Standard 2.0中，VB6风格的全局函数（包括带$的版本）被封装到Microsoft.VisualBasic.Strings静态类中，只需将原代码中的全局函数调用替换为Strings类的方法即可，同时确保代码文件顶部导入Microsoft.VisualBasic命名空间。

修改后的代码：

Imports Microsoft.VisualBasic

Public Shared Function HexEncode(Text As String) As String
    Try
        Dim iCount As Double, sTemp As String = "", GData As String = ""
        For iCount = 1 To Strings.Len(Text)
            sTemp = Strings.Hex(Strings.Asc(Strings.Mid(Text, iCount, 1)))
            If Strings.Len(sTemp) < 2 Then sTemp = "0" & sTemp
            GData &= sTemp
        Next
        HexEncode = GData
    Catch ex As Exception
        Return ""
    End Try
End Function

该方案同时兼容.NET 4.8.1和.NET Standard 2.0，因为.NET 4.8.1中同样存在Strings类，调用逻辑完全一致。

方案2：添加兼容性模块（零改动原代码） #

如果不想逐个修改函数调用，可以在项目中添加一个兼容性模块，重新封装这些函数为全局可用的版本，原代码无需任何修改：

Imports Microsoft.VisualBasic

Module VBCompatibility
    Public Function Len(value As String) As Integer
        Return Strings.Len(value)
    End Function

    Public Function Mid(value As String, start As Integer, length As Integer) As String
        Return Strings.Mid(value, start, length)
    End Function

    Public Function Asc(value As String) As Integer
        Return Strings.Asc(value)
    End Function

    Public Function Hex(value As Integer) As String
        Return Strings.Hex(value)
    End Function

    ' 按需添加Val等其他需要的VB专属函数
End Module

确保该模块与原代码文件处于同一命名空间，或在原代码文件中导入该模块所在的命名空间即可。

内容的提问来源于stack exchange，提问作者christosst