vb中len函数mid函数无法使用

Question

就是想 实现个简单的把字符串每两个字符插入点东西，可是运行的时候报错len未定义，我看了微软官方文档里面存在len和mid函数 但是在ms vb 2022却无法调用，这是为什么？没有对应的库？

Private Sub begin_Click(sender As Object, e As RoutedEventArgs) Handles begin.Click
        Dim origindata, newdata As String
        Dim i, lens As Integer
        i = 0

        origindata = input.Text
        newdata = "("
        lens = len(origindata)


        Do While (i + 2) < lens
            newdata = newdata + ",0X" + Mid(origindata, i, 2)
            i += 2
        Loop
        output.Text = newdata


    End Sub

Answer 1

该回答引用GPTᴼᴾᴱᴺᴬᴵ
在VB.NET中，Len函数和Mid函数是VB语言的遗留下来的函数，它们仍然可用，但官方推荐使用.NET Framework提供的相应方法。

在您的代码中，出现“len未定义”和“mid未定义”错误可能是因为您没有正确地导入相关的命名空间。请尝试添加以下代码：

Imports System
Imports Microsoft.VisualBasic

这将导入Microsoft.VisualBasic命名空间，其中包含VB语言的遗留函数。

另外，您也可以使用.NET Framework提供的字符串方法Length和Substring来代替Len和Mid函数。例如，您可以将代码中的lens = Len(origindata)替换为lens = origindata.Length，将Mid(origindata, i, 2)替换为origindata.Substring(i, 2)。