Vb6 如何将字符串拆分为单个字符数组_Vb6

Vb6 如何将字符串拆分为单个字符数组

vb6

Vb6 如何将字符串拆分为单个字符数组,vb6,Vb6,我有一个名为txtnum的文本框，我必须在其中输入一个15位数字并将其分配给变量num。我想将数字拆分为单个字符，以便j可以对每个字符进行计算。类似于：product=arraynum[2]*2。如何将文本框中的字符串拆分为数组字符？据我所知，没有内置内容，但编写一个接受字符串并返回字符数组的函数非常简单： Function ToArray(s As String) As Variant Dim A As Variant Dim i As Long, n As Long

我有一个名为txtnum的文本框，我必须在其中输入一个15位数字并将其分配给变量num。我想将数字拆分为单个字符，以便j可以对每个字符进行计算。类似于：product=arraynum[2]*2。如何将文本框中的字符串拆分为数组字符？

据我所知，没有内置内容，但编写一个接受字符串并返回字符数组的函数非常简单：

Function ToArray(s As String) As Variant
    Dim A As Variant
    Dim i As Long, n As Long
    n = Len(s)
    ReDim A(0 To n - 1)
    For i = 0 To n - 1
        A(i) = Mid(s, i + 1, 1)
    Next i
    ToArray = A
End Function

这样做之后，与简单使用Mid相比，使用这样的函数几乎没有什么实际好处。

据我所知，没有任何内置功能，但编写一个接受字符串并返回字符数组的函数非常容易：

Function ToArray(s As String) As Variant
    Dim A As Variant
    Dim i As Long, n As Long
    n = Len(s)
    ReDim A(0 To n - 1)
    For i = 0 To n - 1
        A(i) = Mid(s, i + 1, 1)
    Next i
    ToArray = A
End Function

这样做之后，与简单使用Mid相比，使用这样的函数几乎没有什么实际好处。

这里是另一个选项：

   Dim s As Variant
   s = "012345678901234"
   s = StrConv(s, vbUnicode)
   s = Split(s, vbNullChar)

s将包含一个字符数组。

这里是另一个选项：

   Dim s As Variant
   s = "012345678901234"
   s = StrConv(s, vbUnicode)
   s = Split(s, vbNullChar)

s将包含一个字符数组。

如果字符串包含的字符超出了常用的英语范围，则此操作将中断。它只适用于数字，但即使如此，它仍然是一个丑陋的黑客，不应该使用。如果字符串包含的字符超出了常用的英语范围，这将中断。它只适用于数字，但即使如此，它仍然是一个丑陋的黑客，不应该使用。可能重复的可能重复的