将字符串数字转换为real数字

franniss

很有用～

1. // argument0 - string to make into real number
2. // return - real/integer the number
4. var t,i,r,err,expo,def;
5. expo=false def=-1    // default error value
6. t=string_replace_all(string_replace_all(string_lower(argument0)," ",""),"+","") r=""
7. for(i=1;i<=string_length(t);i+=1) {
8. err=true            // set error flag to true
9. if((string_char_at(t,i)='-')and((i=1)or(string_char_at(t,i-1)='e'))){r+='-' err=false}
10. if((string_char_at(t,i)='.')and(string_count('.',t)=1)){r+="." err=false}
11. if((string_char_at(t,i)='e')and(not expo)){r+="e" expo=true err=false}
12. if((ord(string_char_at(t,i))>47)and(ord(string_char_at(t,i))<58)){r+=string_char_at(t,i) err=false}
13. if(err){
14. if(string_char_at(t,i)='.'){error_last="Error: in real_ex("+t+"): Multiple decimal points." return def}
15. if((string_count('e',t)!=0)and(i>string_pos('e',t))){error_last="Error: in real_ex("+t+"): Decimal dot in exponent." return def}
16. if!((ord(string_char_at(t,i))>47)and(ord(string_char_at(t,i))<58)){error_last="Error: in real_ex("+t+"): Invalid character(s)." return def}
17. error_last="Error: in real_ex("+t+"): Unknown error."
18. return def
19. }
20. }
21. return real(r)

复制代码