mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-06 00:00:22 +00:00
Fixes wiki parsing.
Some tags were being left untouched.
This commit is contained in:
parent
5816b9620e
commit
0ecdc8fa91
|
@ -282,17 +282,6 @@ SUB WikiParse (a$)
|
||||||
c$(ii) = SPACE$(ii)
|
c$(ii) = SPACE$(ii)
|
||||||
NEXT
|
NEXT
|
||||||
|
|
||||||
a$ = StrReplace$(a$, "<", "<")
|
|
||||||
a$ = StrReplace$(a$, ">", ">")
|
|
||||||
a$ = StrReplace$(a$, CHR$(194) + CHR$(160), "")
|
|
||||||
a$ = StrReplace$(a$, "&", "&")
|
|
||||||
a$ = StrReplace$(a$, CHR$(226) + CHR$(136) + CHR$(146), "-")
|
|
||||||
a$ = StrReplace$(a$, "<nowiki>", "")
|
|
||||||
a$ = StrReplace$(a$, "</nowiki>", "")
|
|
||||||
a$ = StrReplace$(a$, "<center>", "")
|
|
||||||
a$ = StrReplace$(a$, "</center>", "")
|
|
||||||
a$ = StrReplace$(a$, "</span>", "")
|
|
||||||
|
|
||||||
i = INSTR(a$, "<span ")
|
i = INSTR(a$, "<span ")
|
||||||
DO WHILE i
|
DO WHILE i
|
||||||
a$ = LEFT$(a$, i - 1) + MID$(a$, INSTR(i + 1, a$, ">") + 1)
|
a$ = LEFT$(a$, i - 1) + MID$(a$, INSTR(i + 1, a$, ">") + 1)
|
||||||
|
@ -654,6 +643,17 @@ SUB WikiParse (a$)
|
||||||
tableOutput$ = ""
|
tableOutput$ = ""
|
||||||
FOR checkCol = 1 TO totalCols
|
FOR checkCol = 1 TO totalCols
|
||||||
p$ = wikiGetUntil$(tableRow(printTable), j, CHR$(0))
|
p$ = wikiGetUntil$(tableRow(printTable), j, CHR$(0))
|
||||||
|
p$ = StrReplace$(p$, "<", "<")
|
||||||
|
p$ = StrReplace$(p$, ">", ">")
|
||||||
|
p$ = StrReplace$(p$, CHR$(194) + CHR$(160), "")
|
||||||
|
p$ = StrReplace$(p$, "&", "&")
|
||||||
|
p$ = StrReplace$(p$, CHR$(226) + CHR$(136) + CHR$(146), "-")
|
||||||
|
p$ = StrReplace$(p$, "<nowiki>", "")
|
||||||
|
p$ = StrReplace$(p$, "</nowiki>", "")
|
||||||
|
p$ = StrReplace$(p$, "<center>", "")
|
||||||
|
p$ = StrReplace$(p$, "</center>", "")
|
||||||
|
p$ = StrReplace$(p$, "</span>", "")
|
||||||
|
|
||||||
thisCol$ = SPACE$(tableCol(checkCol))
|
thisCol$ = SPACE$(tableCol(checkCol))
|
||||||
MID$(thisCol$, 2) = p$
|
MID$(thisCol$, 2) = p$
|
||||||
tableOutput$ = tableOutput$ + thisCol$
|
tableOutput$ = tableOutput$ + thisCol$
|
||||||
|
|
Loading…
Reference in a new issue