怎样提取TextBox文本框中的数字？

我做了一个发票管理小程序，在输入价格的TextBox中，只允许输入数字。但因为是出口企业，在前面还必须带上UB两个字符，而且在后面的合计中还用到了价格。  
  怎么办？ 问题点数：20、回复次数：11Top

1 楼zymfy（梦小凡）回复于 2001-10-15 17:58:43 得分 19

用mid函数  
  aa   =   Mid(Text1.Text,   3)  
  可以试试的。  
  ：）Top

2 楼bdzwc（bdzwc）回复于 2001-10-15 18:26:43 得分 0

判断ACSII值Top

3 楼playyuer（退休干部 卧鼠藏虫）回复于 2001-10-15 18:31:27 得分 0

怎么将一个字符串中的数字提取出来？  
  http://www.csdn.net/expert/TopicView.asp?id=308372Top

4 楼xindijingying（）回复于 2001-10-15 19:47:39 得分 1

我的意见和小凡的一样，用MID（）Top

5 楼huyafei（goodboy）回复于 2001-10-15 22:04:57 得分 0

同意小凡Top

6 楼kimryo（God is on my side）回复于 2001-10-15 22:51:47 得分 0

试试Val函数。  
  Top

7 楼weixiaohua（我爱Delphi）回复于 2001-10-15 23:30:35 得分 0

If   IsNumeric(Mid(Text1.text,3)=True   Then'判断Text1中从第三个开始是否为数字（好久没用VB了Mid我没用错吧？）  
        '你要处理的过程  
  End   If   Top

8 楼dc222（dc）回复于 2001-10-15 23:46:39 得分 0

试一试MaskEdBox这个控件。Top

9 楼fightben1（斌斌）回复于 2001-10-15 23:47:42 得分 0

if   left(text1.text,2)="UB"   then  
          for   i=3   to   len(text1.text)  
                  if   mid(text1.text,i,1)<0   or   mid(text1.text,i,1)>9   then  
                          msgbox   "出错！"  
                  end   if  
          next   i  
  else    
          for   i=1   to   len(text1.text)  
                  if   mid(text1.text,i,1)<0   or   mid(text1.text,i,1)>9   then  
                          msgbox   "出错！"  
                  end   if  
          next   i  
  end   if  
  这段程序还可以判断用户是否输入“UB”，无论是否输入都可以，给用户更大的方便。Top

10 楼nust98（幻影）回复于 2001-10-16 00:07:10 得分 0

我想可以通过KeyPress事件来实现,通过KeyAscii的值来判断输入的是那个字符,可以先判断输入的字符数，若为第一个，判断它的Ascii是否为'U',第二个也是同样方法，如要判断数字  
  可用  
  If   KeyAscii   <   48   Or   KeyAscii   >   57   Then  
  KeyAscii   =   0  
  End   If  
  判断是不是数字Top

11 楼zhongminsheng（小生）回复于 2001-10-16 02:07:02 得分 0

val(mid(text1.text,3,8))Top

相关问题

• 数字
• 字符
• 判断
• mid
• 输入
• ub
• 是否
• text
• then

• 帖主：smarter
• zymfy
• xindijingying

• Visual Basic类图书
• Visual Basic类源码下载