vb截取字符问题。

Question

aa=split("111,2333,467788",",")
aa(1)="111"
aa(2)=..
...

Answer 1

Dim o_Array() As String
   Dim o_strCutFormat as String
   Dim o_iCutFileCount as Long   o_strCutFormat = "111,2333,467788"
   o_Array() = Split(o_strCutFormat, ",", , vbTextCompare)
   o_iCutFileCount = UBound(o_Array)

Answer 2

dim str1 as string
dim strArray() as string
dim int1() as integer
dim i as integer
str1="111,2333,467788"
strArray=split(str1,",")
redim strArray(UBOUND(strArray))
redim int1(UBOUND(strArray))for i=0 to UBOUND(strArray)
    '从数组中给别的变量置数
　　int1(i)=cint(strarray(i))
next