How to convert an Integer in Array - excel

Question

I'm learning how to work with VBA.
I need to read an Integer and store it in an Array breaking it down to single characters.
For example, if I input the number 1927, I need it to be stored as
Array[0] = 1
Array[1] = 9
Array[2] = 2
Array[3] = 7
I've been looking how to do this for 2 days.Can someone help ?

Answer 1

I find a conversion to a unicode string and subsequent split on Chr(0) is an efficient way to create an array of individual characters.
Dim str As String, arr As Variant, i as long
str = StrConv(CStr(1927), vbUnicode)
arr = Split(str, Chr(0))
redim preserve arr(ubound(arr)-1)
For i = LBound(arr) To UBound(arr)
Debug.Print arr(i)
Next i
Debug.Print Join(arr, vbNullString)

Answer 2

You can convert the integer to a string as follows :
cstr(int)
then you can extract your single numbers as char from the string that you created as follows :
Mid(s, index, 1)
Check this link for more documentation.

Answer 3

This is a possible solution:
Option Explicit
Public Sub SplitIntToArray()
Dim inputString As String
inputString = "1927"
Dim cnt As Long
Dim myArr As Variant
ReDim myArr(Len(inputString) - 1)
For cnt = LBound(myArr) To UBound(myArr)
myArr(cnt) = Mid(inputString, cnt + 1, 1)
Next cnt
For cnt = LBound(myArr) To UBound(myArr)
Debug.Print myArr(cnt)
Next cnt
End Sub
It takes the inputString and based on its length it dimensionzes the myArr. Then it loops the newly dimensionized array and it assigns Mid(inputString, cnt+1,1) to every part of the array. THe cnt+1 is needed, because the first char of the string needs to be in the 0th element of the array, as the arrays start at zero.
You can also make a function, taking string and returning array:
Public Sub SplitIntToArray()
Dim inputString As String
Dim cnt As Long
Dim myArr As Variant
myArr = stringToArray("1927")
For cnt = LBound(myArr) To UBound(myArr)
Debug.Print myArr(cnt)
Next cnt
End Sub
Public Function stringToArray(inputString As String) As Variant
Dim cnt As Long
Dim returnArray As Variant
If Len(inputString) = 0 Then
stringToArray = Array()
Exit Function
End If
ReDim returnArray(Len(inputString) - 1)
For cnt = LBound(returnArray) To UBound(returnArray)
returnArray(cnt) = Mid(inputString, cnt + 1, 1)
Next cnt
stringToArray = returnArray
End Function

Answer 4

Here's another solution that doesn't require looping to assign the values to an array, or from an array to a string.
Sub Ex()
Dim Integers() As Byte
Dim i As Long
Integers = StrConv("0123456789", vbFromUnicode)
'Print the values out, already in an array
For i = LBound(Integers) To UBound(Integers)
Debug.Print Chr$(Integers(i))
Next
'Put back into a string
Dim MyInts As String
MyInts = StrConv(Integers, vbUnicode)
Debug.Print MyInts
End Sub

Answer 5

No one appears to have used the mathematical route yet. So let me do that.
Sub numArr()
Dim num As Integer
Dim arr() As Integer
num = 1927
i = 0
Do
i = i + 1
ReDim Preserve arr(i)
arr(i) = num Mod 10
num = num \ 10
Loop While num > 0
End Sub
This one was more fun writing.