mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-09 21:15:12 +00:00
Some refactoring
- also fix meta command color in new forum export
This commit is contained in:
parent
8eda570604
commit
3393f899bb
|
@ -20827,24 +20827,28 @@ SUB ExportCodeAs (docFormat$)
|
||||||
IF cu% GOTO CustomNoLink
|
IF cu% GOTO CustomNoLink
|
||||||
GOSUB FindWikiPage
|
GOSUB FindWikiPage
|
||||||
IF me% AND le% AND co% THEN post% = 0: what$ = "co": GOSUB CloseText: co% = 0
|
IF me% AND le% AND co% THEN post% = 0: what$ = "co": GOSUB CloseText: co% = 0
|
||||||
IF me% OR pc% THEN lnk$ = me$: tmp$ = "{{Cm|": lkc$ = mec$: rtc$ = "\cf2": ELSE lnk$ = kw$: tmp$ = "{{Cl|": lkc$ = kwc$: rtc$ = "\cf3"
|
IF me% OR pc% THEN lnk$ = me$: ELSE lnk$ = kw$
|
||||||
pal% = LEN(page$): lkl% = LEN(lnk$)
|
pal% = LEN(page$): lkl% = LEN(lnk$)
|
||||||
SELECT CASE LCASE$(docFormat$)
|
SELECT CASE LCASE$(docFormat$)
|
||||||
CASE "html"
|
CASE "html"
|
||||||
|
IF me% OR pc% THEN lkc$ = mec$: ELSE lkc$ = kwc$
|
||||||
MID$(eTxt$, ePos&, (2 * pal%) + lkl% + 120) = "<a style=" + CHR$(34) + "text-decoration: none; color: " + lkc$ + ";" + CHR$(34) + " href=" + CHR$(34) + "https://qb64phoenix.com/qb64wiki/index.php?title=" + page$ + CHR$(34) + " title=" + CHR$(34) + page$ + CHR$(34) + ">" + lnk$ + "</a>"
|
MID$(eTxt$, ePos&, (2 * pal%) + lkl% + 120) = "<a style=" + CHR$(34) + "text-decoration: none; color: " + lkc$ + ";" + CHR$(34) + " href=" + CHR$(34) + "https://qb64phoenix.com/qb64wiki/index.php?title=" + page$ + CHR$(34) + " title=" + CHR$(34) + page$ + CHR$(34) + ">" + lnk$ + "</a>"
|
||||||
ePos& = ePos& + (2 * pal%) + lkl% + 120
|
ePos& = ePos& + (2 * pal%) + lkl% + 120
|
||||||
CASE "rich"
|
CASE "rich"
|
||||||
MID$(eTxt$, ePos&, pal% + lkl% + 108) = "{\field{\*\fldinst HYPERLINK " + CHR$(34) + "https://qb64phoenix.com/qb64wiki/index.php?title=" + page$ + CHR$(34) + "}{\fldrslt{" + rtc$ + "\ul0 " + lnk$ + "}}}\cf0 "
|
IF me% OR pc% THEN lkc$ = "\cf2": ELSE lkc$ = "\cf3"
|
||||||
|
MID$(eTxt$, ePos&, pal% + lkl% + 108) = "{\field{\*\fldinst HYPERLINK " + CHR$(34) + "https://qb64phoenix.com/qb64wiki/index.php?title=" + page$ + CHR$(34) + "}{\fldrslt{" + lkc$ + "\ul0 " + lnk$ + "}}}\cf0 "
|
||||||
ePos& = ePos& + pal% + lkl% + 108
|
ePos& = ePos& + pal% + lkl% + 108
|
||||||
CASE "foru"
|
CASE "foru"
|
||||||
MID$(eTxt$, ePos&, pal% + lkl% + 84) = "[url=https://qb64phoenix.com/qb64wiki/index.php?title=" + page$ + "][color=#4593D8]" + lnk$ + "[/color][/url]"
|
IF me% OR pc% THEN lkc$ = "#55FF55": ELSE lkc$ = "#4593D8"
|
||||||
|
MID$(eTxt$, ePos&, pal% + lkl% + 84) = "[url=https://qb64phoenix.com/qb64wiki/index.php?title=" + page$ + "][color=" + lkc$ + "]" + lnk$ + "[/color][/url]"
|
||||||
ePos& = ePos& + pal% + lkl% + 84
|
ePos& = ePos& + pal% + lkl% + 84
|
||||||
CASE "wiki"
|
CASE "wiki"
|
||||||
|
IF me% OR pc% THEN lkc$ = "{{Cm|": ELSE lkc$ = "{{Cl|"
|
||||||
IF UCASE$(page$) = UCASE$(lnk$) THEN
|
IF UCASE$(page$) = UCASE$(lnk$) THEN
|
||||||
MID$(eTxt$, ePos&, lkl% + 7) = tmp$ + lnk$ + "}}"
|
MID$(eTxt$, ePos&, lkl% + 7) = lkc$ + lnk$ + "}}"
|
||||||
ePos& = ePos& + lkl% + 7
|
ePos& = ePos& + lkl% + 7
|
||||||
ELSE
|
ELSE
|
||||||
MID$(eTxt$, ePos&, pal% + lkl% + 8) = tmp$ + page$ + "|" + lnk$ + "}}"
|
MID$(eTxt$, ePos&, pal% + lkl% + 8) = lkc$ + page$ + "|" + lnk$ + "}}"
|
||||||
ePos& = ePos& + pal% + lkl% + 8
|
ePos& = ePos& + pal% + lkl% + 8
|
||||||
END IF
|
END IF
|
||||||
CASE ELSE: RETURN
|
CASE ELSE: RETURN
|
||||||
|
|
Loading…
Reference in a new issue