Dim Test,strA
strA="a/b/c/vd"Test = Split(strA,"/")For each tmpTest In Test
Debug.Print tmpTest
Next=================================================================
'结果
a
b
c
vd
=================================================================
Good Luck !
strA="a/b/c/vd"Test = Split(strA,"/")For each tmpTest In Test
Debug.Print tmpTest
Next=================================================================
'结果
a
b
c
vd
=================================================================
Good Luck !
解决方案 »
- 请问,在VB中如何通过Shockwave Flash控件播放Flash MX中生成的exe文件(播放Flash中生成的swf文件正常)?
- 如何立即让更改的注册表内容不需重启立即生效?
- 如何在读取的XML中增加一条记录
- activerepost2如何打印整齐的表格。急死人了。
- 图片移动的时候有闪烁怎么办?
- 小弟正在写一个程序,碰到了一些困难。请各位高手帮忙
- 请教,想做个程序,开机打开全屏网页且禁用Ctrl\Alt\F4等键
- 请问怎样引用dll里的方法
- 基础问题:如何将.mdb中的两个表格里的字段类型相同的若干列的内容同时在DateReport中Show出来
- 帮帮我啊,我要零级的操作权!!
- 悬赏100分:高难问题!如何把HTML元素直接放在Form上?(99分后加)
- 请教adodb.Stream对象的用法(最好有源码).
不过最好把上面的TEST定义为数组,这样好操作