vbscript 将字符串转变为整数

在网页操作的时候，经常用到将一个字符串转为整数的情况，比如：

i=div.style.left

如果采用

div.style.left=div.style.left + 10

那么就会产生一个错误，因为div.style.left返回的如： 100px的字符串值。

在vb下提供有val（）函数，而在vbscript中居然没有类似的函数；javascript 中也有个 parseInt（） 函数。

我们只有自己动手写个转换函数：

 

function val(str)
 dim j
 dim tempstr
 tempstr=""
 for j=1 to len(str)
  if isnumeric(mid(str,j,1)) then
   tempstr=tempstr & mid(str,j,1)
  else
   exit for 
  end if
 next
 if tempstr="" then
  val=0
 else
  val=clng(tempstr)
 end if
end function

 

用法：

div.style.left=val(div.style.left)+5