我有一串数1233*4567*789*3456*....
请问我如何可以用一个函数把这些数分别加到list里
1233
4567
789
3456
......
请问我如何可以用一个函数把这些数分别加到list里
1233
4567
789
3456
......
解决方案 »
- ACCESS 修改表的字段数据类型警告:正在被别的用户或者进程试用,数据库引擎无法锁定
- 想找几个VB开发者的blog阿,谁推荐一下?
- MSHFlexGrid控件如果使用鼠标滚轮。
- ggjj:救我!能给我一个公寓管理系统的VB源码吗?这两天要交的毕业设计。
- 怎样将PictureBox中的截屏信息存储为图片文件?
- 怎么在 access表中插入记录
- 关于datareport的小问题,疑惑中...高分相送,dx请进
- 高程要学哪些课程......
- 在线等---如何获取TDBGrid控件选中行的每一列数据
- 有关于treeview1的紧急问题请各位大虾帮助?
- 在adodb.recordset里面如何知道sql server的自增字段
- 请教写文件问题!
list.addItem XXX,index比如: list.additem 4567,1
Dim s() As String, i As Long
s = Split("1233*4567*789*3456", "*")
For i = 0 To UBound(s)
List1.AddItem s(i)
Next i
Split函数
描述返回一个下标从零开始的一维数组,它包含指定数目的子字符串。语法Split(expression[, delimiter[, count[, compare]]])Split函数语法有如下几部分:部分 描述
expression 必需的。包含子字符串和分隔符的字符串表达式 。如果expression是一个长度为零的字符串(""),Split则返回一个空数组,即没有元素和数据的数组。
delimiter 可选的。用于标识子字符串边界的字符串字符。如果忽略,则使用空格字符(" ")作为分隔符。如果delimiter是一个长度为零的字符串,则返回的数组仅包含一个元素,即完整的 expression字符串。
count 可选的。要返回的子字符串数,–1表示返回所有的子字符串。
compare 可选的。数字值,表示判别子字符串时使用的比较方式。关于其值,请参阅“设置值”部分。
设置值compare参数的设置值如下:常数 值 描述
vbUseCompareOption –1 用Option Compare语句中的设置值执行比较。
vbBinaryCompare 0 执行二进制比较。
vbTextCompare 1 执行文字比较。
vbDatabaseCompare 2 仅用于Microsoft Access。基于您的数据库的信息执行比较。