mirror of
https://github.com/QB64Official/qb64.git
synced 2024-08-22 03:15:07 +00:00
Merge remote-tracking branch 'origin/fix-string-consts' into development
This commit is contained in:
commit
b573db5ef5
1 changed files with 12 additions and 2 deletions
|
@ -1995,8 +1995,18 @@ DO
|
||||||
EXIT FOR
|
EXIT FOR
|
||||||
END IF
|
END IF
|
||||||
IF LEN(e$) = 0 THEN e$ = e2$ ELSE e$ = e$ + sp + e2$
|
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
|
IF LEN(readable_e$) = 0 THEN
|
||||||
readable_e$ = e3$
|
readable_e$ = e3$
|
||||||
ELSE
|
ELSE
|
||||||
|
|
Loading…
Reference in a new issue