mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-07 19:10:25 +00:00
Fixes loading file names beginning with numbers.
This commit is contained in:
parent
aafb871d65
commit
304a33f404
|
@ -11900,6 +11900,7 @@ SUB ideobjupdate (o AS idedbotype, focus, f, focusoffset, kk$, altletter$, mb, m
|
||||||
'Populate ListBoxITEMS:
|
'Populate ListBoxITEMS:
|
||||||
a$ = idetxt(o.txt)
|
a$ = idetxt(o.txt)
|
||||||
REDIM ListBoxITEMS(0) AS STRING
|
REDIM ListBoxITEMS(0) AS STRING
|
||||||
|
REDIM OriginalListBoxITEMS(0) AS STRING
|
||||||
IF LEN(a$) > 0 THEN
|
IF LEN(a$) > 0 THEN
|
||||||
n = 0: x = 1
|
n = 0: x = 1
|
||||||
DO
|
DO
|
||||||
|
@ -11907,9 +11908,11 @@ SUB ideobjupdate (o AS idedbotype, focus, f, focusoffset, kk$, altletter$, mb, m
|
||||||
IF x2 > 0 THEN
|
IF x2 > 0 THEN
|
||||||
n = n + 1
|
n = n + 1
|
||||||
REDIM _PRESERVE ListBoxITEMS(1 TO n) AS STRING
|
REDIM _PRESERVE ListBoxITEMS(1 TO n) AS STRING
|
||||||
|
REDIM _PRESERVE OriginalListBoxITEMS(1 TO n) AS STRING
|
||||||
ListBoxITEMS(n) = _TRIM$(MID$(a$, x, x2 - x))
|
ListBoxITEMS(n) = _TRIM$(MID$(a$, x, x2 - x))
|
||||||
|
OriginalListBoxITEMS(n) = MID$(a$, x, x2 - x)
|
||||||
IF LEN(ListBoxITEMS(n)) THEN
|
IF LEN(ListBoxITEMS(n)) THEN
|
||||||
DO WHILE ASC(UCASE$(ListBoxITEMS(n))) < 65 OR ASC(UCASE$(ListBoxITEMS(n))) > 90
|
DO WHILE ASC(UCASE$(ListBoxITEMS(n))) < 65 OR ASC(UCASE$(ListBoxITEMS(n))) > 90 OR INSTR("0123456789", LEFT$(ListBoxITEMS(n), 1)) > 0
|
||||||
ListBoxITEMS(n) = MID$(ListBoxITEMS(n), 2)
|
ListBoxITEMS(n) = MID$(ListBoxITEMS(n), 2)
|
||||||
IF LEN(ListBoxITEMS(n)) = 0 THEN EXIT DO
|
IF LEN(ListBoxITEMS(n)) = 0 THEN EXIT DO
|
||||||
LOOP
|
LOOP
|
||||||
|
@ -11917,9 +11920,11 @@ SUB ideobjupdate (o AS idedbotype, focus, f, focusoffset, kk$, altletter$, mb, m
|
||||||
ELSE
|
ELSE
|
||||||
n = n + 1
|
n = n + 1
|
||||||
REDIM _PRESERVE ListBoxITEMS(1 TO n) AS STRING
|
REDIM _PRESERVE ListBoxITEMS(1 TO n) AS STRING
|
||||||
|
REDIM _PRESERVE OriginalListBoxITEMS(1 TO n) AS STRING
|
||||||
ListBoxITEMS(n) = _TRIM$(RIGHT$(a$, LEN(a$) - x + 1))
|
ListBoxITEMS(n) = _TRIM$(RIGHT$(a$, LEN(a$) - x + 1))
|
||||||
|
OriginalListBoxITEMS(n) = RIGHT$(a$, LEN(a$) - x + 1)
|
||||||
IF LEN(ListBoxITEMS(n)) THEN
|
IF LEN(ListBoxITEMS(n)) THEN
|
||||||
DO WHILE ASC(UCASE$(ListBoxITEMS(n))) < 65 OR ASC(UCASE$(ListBoxITEMS(n))) > 90
|
DO WHILE ASC(UCASE$(ListBoxITEMS(n))) < 65 OR ASC(UCASE$(ListBoxITEMS(n))) > 90 OR INSTR("0123456789", LEFT$(ListBoxITEMS(n), 1)) > 0
|
||||||
ListBoxITEMS(n) = MID$(ListBoxITEMS(n), 2)
|
ListBoxITEMS(n) = MID$(ListBoxITEMS(n), 2)
|
||||||
IF LEN(ListBoxITEMS(n)) = 0 THEN EXIT DO
|
IF LEN(ListBoxITEMS(n)) = 0 THEN EXIT DO
|
||||||
LOOP
|
LOOP
|
||||||
|
@ -11931,7 +11936,7 @@ SUB ideobjupdate (o AS idedbotype, focus, f, focusoffset, kk$, altletter$, mb, m
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
IF k = 255 THEN
|
IF k = 255 THEN
|
||||||
IF o.sel > 0 AND o.sel <= UBOUND(ListBoxITEMS) THEN idetxt(o.stx) = ListBoxITEMS(o.sel)
|
IF o.sel > 0 AND o.sel <= UBOUND(OriginalListBoxITEMS) THEN idetxt(o.stx) = OriginalListBoxITEMS(o.sel)
|
||||||
GOTO selected 'Search is not performed if kk$ isn't a printable character
|
GOTO selected 'Search is not performed if kk$ isn't a printable character
|
||||||
ELSE
|
ELSE
|
||||||
SearchTerm$ = SearchTerm$ + UCASE$(kk$)
|
SearchTerm$ = SearchTerm$ + UCASE$(kk$)
|
||||||
|
@ -11959,7 +11964,7 @@ SUB ideobjupdate (o AS idedbotype, focus, f, focusoffset, kk$, altletter$, mb, m
|
||||||
validCHARS$ = validCHARS$ + CHR$(aa)
|
validCHARS$ = validCHARS$ + CHR$(aa)
|
||||||
END IF
|
END IF
|
||||||
NEXT
|
NEXT
|
||||||
IF findMatch = o.sel THEN idetxt(o.stx) = ListBoxITEMS(findMatch)
|
IF findMatch = o.sel THEN idetxt(o.stx) = OriginalListBoxITEMS(findMatch)
|
||||||
IF LEFT$(validCHARS$, LEN(SearchTerm$)) = SearchTerm$ THEN
|
IF LEFT$(validCHARS$, LEN(SearchTerm$)) = SearchTerm$ THEN
|
||||||
o.sel = findMatch
|
o.sel = findMatch
|
||||||
GOTO selected
|
GOTO selected
|
||||||
|
|
Loading…
Reference in a new issue