vb6.0如何获取一个字符串最后的数字
答案:1 悬赏:30 手机版
解决时间 2021-01-24 11:43
- 提问者网友：难遇难求
- 2021-01-24 01:05
vb6.0如何获取一个字符串最后的数字
最佳答案
- 五星知识达人网友：青灯有味
- 2021-01-24 02:04
for x = len("123456K") TO 1 step -1
IF MId("123456K",X,1) LIKE [0-9] THEN
k=MId("123456K",X,1)
for y = x+1 TO 1 step -1
IF MId("123456K",y,1) LIKE [0-9] THEN
k= k & MId("123456K",y,1)
else
exit for
end if
next
exit for
END IF
NEXT
用正则更方便
以上代码你可能需要自己调整一下，我没有测试
IF MId("123456K",X,1) LIKE [0-9] THEN
k=MId("123456K",X,1)
for y = x+1 TO 1 step -1
IF MId("123456K",y,1) LIKE [0-9] THEN
k= k & MId("123456K",y,1)
else
exit for
end if
next
exit for
END IF
NEXT
用正则更方便
以上代码你可能需要自己调整一下，我没有测试
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯