如何知道第一个数字符串的位置 在一个字符中有数字也有字符,如何获得第一个数字符串的位置,同样如何获得第一个非数字字符串的位置 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 用instr来判断位置mid可以一个一个字母截取然后用IsNumeric来判断是否是数字 for i=1 to len(yourstr) curchar=mid(yourstr,i,1) if isnumeric(curchar) then msgbox "第一个数字串起始位置:" & i exit for end ifnext i mid也可以使用Left或Right来代替,算法上小有差别 for i=1 to len(yourstr) curchar=mid(yourstr,i,1) if isnumeric(curchar)=Fslse then msgbox "第一个非数字串起始位置:" & i exit for end if next i if isnumeric(curchar)=Fslse then-->if isnumeric(curchar)=False then PictureBox 怎么连续画线呢 timer控件的问题 用Adodc替换Data控件遇到的问题 如何生成一个3位的随机数? 控件问题? 怎么样用VB做个,半透明或全透明的窗体??? 为何不认数组? 如何将picture控件内的图像保存回源文件或另存为一新文件?谢谢先! 急需,求救,关于MSFlexGrid的打印 自动关闭浏览器! 如何动态使用VB快捷键? 求picturebox由小变大的代码
然后用IsNumeric来判断是否是数字
curchar=mid(yourstr,i,1)
if isnumeric(curchar) then
msgbox "第一个数字串起始位置:" & i
exit for
end if
next i
curchar=mid(yourstr,i,1)
if isnumeric(curchar)=Fslse then
msgbox "第一个非数字串起始位置:" & i
exit for
end if
next i
if isnumeric(curchar)=False then