mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-16 21:15:15 +00:00
Fixes isnumber() and improves detection of scientific notation numbers.
This commit is contained in:
parent
cc00228635
commit
93b7001c4e
|
@ -18823,7 +18823,7 @@ FUNCTION isnumber (a$)
|
||||||
FOR i = 1 TO LEN(a$)
|
FOR i = 1 TO LEN(a$)
|
||||||
a = ASC(MID$(a$, i, 1))
|
a = ASC(MID$(a$, i, 1))
|
||||||
IF a = 45 THEN
|
IF a = 45 THEN
|
||||||
IF (i = 1 AND LEN(a$) > 1) OR (i > 1 AND (d = i - 1 OR E = i - 1)) THEN _CONTINUE
|
IF (i = 1 AND LEN(a$) > 1) OR (i > 1 AND ((d > 0 AND d = i - 1) OR (E > 0 AND E = i - 1))) THEN _CONTINUE
|
||||||
EXIT FUNCTION
|
EXIT FUNCTION
|
||||||
END IF
|
END IF
|
||||||
IF a = 46 THEN
|
IF a = 46 THEN
|
||||||
|
@ -18832,17 +18832,19 @@ FUNCTION isnumber (a$)
|
||||||
_CONTINUE
|
_CONTINUE
|
||||||
END IF
|
END IF
|
||||||
IF a = 100 OR a = 68 THEN 'D
|
IF a = 100 OR a = 68 THEN 'D
|
||||||
IF d > 1 OR E > 1 THEN EXIT FUNCTION
|
IF d > 0 OR E > 0 THEN EXIT FUNCTION
|
||||||
|
IF i = 1 THEN EXIT FUNCTION
|
||||||
d = i
|
d = i
|
||||||
_CONTINUE
|
_CONTINUE
|
||||||
END IF
|
END IF
|
||||||
IF a = 101 OR a = 69 THEN 'E
|
IF a = 101 OR a = 69 THEN 'E
|
||||||
IF d > 0 OR E > 1 THEN EXIT FUNCTION
|
IF d > 0 OR E > 0 THEN EXIT FUNCTION
|
||||||
|
IF i = 1 THEN EXIT FUNCTION
|
||||||
E = i
|
E = i
|
||||||
_CONTINUE
|
_CONTINUE
|
||||||
END IF
|
END IF
|
||||||
IF a = 43 THEN '+
|
IF a = 43 THEN '+
|
||||||
IF d = i - 1 OR E = i - 1 THEN _CONTINUE
|
IF (d > 0 AND d = i - 1) OR (E > 0 AND E = i - 1) THEN _CONTINUE
|
||||||
EXIT FUNCTION
|
EXIT FUNCTION
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue