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

1. 
   
2. 'Val函数取值为从第一个字符取值，如果是数字就一直取到能识别的数字为止，第一个不是数字后面就停止识别，默认为取0值。
   
3. 
   
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
    
37. 
    
38. print  val("  2  3   .  5  8  .  54")
    
39. 
    
40. 输出结果：23.58
    

复制代码