如何把这些内容读到动态数组中??

Question

Split函数
      描述返回一个下标从零开始的一维数组，它包含指定数目的子字符串。语法Split(expression[, delimiter[, count[, compare]]])Split函数语法有如下几部分：部分 描述 
expression 必需的。包含子字符串和分隔符的字符串表达式 。如果expression是一个长度为零的字符串("")，Split则返回一个空数组，即没有元素和数据的数组。 
delimiter 可选的。用于标识子字符串边界的字符串字符。如果忽略，则使用空格字符(" ")作为分隔符。如果delimiter是一个长度为零的字符串，则返回的数组仅包含一个元素，即完整的 expression字符串。 
count 可选的。要返回的子字符串数，–1表示返回所有的子字符串。 
compare 可选的。数字值，表示判别子字符串时使用的比较方式。关于其值，请参阅“设置值”部分。 
设置值compare参数的设置值如下：常数 值 描述 
vbUseCompareOption –1 用Option Compare语句中的设置值执行比较。 
vbBinaryCompare 0 执行二进制比较。 
vbTextCompare 1 执行文字比较。 
vbDatabaseCompare 2 仅用于Microsoft Access。基于您的数据库的信息执行比较。 

Answer 1

贴到随便哪个函数里看看吧, 上面说那么清楚了,还要职业精神? 是不是要帮你把程序写完啊??
    Dim m As String
    m = "fas,fjak,asdfj,asdfjklw,sdfajkl,"
    Dim s() As String
    s = Split(m, ",")
    dim i as integer
    i = i
    Do
        Debug.Print s(i)
        i = i + 1
    Loop Until s(i) = ""

Answer 2

是
不是要把代码写出来，才可以呀，楼主，这么懒不好吧
hehe！！

Answer 3

那就讨论一下把
现在我把TEXT里面的内容换成
2,cc,435,6,737,aaa,777,888,dddd,eadfd,23.....
把整数的放入dim i() as integer
把字符的放入dim s() as string
如何实现???
谢各位老大了

Answer 4

笨,我真的很笨.
我原先的思路是一个字符一个字符的读,读到逗号时.把前面的看成一个DATA截取下来,然后再读,读到逗号的时候把逗号前的字符看成一个子data截取下来.
总是不能解决.能力有限.但是总不死心,总想看看能不能写出来.
哪位高人给个代码.
小弟先谢了.

Answer 5

该死，还是一个简单的问题啊
同样定义三个数组
Dim S() as String
dim i() as integer先用splite拆分。在用IsNumeric函数判断
如果是数组的，放到哪里不用我说了吧。如果非数字的，该放到哪里好像也不用我说啊！

Answer 6

补充。用Splite拆分出来得到的是一个数组。你可以定义成String型的。也可以是Variant型的。无所谓，我已经好久没有用VB了，机器上没有VB，所以没法做试验。另外，如果需要一些难度大的问题的答案，到我的主页去看看Stany.mycool.net。我会相继写一些文章的

Answer 7

看来你是不要代码不死心了。
Dim Total()
Dim 
Dim I()
Dim x
Dim b1
Dim b2 Total=Splite(Text1.Text,",")'拆分成数组
 for x=0 to Ubound(Total)
    if IsNumeric(S(x)) then
       I(b1)=Total(x)
       b1=b1+1
    else
       S(b2)=Total(x)
       b2=b2+1
    end if
next

Answer 8

一个很简单的问题，用split函数搞定多好啊。  Text.text里放的都是string类型的，不用判断是不是long,读数组的时候在判断好了。