vb中的split问题~急 15

如何用split函数把以下文字:中国:北京,日本:东京,俄罗斯:莫斯科,印度尼西亚:雅加达,丹麦:哥本哈根,瑞典:斯德哥尔摩,芬兰:赫尔辛基,法国:巴黎,荷兰:阿姆斯特丹... 如何用split函数把以下文字:
中国:北京,日本:东京,俄罗斯:莫斯科,印度尼西亚:雅加达,丹麦:哥本哈根,瑞典:斯德哥尔摩,芬兰:赫尔辛基,法国:巴黎,荷兰:阿姆斯特丹,比利时:布鲁塞尔

先按“:”分隔,再按“,”分隔?(即分为20项)
急呀~~~~~~~~~(>_<)~~~~
最终就是想把每个国家及首都分开来,存进一个数组里……
展开
 我来答
bater2000
2010-05-14 · TA获得超过1486个赞
知道小有建树答主
回答量:803
采纳率:0%
帮助的人:1077万
展开全部
dim a(),b(),c()
str = "中国:北京,日本:东京,俄罗斯:莫斯科,印度尼西亚:雅加达,丹麦:哥本哈根,瑞典:斯德哥尔摩,芬兰:赫尔辛基,法国:巴黎,荷兰:阿姆斯特丹,比利时:布鲁塞尔"

a = split(str,":")
for i=0 to ubound(a)
b = split(a(i),",")
for j=0 to ubound(b)
debug.print b(j)
k=k+1
redim preserve c(k)
c(k)=b(j)
next j
next i

for i=0 to ubound(c)
debug.print c(i)
next i

实现起来就这么简单 :) 原理就按你说的先按冒号分割开,再按逗号分割开,并把分隔开的数据按顺序放在数组C()里
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友740e59274
2010-05-14 · TA获得超过783个赞
知道小有建树答主
回答量:549
采纳率:0%
帮助的人:0
展开全部
Dim a$(), b$(), c$(), i&, j&, k&
a = Split("中国:北京,日本:东京,俄罗斯:莫斯科,印度尼西亚:雅加达,丹麦:哥本哈根,瑞典:斯德哥尔摩,芬兰:赫尔辛基,法国:巴黎,荷兰:阿姆斯特丹,比利时:布鲁塞尔", ":")
k = 0
For i = 0 To UBound(a)
b = Split(a(i), ",")
ReDim Preserve c(k + UBound(b) + 1)
For j = 0 To UBound(b)
c(k + j + 1) = b(j)
Next
k = k + UBound(b) + 1
Next
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
帐号已注销
2010-05-14 · TA获得超过1232个赞
知道大有可为答主
回答量:1245
采纳率:0%
帮助的人:1430万
展开全部
你应该是先按,分割的吧.得到结果 中国:北京 日本:东京...

str="中国:北京,日本:东京,俄罗斯:莫斯科,印度尼西亚:雅加达,丹麦:哥本哈根,瑞典:斯德哥尔摩,芬兰:赫尔辛基,法国:巴黎,荷兰:阿姆斯特丹,比利时:布鲁塞尔"
ct=split(str,",")
for i=0 to ubound(ct)
response.Write &ct(i) & "<br>"
next
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友59164cf295e
2019-08-05 · TA获得超过3500个赞
知道大有可为答主
回答量:3095
采纳率:31%
帮助的人:396万
展开全部
'给你个代码
运行一下看看
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
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
shot_go
2010-05-14 · TA获得超过340个赞
知道小有建树答主
回答量:257
采纳率:0%
帮助的人:99.9万
展开全部
能告诉我你,最终想要的结果吗?这样也许能回答你的问题!
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(3)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式