将整数拆分为数组 VB

Question

下午好，

我应该如何在VB中拆分一个值并将其插入到数组中？

例如：

初始值为987654321。

使用for循环，我需要将该值插入到数组中，如下所示：

Position(1) = 9 '从拆分的整数中取出第一个数字

Position(2) = 8 '从拆分的整数中取出第二个数字

以此类推...

谢谢。

- Filipe Costa

Answer 1

这段代码未经过测试：

Dim x As Integer = 987654321
Dim s As String = x.ToString
Dim a(s.Length) As String

For i As Integer = 0 To s.Length - 1
  a(i) = s.Substring(i, 1)
Next i

- aphoria

Answer 2

你可以尝试以下方法：

Dim number As Integer = 987654321
Dim strText As String = number.ToString()

Dim charArr() As Char = strText.ToCharArray()

一旦数字被分离，你就可以从这个数组中取出它们，如果需要，可以将它们转换回数字。

- nickmoriarty

Answer 3

将任何数字分别显示在3个不同的消息框中。 您可以使用示例创建一个函数，以更好地适应您的目的。

Sub GetNumber()
Dim x As Integer, s As String
x = 987
s = LTrim(Str(x))

For i = 1 To Len(s)
    MsgBox Mid(s, i, 1)
Next i
End Sub

- just helping

Answer 4

我知道这是一个老问题，但这里是我能找到的最优雅的解决方案：

Dim key As Integer = 987654321
Dim digits() As Integer = System.Array.ConvertAll(Of Char, Integer)(key.ToString.ToCharArray, Function(c As Char) Integer.Parse(c.ToString))

- вʀaᴎᴅᴏƞ вєнᴎєƞ

Answer 5

Dim number As Integer = 987654321
Dim digits() As Integer = number.ToString().Cast(Of Integer)().ToArray()

- Joel Coehoorn

---

在调用.Cast(Of Integer)()方法时出现了无效转换异常。 - вʀaᴎᴅᴏƞ вєнᴎєƞ