QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-01 12:40:36 +00:00
Code Issues Releases Wiki Activity

Fixes wiki parsing.

Browse source 
Some tags were being left untouched.
This commit is contained in:
Fellippe Heitor 2021-02-13 14:45:32 -03:00
parent 5816b9620e
commit 0ecdc8fa91
1 changed files with 11 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
source/ide/wiki/wiki_methods.bas
View file

@ -282,17 +282,6 @@ SUB WikiParse (a$)
c$(ii) = SPACE$(ii)
NEXT
a$ = StrReplace$(a$, "&lt;", "<")
a$ = StrReplace$(a$, "&gt;", ">")
a$ = StrReplace$(a$, CHR$(194) + CHR$(160), "")
a$ = StrReplace$(a$, "&amp;", "&")
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 ")
DO WHILE i
a$ = LEFT$(a$, i - 1) + MID$(a$, INSTR(i + 1, a$, ">") + 1)
@ -654,6 +643,17 @@ SUB WikiParse (a$)
tableOutput$ = ""
FOR checkCol = 1 TO totalCols
p$ = wikiGetUntil$(tableRow(printTable), j, CHR$(0))
p$ = StrReplace$(p$, "&lt;", "<")
p$ = StrReplace$(p$, "&gt;", ">")
p$ = StrReplace$(p$, CHR$(194) + CHR$(160), "")
p$ = StrReplace$(p$, "&amp;", "&")
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))
MID$(thisCol$, 2) = p$
tableOutput$ = tableOutput$ + thisCol$