二个取值赋值问题


问题1：
一串文字如 56898877,2007-05-01 12:12:12,我是中国人

我如果把这这一串文字搁开当中的,赋给3个变量值呢？

问题2：
一串数字 28694301381 每次数字长度未知

我想去掉最后一个1 然后生成新的一串数字

顺便问个其他问题，VB如果强制关闭其他进程？

[解决办法]
第一题 用 split函数分开字串 然后截取赋值

第2题 用 instrrev函数判断最后一个1的位置 截取前边和后边的 连接
[解决办法]
第一题:
dim s as string,sarr() as string
dim i as integer
s= "56898877,2007-05-01 12:12:12,我是中国人 "
sarr=split(s, ", ")
for i=0 to ubound(sarr)
msgbox sarr(i)
next i

第二题：
dim s as string
dim i as integer
s= "28694301381 "
i=instrrev(s, "1 ")
s = Left(s, i - 1) & Right(s, Len(s) - i)
msgbox s