您的位置：程序门 -> vb -> 基础类

二个取值赋值问题

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

二个取值赋值问题[已结贴,结贴人:flashrhx2007]

发表于：2007-05-15 11:32:16 楼主

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

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

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

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

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

发表于：2007-05-15 11:38:041楼得分:0

用split函数

发表于：2007-05-15 11:57:232楼得分:10

第一题用 split函数分开字串然后截取赋值

第2题用 instrrev函数判断最后一个1的位置截取前边和后边的连接

发表于：2007-05-15 11:58:453楼得分:0

请楼上给下代码示例我知道用什么函数，就是写法有错误

发表于：2007-05-15 12:08:184楼得分:40

第一题:
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

发表于：2007-05-15 13:00:555楼得分:0

三色正确

其他资讯