VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 1950|回复: 2

[讨论] 有关字符串有数字的求助

[复制链接]
发表于 2016-9-1 08:58:46 | 显示全部楼层 |阅读模式
本帖最后由 lemondian 于 2016-9-1 09:03 编辑

字符数组:str(1)="林小一"
str(2)="林小二"
str(3)="林小红1"
str(4)="林小红2"
str(5)="林小红3"
str(6)="李东1"
str(7)="李东2"
str(8)="陈大"
如何判断那个串值后有数字呢?我是想将有数字的找出来,同时这个数字不一定是1,2.可能是其它数字,如35等!但数字一般不超过100!数字都在字符串的后面
发表于 2016-9-3 20:36:15 | 显示全部楼层
  1. Dim s As String, s2 As String, i As Long, c As Long
  2. s="林小红3"
  3. For i=Len(s) To 1 Step -1
  4.   c=AscW(Mid(s,i,1))
  5.   If c<&H30& Or c>&H39& Then
  6.     s2=Mid(s,i+1,1)
  7.     s=Left(s,i)
  8.     Exit For
  9.   End If
  10. Next i
复制代码
不过这个方法在字符串全都是数字的时候会出一点小毛病
回复 支持 反对

使用道具 举报

 楼主| 发表于 2016-9-5 10:46:32 | 显示全部楼层
太感谢了!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2022-7-1 21:26

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表