vb中的split问题~急 15
如何用split函数把以下文字:中国:北京,日本:东京,俄罗斯:莫斯科,印度尼西亚:雅加达,丹麦:哥本哈根,瑞典:斯德哥尔摩,芬兰:赫尔辛基,法国:巴黎,荷兰:阿姆斯特丹...
如何用split函数把以下文字:
中国:北京,日本:东京,俄罗斯:莫斯科,印度尼西亚:雅加达,丹麦:哥本哈根,瑞典:斯德哥尔摩,芬兰:赫尔辛基,法国:巴黎,荷兰:阿姆斯特丹,比利时:布鲁塞尔
先按“:”分隔,再按“,”分隔?(即分为20项)
急呀~~~~~~~~~(>_<)~~~~
最终就是想把每个国家及首都分开来,存进一个数组里…… 展开
中国:北京,日本:东京,俄罗斯:莫斯科,印度尼西亚:雅加达,丹麦:哥本哈根,瑞典:斯德哥尔摩,芬兰:赫尔辛基,法国:巴黎,荷兰:阿姆斯特丹,比利时:布鲁塞尔
先按“:”分隔,再按“,”分隔?(即分为20项)
急呀~~~~~~~~~(>_<)~~~~
最终就是想把每个国家及首都分开来,存进一个数组里…… 展开
展开全部
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()里
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()里
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
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
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
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你应该是先按,分割的吧.得到结果 中国:北京 日本:东京...
str="中国:北京,日本:东京,俄罗斯:莫斯科,印度尼西亚:雅加达,丹麦:哥本哈根,瑞典:斯德哥尔摩,芬兰:赫尔辛基,法国:巴黎,荷兰:阿姆斯特丹,比利时:布鲁塞尔"
ct=split(str,",")
for i=0 to ubound(ct)
response.Write &ct(i) & "<br>"
next
str="中国:北京,日本:东京,俄罗斯:莫斯科,印度尼西亚:雅加达,丹麦:哥本哈根,瑞典:斯德哥尔摩,芬兰:赫尔辛基,法国:巴黎,荷兰:阿姆斯特丹,比利时:布鲁塞尔"
ct=split(str,",")
for i=0 to ubound(ct)
response.Write &ct(i) & "<br>"
next
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
'给你个代码
运行一下看看
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
运行一下看看
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)
c(i)
Next
i
End
Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
能告诉我你,最终想要的结果吗?这样也许能回答你的问题!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询