Rem 将字符串转换为整形数据 function toInteger(str,num) str=trim(str) if str="" or not isnumeric(str) then toInteger=num else toInteger=clng(str) end if end function Rem 将字符串转换为双精度型数据 function toDouble(str) str=trim(str) if str="" or not isnumeric(str) then toDouble=0.0 else toDouble=cdbl(str) end if end function Rem 将字符串转换为布尔数据 function toBoolean(str) str=lcase(trim(str)) if str="true" or str="t" then toBoolean=true elseif isnumeric(str) then if clng(str)<>0 then toBoolean=true else toBoolean=false end if end function
来源：https://www.jb51.net/article/14447.htm
