Vba 读取INI文件中逗号分隔的整数

我有一个像这样的INI文件

[columnNumber]
Number1=2,4

这是我的密码 ini文件是

columberNumber作为字符串2,4，我想拆分它并将其传递到我的select case对象mytmp循环中，用于Number1中的所有值将其传递给select中的mytmp

columnNum = ReadIni(file, "columnNumber", "Number1")
    mytmp = columnNum
    x = Split(mytmp, ",")
    For k = 0 To UBound(x)
    'mytmp1 = Split(array_colnum, ",")
    'mytmp2 = Search(array_col)


    'mytmp1 = x(k)
    'mytmp2 = x(k)
    Next k

这是我选择的案例

select case i...<does something>

       select case mytmp 

谁能指导我做这件事

---

更新：我想把从[columnNumber]得到的值放在选择案例I中，我的ReadIni函数从[columnNumber section]读取数字1={2,4}我想将其拆分并存储在一个变量中，该变量是从选择案例变量中读取的

还不完全清楚您到底想做什么。。。 我是什么变量？它应该包含什么

    mytmp = "2,4"
    x = Split(mytmp, ",")

    For k = LBound (x) To UBound (x)
            '## Get value and store in variable "I".
            i = x (k) 

            Select Case i
                    Case "2"
                            Response.Write "yep, it's 2"
                    Case "4"
                            Response.Write "yep, it's 4"
            End Select
    Next

---

现在还不完全清楚你到底想做什么。。。 我是什么变量？它应该包含什么

    mytmp = "2,4"
    x = Split(mytmp, ",")

    For k = LBound (x) To UBound (x)
            '## Get value and store in variable "I".
            i = x (k) 

            Select Case i
                    Case "2"
                            Response.Write "yep, it's 2"
                    Case "4"
                            Response.Write "yep, it's 4"
            End Select
    Next

---

现在还不完全清楚你到底想做什么。。。 我是什么变量？它应该包含什么

    mytmp = "2,4"
    x = Split(mytmp, ",")

    For k = LBound (x) To UBound (x)
            '## Get value and store in variable "I".
            i = x (k) 

            Select Case i
                    Case "2"
                            Response.Write "yep, it's 2"
                    Case "4"
                            Response.Write "yep, it's 4"
            End Select
    Next

---

现在还不完全清楚你到底想做什么。。。 我是什么变量？它应该包含什么

    mytmp = "2,4"
    x = Split(mytmp, ",")

    For k = LBound (x) To UBound (x)
            '## Get value and store in variable "I".
            i = x (k) 

            Select Case i
                    Case "2"
                            Response.Write "yep, it's 2"
                    Case "4"
                            Response.Write "yep, it's 4"
            End Select
    Next

---

好的+但是case不应该是分开的，比如说[2]={2,4}选择case i如何这样做！x=SplitcolumnNum，对于k=LBoundx到UBoundx，在这个mytmp中i=xk mytmp=Vali给出了2，如何循环得到4？2-这是正确的，因为您只有2个值。如果您需要通过4次，那么您应该1解析所有，并找到最高值是我们的案例将是4。2您应该将k=LBound x的选择框移到UBound xok之外+但是case不应该是分开的，比如说[2]={2,4}选择case i如何这样做！x=SplitcolumnNum，对于k=LBoundx到UBoundx，在这个mytmp中i=xk mytmp=Vali给出了2，如何循环得到4？2-这是正确的，因为您只有2个值。如果您需要通过4次，那么您应该1解析所有，并找到最高值是我们的案例将是4。2您应该将k=LBound x的选择框移到UBound xok之外+但是case不应该是分开的，比如说[2]={2,4}选择case i如何这样做！x=SplitcolumnNum，对于k=LBoundx到UBoundx，在这个mytmp中i=xk mytmp=Vali给出了2，如何循环得到4？2-这是正确的，因为您只有2个值。如果您需要通过4次，那么您应该1解析所有，并找到最高值是我们的案例将是4。2您应该将k=LBound x的选择框移到UBound xok之外+但是case不应该是分开的，比如说[2]={2,4}选择case i如何这样做！x=SplitcolumnNum，对于k=LBoundx到UBoundx，在这个mytmp中i=xk mytmp=Vali给出了2，如何循环得到4？2-这是正确的，因为您只有2个值。如果您需要通过4次，那么您应该1解析所有，并找到最高值是我们的案例将是4。2您应该将k=LBound x的选择框移到UBound XC，您的问题是否更清楚？很难说出你到底在问什么我更新了问题如果现在你能检查一下的话！请你把问题说清楚一点好吗？很难说出你到底在问什么我更新了问题如果现在你能检查一下的话！请你把问题说清楚一点好吗？很难说出你到底在问什么我更新了问题如果现在你能检查一下的话！请你把问题说清楚一点好吗？很难说出你到底在问什么我更新了问题如果现在你能检查一下的话！请