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

Merge remote-tracking branch 'origin/fix-string-consts' into development

Browse source
This commit is contained in:
Fellippe Heitor 2020-01-19 11:24:02 -03:00
parent 81106cb5a2 2bf3dd146b
commit b573db5ef5
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