请问如何截取字符窜

Question

请问如何截取字符窜比如我要从一个文本框以逗号为分隔苻，将用户输入字符窜写到数组里，请问怎么办，我以前没用过vb，请各位帮忙，我以前是用java的标记流做到上述过程的。
具体是比如，A,B,C,D,E,F，送入数组后就是Array(0)为A，Array(1)为B,........
我也找了一个系统函数mid不过我觉得不理想，要写很多处理代码，请各位赐教，mid也行，只要能完成功能。谢谢

Answer 1

我给个思路吧，因为我的现在的机器没有VB！！
读取text的总字符数！利用循环语句读取数字忽略逗号（因为text中单数是数字）用for语句应该可以实现吧！！我回去有机会能写到的话，再上传了（我也不知道这样行不行的）

Answer 2

dim s as string
s="a,b,c,d,e,f,g"
dim arr
arr=split(s,",")dim i as long
for i=0 to ubound(arr)
debug.print arr(i)
next这样就可以了

Answer 3

用Split函数以指定分隔符分割字符串并放到数组中
用Join函数以指定分隔符合并字符串如:Dim a as string,Strchar() as String
a="1,2,3,4,5"
strchar=Split(a,",")'把a中的字符串以逗号为分隔符分割并放到Strchar数组中
text1.text=join(strchar,",")'把Strchar数组中的字符串以逗号为分隔符合并具体看VB6中文版语言参考吧!

Answer 4

具体如下:
Split函数：返回一个下标从零开始的一维数组，它包含以指定分隔符分隔的子字符串。
Split(expression[,delimiter[,count[,compare]]]
expression：必需的。包含子字符串和分隔符的字符串表达式。如果expression是一个长度为零的字符串("")，Split则返回一个空数组，即没有元素和数据的数组
delimiter：可选的。用于标识子字符串边界的字符串字符。如果忽略，则使用空格字符("")作为分隔符。如果delimiter是一个长度为零的字符串，则返回的数组仅包含一个元素，即完整的expression字符串。
count：可选的。要返回的子字符串数，?表示返回所有的子字符串
compare可选的。数字值，表示判别子字符串时使用的比较方式。关于其值，请参阅“设置值”部分Join函数返回一个字符串，该字符串是通过连接某个数组中的多个子字符串而创建的。
Join(list[,delimiter])
list：必需的。包含被连接子字符串的一维数组
delimiter：可选的。在返回字符串中用于分隔子字符串的字符。如果忽略该项，则使用空格("")来分隔子字符串。如果delimiter是零长度字符串("")，则列表中的所有项目都连接在一起，中间没有分隔符如：Dim a() As String
    a = Split(Text1.Text, vbCrLf)
    Text2.Text = Join(a, vbCrLf)'该示例以vbCrlf为分隔符复制Text1中的内容到Text2