QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-05 00:40:26 +00:00
Code Releases Wiki Activity

Fixes string concatenation in consts

Browse source
This commit is contained in:
FellippeHeitor 2020-01-17 19:08:29 -03:00
parent 05f0109e70
commit 2bf3dd146b
1 changed files with 12 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
source/qb64.bas
View file

@ -1995,8 +1995,18 @@ DO
EXIT FOR
END IF
IF LEN(e$) = 0 THEN e$ = e2$ ELSE e$ = e$ + sp + e2$
IF LEN(e2$) > 1 THEN removeComma = INSTR(e2$, ",") ELSE removeComma = 0
IF removeComma THEN e3$ = MID$(e2$, removeComma + 1) ELSE e3$ = e2$
e3$ = e2$
IF LEN(e2$) > 1 THEN
IF ASC(e2$, 1) = 34 THEN
removeComma = _INSTRREV(e2$, ",")
e3$ = LEFT$(e2$, removeComma - 1)
ELSE
removeComma = INSTR(e2$, ",")
e3$ = MID$(e2$, removeComma + 1)
END IF
END IF
IF LEN(readable_e$) = 0 THEN
readable_e$ = e3$
ELSE