Rem 將字符串轉(zhuǎn)換為整形數(shù)據(jù) 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 將字符串轉(zhuǎn)換為雙精度型數(shù)據(jù) 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 將字符串轉(zhuǎn)換為布爾數(shù)據(jù) 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
