Question

vb的split函数的使用

ab = "法庭/诉讼/开庭申理"
我要用a = Split(ab, "/")
请问怎么才能按如下格式输出a的值:
a(0)=法庭
a(1)=诉讼
a(2)=开庭申理

Answer 1

'给你个代码
运行一下看看
c
=
split("a,b,c,d,e",
",",
3)中的3试着改成2或1试试
明白了吧
private
sub
form_click()
dim
c()
as
string
c
=
split("a,b,c,d,e",
",",
3)
for
i
=
0
to
ubound(c)
print
c(i)
next
i
end
sub

Answer 2

Split函数是一个用于分割字符串的函数，它能以一个字符串内容中的一个(或几个连续的)特定的字符为切割位点的标志，将这个字符串分割成若干个小字符串。它的用法是
变量
=
Split(原字符串变量,
切割标志)
下面用例子具体说明：
这里有一个字符串变量a，它的值是"你、我、他"，则
b
=
Split(a,
"、")
此后b就变成了一个变量组，b(0)的值是"你"，b(1)的值是"我"，b(2)的值是"他"。
下面举一个应用的例子：Text1中是用文字表示的数据，格式为"数据1;数据2;数据3;……，要求点击Command1后将这些数据列在List1中。
Private
Sub
Command1_Click()
a
=
Split(Text1.Text,
";")
For
i
=
0
To
UBound(a)
List1.AddItem
a(i)
Next
End
Sub

Answer 3

dim AB as string
dim A() as string

private sub from_load()
ab = "法庭/诉讼/开庭申理"
a = split(ab,"/")
dim i as integer
for i = 0 to ubound(a)
msgbox A(i)
next i
end sub

看看是不是你要的结果..呵呵..