QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-03 11:11:20 +00:00
Code Issues Releases Wiki Activity

Fixes isnumber() and improves detection of scientific notation numbers.

Browse source
This commit is contained in:
FellippeHeitor 2019-04-23 10:17:18 -03:00
parent cc00228635
commit 93b7001c4e
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
source/qb64.bas
View file

@ -18823,7 +18823,7 @@ FUNCTION isnumber (a$)
FOR i = 1 TO LEN(a$)
a = ASC(MID$(a$, i, 1))
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
END IF
IF a = 46 THEN
@ -18832,17 +18832,19 @@ FUNCTION isnumber (a$)
_CONTINUE
END IF
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
_CONTINUE
END IF
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
_CONTINUE
END IF
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
END IF