开启辅助访问
切换到宽版

天天ASP家园官方Q群

天天ASP家园网友互动群

群1: 697497501(新手学习互助群)

群2: 47598123(进阶应用群)

天天ASP家园»论坛 › 技术交流 › ASP技术 › ASP自定义函数之Val()函数（等价于VB版的val()）
返回列表 发新帖
查看: 610|回复: 0

[ASP函数] ASP自定义函数之Val()函数（等价于VB版的val()）

[复制链接]
xuanxiao 发表于 2021-12-10 15:34:16 | 显示全部楼层 |阅读模式

  2. 'Val函数取值为从第一个字符取值，如果是数字就一直取到能识别的数字为止，第一个不是数字后面就停止识别，默认为取0值。

  4. Function Val(byval str)
  5.         Dim arr,validStr
  6.         Dim items,num
  7.         Dim         seenDot,seenDigit
  8.         num=0
  9.         Val = 0
  10.         validStr=""       
  11.                    seenDot = false
  12.                    seenDigit = false
  13.                          
  14.                 for i = 1 to len(str)
  15.                   items=mid(str,i,1)           
  16.                   
  17.                                          if  items="." and seenDot=false then
  18.                                                         seenDot = true
  19.                                                         validStr=validStr&items
  20.                                                        
  21.                                         elseif (items="-" or  items="+") and  seenDigit=false then
  22.                                                         validStr=validStr&items
  23.                                                        
  24.                                    elseif IsNumeric(items)=true then
  25.                                                         seenDigit = true
  26.                                                         validStr=validStr&items
  27.                                         elseif items=" " or isnull(items) then       
  28.                                        
  29.                                         else
  30.                                            exit for                                               
  31.                                         end if
  32.                          
  33.           next         
  34.          
  35.           if validStr<>"" then  val=CDbl(validStr) end if        
  36. End  Function

  38. print  val("  2  3   .  5  8  .  54")

  40. 输出结果：23.58
复制代码


ASP币如何冲？请看这里
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

快速回复 返回顶部 返回列表

在线客服

售前咨询
售后咨询
服务热线
023-58418553
微信公众号