, etc.)
buf = LEFT$(buf,i) _
+ "" _ ' -> start paragraph
+ MID$(buf,i+1)
DO
i = INSTR(i+1,buf,$LF)
k = 0
FOR n=LBOUND(tags) TO UBOUND(tags)
IF INSTR(i+1,buf,tags(n)) = i+1 THEN k = 1 : EXIT FOR
NEXT
IF k = 1 OR MID$(buf,i+1,1) = $LF _ ' specific tag, or double $LF,
OR i = LEN(buf) THEN ' or end of document
buf = LEFT$(buf,i-1) _
+ "
" _ ' -> end paragraph
+ MID$(buf,i)
EXIT LOOP
END IF
LOOP UNTIL 0
i = INSTR(i+1,buf,$LF)
WEND
Fin_Generate:
' Finalize: add header and footer
' -------------------------------
buf = head + TRIM$(buf,$LF) + foot
' Save html
' ---------
html = md
IF ISTRUE INSTR(html,".") THEN html = LEFT$(html,INSTR(-1,html,".")-1)
html += ".htm"
Save_File STRPTR(html), buf
IF (IS_COMMAND_LINE) THEN
t = html
IF ISTRUE INSTR(t,"\") THEN t = MID$(t,INSTR(-1,t,"\")+1)
DosPrint "Successfully created " + t
IF LCASE$(COMMAND$(1)) <> "-cv" THEN DosPrint $CRLF : EXIT SUB
DosPrint " - Opening it for view" + $CRLF
END IF
' View it in browser
' ------------------
ShellExecute 0,"open",(html),"","",%SW_SHOW
IF ISFALSE (IS_COMMAND_LINE) THEN
sbT = "Successfuly generated in "+TRIM$(STR$(INT((TIMER-t0)*100)/100))+" seconds"
SendMessage hBar,%SB_SETTEXT,4,BYVAL VARPTR(sbT)
SLEEP 1500
END IF
END SUB
' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
SUB F11_Sort_List ' F11- Sort a list alphabetically, regardless of case
' (algo taken from "tools\sort-gw-keywords.bas")
LOCAL e AS STRING
LOCAL s() AS STRING
LOCAL r AS STRING
LOCAL nd AS STRING ' ending CR/LF of string
LOCAL i AS LONG
LOCAL n AS LONG
' Get initial selection and store ending CR/LF
' --------------------------------------------
e = Get_Sel()
WHILE RIGHT$(e,1) = $CR OR RIGHT$(e,1) = $LF
nd = RIGHT$(e,1) + nd : e = LEFT$(e,-1)
WEND
' Sort list
' ---------
IF INSTR(e,ANY $CRLF) = 0 THEN
BEEP ' single line
Dialog_Msg "Please select more than one line.", "Sort Alphabetically"
EXIT SUB
ELSE
n = PARSECOUNT(e,ANY $CRLF) ' multiple lines
DIM s(1 TO n)
FOR i = 1 TO n
s(i) = PARSE$(e,ANY $CRLF,i) ' get list' individual elements
NEXT
ARRAY SORT s(), COLLATE UCASE ' sort them regardless of case
FOR i = 1 TO n
r += s(i) + $CR ' rebuild sorted list
NEXT
END IF
r = RTRIM$(r,ANY $CRLF) + nd ' restore ending CR/LF
' Replace selection
' -----------------
SendMessage hEdit,%EM_REPLACESEL,%TRUE,STRPTR(r)
Refresh_Info_Bars ' redraw index
END SUB
' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
SUB F4_Progress_Indicator ' F4- Show completion of document = % of links with header written
' (algo taken from "tools\manual-show-completion.bas")
LOCAL alllinks_m AS STRING
LOCAL alllinks_c AS STRING
LOCAL buf AS STRING
LOCAL hdr AS STRING
LOCAL lnk AS STRING
LOCAL i, j AS LONG
LOCAL present AS LONG
LOCAL absent AS LONG
LOCAL pct AS LONG
' Get list of all headers, calculate their links,
' store them in 'alllinks_c' (calculated)
' -----------------------------------------------
Make_Headers_List(0) ' 0 to ignore header levels
' IF ISTRUE Count_Duplicates() THEN ' ToDo: keep it? (seems a little restrictive...)
' BEEP
' Dialog_Msg "Duplicate headers found => use F7 first" + $CR _
' + "before using F4 for Progress Indicator.", _
' "Progress Indicator"
' EXIT SUB
' END IF
alllinks_c = $LF
FOR i = LBOUND(headers) TO UBOUND(headers)
alllinks_c += anchor(headers(i)) + $LF ' make list of all links calculated (alllinks_c)
NEXT
' Get all actual links, check if we have a title for them, else
' store them in 'alllinks_m' (missing) & fill dlg_combo_lst()
' -------------------------------------------------------------
buf = RE_Get()
alllinks_m = $LF
ERASE dlg_combo_lst()
i = INSTR(buf,"](#")
WHILE ISTRUE i
j = INSTR(i-LEN(buf),buf,"[")
hdr = MID$(buf,j+1,i-j-1) ' header
i += 2
j = INSTR(i,buf,")")
lnk = MID$(buf,i,j-i) ' link (anchor)
IF ISTRUE INSTR(alllinks_c,$LF+lnk+$LF) THEN
INCR present ' link is part of calculated list
ELSEIF ISFALSE INSTR(alllinks_m,$LF+lnk+$LF) THEN
INCR absent ' link is unknown
alllinks_m += lnk + $LF ' add it to list of all links missing (alllinks_m)
j = UBOUND(dlg_combo_lst) + 1
REDIM PRESERVE dlg_combo_lst(j) ' and add header + link to combobox list
dlg_combo_lst(j) = hdr + " (" + lnk + ")"
END IF
i = INSTR(i+1,buf,"](#")
WEND
pct = INT(100 * present / (present + absent))
hdr = " (" + FORMAT$(present) + "/" + FORMAT$(present + absent) + ")"
' If all headers filled: warn with simple dialog message
' ------------------------------------------------------
IF absent = 0 THEN
Dialog_Msg "Your document is complete :" + $CR _ ' msg label
+ TRIM$(hdr,ANY" ()") + " linked headers are written.", _
"Progress Indicator : 100%" ' msg title
EXIT SUB
END IF
' Else show result in combobox dialog
' -----------------------------------
dlg_combo_ope = 4 ' F4- Progress Indicator
IF absent = 1 THEN buf = "There is 1" ELSE buf = "There are " + FORMAT$(absent)
buf += " linked header" + IIF$(absent=1,"","s") + " not written yet :"
Dialog_Combo buf, _ ' combo label
"Cre&ate", _ ' combo button
"Progress Indicator : " + FORMAT$(pct) + "% linked headers written" + hdr ' combo title
END SUB
' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
SUB Make_Headers_List(BYVAL withLevel AS LONG)
LOCAL e AS STRING
LOCAL i AS LONG
LOCAL j AS LONG
LOCAL k AS LONG
LOCAL mrk AS STRING
mrk = $CR + "#" ' marker for header
e = RE_Get() ' get rich edit content
REPLACE $CRLF WITH $CR IN e
REPLACE $LF WITH $CR IN e ' and convert its EOL to Windows
ERASE headers()
ERASE hdr_pos()
i = INSTR(e,mrk)
WHILE i
j = INSTR(i,e,$SPC)
IF REMOVE$(MID$(e,i+2,j-i-2),"#") <> "" THEN
i = INSTR(j,e,mrk)
ITERATE LOOP
END IF
IF ISFALSE withLevel THEN i = j ' ignore the leading '#'
j = INSTR(i+1,e,$CR)
IF j = 0 THEN j = LEN(e)+1 ' special case: end of document
k = UBOUND(headers) + 1
REDIM PRESERVE headers(k)
headers(k) = TRIM$(MID$(e,i+1,j-i-1)) ' store header in headers()
REDIM PRESERVE hdr_pos(k)
hdr_pos(k) = i ' and its position in hdr_pos()
i = INSTR(j,e,mrk)
WEND
END SUB
' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
FUNCTION Count_Duplicates() AS LONG
' /!\ THIS FUNCTION NEEDS TO BE CALLED AFTER Make_Headers_List()
' Return the number of duplicate headers + list them in dlg_combo_lst()
LOCAL sorted_headers() AS STRING
LOCAL occurences() AS LONG
LOCAL i, j, n AS LONG
' Create a sorted copy of the list of all headers
' -----------------------------------------------
REDIM sorted_headers(LBOUND(headers) TO UBOUND(headers))
FOR i = LBOUND(headers) TO UBOUND(headers)
sorted_headers(i) = headers(i)
NEXT
ARRAY SORT sorted_headers(), COLLATE UCASE
' Analyze the list and store (+count) duplicates
' ----------------------------------------------
ERASE dlg_combo_lst()
ERASE occurences()
FOR i = LBOUND(sorted_headers)+1 TO UBOUND(sorted_headers)
IF UCASE$(sorted_headers(i)) = UCASE$(sorted_headers(i-1)) THEN ' it's a dup!
INCR n
ARRAY SCAN dlg_combo_lst(), COLLATE UCASE, =UCASE$(sorted_headers(i)), TO j
IF ISTRUE j THEN
INCR occurences(j)
ELSE
j = UBOUND(dlg_combo_lst) + 1
REDIM PRESERVE dlg_combo_lst(j)
dlg_combo_lst(j) = sorted_headers(i)
REDIM PRESERVE occurences(j)
occurences(j) = 2
END IF
END IF
NEXT
FOR i = LBOUND(dlg_combo_lst) TO UBOUND(dlg_combo_lst)
dlg_combo_lst(i) += " (x" + FORMAT$(occurences(i)) + ")"
NEXT
FUNCTION = n
END FUNCTION
' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
SUB F7_Check_Duplicate_Headers ' F7- Check Duplicate Headers
LOCAL n AS LONG
Make_Headers_List(0) ' 0 to ignore header levels
n = Count_Duplicates()
IF n = 0 THEN
Dialog_Msg "No duplicate headers.", _ ' msg label
"Check Duplicate Headers" ' msg title
ELSE
dlg_combo_ope = 7 ' F7- Check Duplicate Headers
Dialog_Combo FORMAT$(n) + " duplicate header" + IIF$(n>1,"s","") + " found. " _
+ "Click ""Go"" then F3 for next occurences.", _ ' combo label
"&Go", _ ' combo button
"Check Duplicate Headers" ' combo title
END IF
END SUB
' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
SUB F2_Header_Nav ' F2- Table Of Content
LOCAL i AS LONG
Make_Headers_List(0) ' 0 to ignore header levels
REDIM dlg_combo_lst(LBOUND(headers) TO UBOUND(headers))
FOR i = LBOUND(headers) TO UBOUND(headers)
dlg_combo_lst(i) = headers(i)
NEXT
i = UBOUND(headers) - LBOUND(headers) + 1
IF i = 0 THEN
Dialog_Msg "No headers in the document.", _ ' msg label
"Header Navigator" ' msg title
ELSE
dlg_combo_ope = 2 ' F2- Table Of Content
Dialog_Combo FORMAT$(i) + " header" + IIF$(i>1,"s","") + _
" available in the document :", _ ' combo label
"&Go", _ ' combo button
"Header Navigator" ' combo title
END IF
END SUB
' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
SUB Create_ToK()
LOCAL e AS STRING
LOCAL i AS LONG
LOCAL j AS LONG
LOCAL cr AS CHARRANGE
SendMessage hEdit,%EM_EXGETSEL,0,BYVAL VARPTR(cr) ' get richedit caret position
Make_Headers_List(-1) ' -1 to get the header levels
i = UBOUND(headers) - LBOUND(headers) + 1
IF i = 0 THEN
Dialog_Msg "No headers in the document.", _ ' msg label
"Create ToK" ' msg title
ELSE
FOR i = LBOUND(headers) TO UBOUND(headers)
REPLACE "#" WITH $TAB IN headers(i) ' make unordered list
j = INSTR(headers(i), $SPC) ' of headers with level
headers(i) = LEFT$(headers(i),j-1) _
+ "*" + MID$(headers(i),j)
e += MID$(headers(i),2) + EOL
NEXT
Insert_STR EOL + e + EOL ' insert the list
Set_Sel (cr.cpMin, cr.cpMin+LEN(e)+1) ' select it
Make_Link_From_Selection() ' make links
END IF
END SUB
' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
SUB Link_To_Header_Dlg() ' Ctrl + Alt + L- Insert Link
' Part #1: show combo dlg with existing headers+links
LOCAL i AS LONG
Make_Headers_List(0) ' 0 to ignore header levels
REDIM dlg_combo_lst(LBOUND(headers) TO UBOUND(headers) + 1)
dlg_combo_lst(0) = "New header (#)"
FOR i = LBOUND(headers) TO UBOUND(headers)
dlg_combo_lst(i+1) = headers(i) + " (" + anchor(headers(i)) + ")"
NEXT
dlg_combo_ope = 0 ' Ctrl + Alt + L- Insert Link
i = UBOUND(headers) - LBOUND(headers)
Dialog_Combo "Insert link to header (" + FORMAT$(i) + " headers available) :", _ ' combo label
"&Insert", _ ' combo button
"Link To Header" ' combo title
END SUB
' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
SUB Link_To_Header_Proc(c AS STRING) ' Ctrl + Alt + L- Insert Link
' Part #2: insert chosen link/header around selection
LOCAL hdr, lnk AS STRING
LOCAL i AS LONG
i = INSTR(c," (#")
hdr = LEFT$(c,i-1)
lnk = LEFT$(MID$(c,i+2),-1)
IF Get_Sel() = "" THEN ' empty selection -> insert header *label* + link
Enclose_Selection_Between "[" + hdr + "]", "(" + lnk + ")"
ELSE ' existing selection -> insert header link only
Enclose_Selection_Between "[", "](" + lnk + ")"
END IF
END SUB
' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
MACRO F8_Fill_Empty_Links_Macro
MACROTEMP ini
MACROTEMP rpl
DIM ini AS STRING
DIM rpl AS STRING
ini = "["+hdr+"]()" ' define initial (empty) link
rpl = "["+hdr+"]("+lnk+")" ' define filled link for replacement
k = INSTR(buf,ini)
WHILE ISTRUE k
Set_Sel (k-1,k+LEN(ini)-1) ' select empty link (/!\ index is 0-based)
SendMessage hEdit,%EM_REPLACESEL, _ ' replace selection with filled link
%TRUE,STRPTR(rpl)
buf = LEFT$(buf,k-1) + rpl + MID$(buf,k+LEN(ini)) ' + replace in buffer as well
k = INSTR(buf,ini)
WEND
END MACRO
' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
SUB F8_Fill_Empty_Links ' F8- Autofill empty links
' (algo taken from "tools\manual-gen-lnk.bas")
LOCAL alllinks_c AS STRING
LOCAL buf AS STRING
LOCAL hdr AS STRING
LOCAL lnk AS STRING
LOCAL i AS LONG
LOCAL j AS LONG
LOCAL k AS LONG
LOCAL l AS LONG
LOCAL n AS LONG
LOCAL nempty AS LONG
LOCAL nfi AS LONG
' Check if there are empty links
' ------------------------------
buf = RE_Get()
REPLACE $CRLF WITH $CR IN buf
nempty = TALLY(buf, "]()")
IF nempty = 0 THEN
Dialog_Msg "No empty links in the document.", "Fill Empty Links"
EXIT SUB
END IF
' Make headers list and calculate all links
' -----------------------------------------
Make_Headers_List(0) ' 0 to ignore header levels
alllinks_c = $LF
FOR i = LBOUND(headers) TO UBOUND(headers)
alllinks_c += anchor(headers(i)) + $LF ' make list of all links calculated (alllinks_c)
NEXT
' Treat all empty links
' ---------------------
j = INSTR(buf,"]()")
WHILE ISTRUE j
INCR n
i = INSTR(j-LEN(buf),buf,"[")
IF ISTRUE i THEN
hdr = MID$(buf,i+1,j-i-1)
k = INSTR(buf,"["+hdr+"](#")
IF ISTRUE k THEN ' autofill on already-existing link (1 occurence is enough)
k += LEN("["+hdr+"](")
l = INSTR(k,buf,")")
lnk = MID$(buf,k,l-k)
F8_Fill_Empty_Links_Macro
ELSE
lnk = anchor(hdr) ' new link -> try to guess it
IF ISTRUE INSTR(alllinks_c,$LF+lnk+$LF) THEN
F8_Fill_Empty_Links_Macro ' an existing header has this anchor name
ELSE
F8_Fill_Empty_Links_Macro ' auto-generate link according to content
alllinks_c += lnk + $LF ' and update list of calculated links
END IF
END IF
END IF
j = INSTR(j+1,buf,"]()")
WEND
' Show result dialog msg
' ----------------------
Dialog_Msg FORMAT$(n) + " empty links successfully filled." + $CR _
+ "Hit Ctrl + Z to undo (one by one).", "Fill Empty Links"
END SUB
' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
SUB F9_Fix_Inco_Links ' F9- Autofix incorrect links
' (algo taken from "tools\manual-fix-inco-lnk.bas")
LOCAL alllinks_c AS STRING
LOCAL buf AS STRING
LOCAL hdr AS STRING
LOCAL lnk AS STRING
LOCAL inco AS STRING
LOCAL i AS LONG
LOCAL j AS LONG
LOCAL k AS LONG
LOCAL l AS LONG
LOCAL m AS LONG
LOCAL n AS LONG
LOCAL nempty AS LONG
LOCAL nfi AS LONG
' Make headers list and calculate all links
' -----------------------------------------
Make_Headers_List(0) ' 0 to ignore header levels
alllinks_c = $LF
FOR i = LBOUND(headers) TO UBOUND(headers)
alllinks_c += anchor(headers(i)) + $LF ' make list of all links calculated (alllinks_c)
NEXT
' Check all links for incorrectness
' ---------------------------------
buf = RE_Get()
REPLACE $CRLF WITH $CR IN buf
j = INSTR(buf,"](#")
WHILE ISTRUE j
i = INSTR(j-LEN(buf),buf,"[")
IF ISTRUE i THEN
hdr = MID$(buf,i+1,j-i-1)
k = INSTR(j,buf,")")
IF ISTRUE k THEN
lnk = MID$(buf,j+2,k-j-2)
IF ISFALSE INSTR(alllinks_c,$LF+lnk+$LF) THEN ' it's an incorrect link
inco = lnk
l = INSTR(alllinks_c,$LF+inco)
IF ISTRUE l THEN ' we found a fixed link that *starts* with the incorrect link
INCR n ' e.g. (#mushromms) -> (#mushrooms-and-co)
m = INSTR(l+1,alllinks_c,$LF)
lnk = MID$(alllinks_c,l+1,m-l-1)
Set_Sel (j+1,k-1) ' select incorrect link (/!\ index is 0-based)
SendMessage hEdit,%EM_REPLACESEL, _ ' replace selection with fixed link
%TRUE,STRPTR(lnk)
buf = LEFT$(buf,j+1) + lnk _ ' + replace in buffer as well
+ MID$(buf,k)
ELSE
m = INSTR(alllinks_c,MID$(inco,2)+$LF)
IF ISTRUE m THEN ' we found a fixed link that *ends* with the incorrect link
INCR n ' e.g. (#shiitake) -> (#how-to-cook-shiitake)
l = INSTR(m-LEN(alllinks_c), _
alllinks_c,$LF+"#")
m = INSTR(m+1,alllinks_c,$LF)
lnk = MID$(alllinks_c,l+1,m-l-1)
Set_Sel (j+1,k-1) ' select incorrect link (/!\ index is 0-based)
SendMessage hEdit,%EM_REPLACESEL, _ ' replace selection with fixed link
%TRUE,STRPTR(lnk)
buf = LEFT$(buf,j+1) + lnk _ ' + replace in buffer as well
+ MID$(buf,k)
END IF
END IF
END IF
END IF
END IF
j = INSTR(j+1,buf,"](#")
WEND
' Show result dialog msg
' ----------------------
IF n = 0 THEN
Dialog_Msg "No incorrect links in the document.", "Fix Incorrect Links"
ELSE
Dialog_Msg FORMAT$(n) + " incorrect links successfully fixed." + $CR _
+ "Hit Ctrl + Z to undo (one by one).", "Fix Incorrect Links"
END IF
END SUB
' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
SUB Follow_Link
LOCAL cr AS CHARRANGE
LOCAL buf AS STRING
LOCAL lnk AS STRING
LOCAL i, j AS LONG
' Get richedit content and caret position
' ---------------------------------------
buf = RE_Get
REPLACE $CRLF WITH $CR IN buf
SendMessage hEdit,%EM_EXGETSEL,0,BYVAL VARPTR(cr)
' Get link under caret
' --------------------
i = INSTR(cr.cpMin-LEN(buf),buf,"[")
IF ISFALSE i THEN BEEP : EXIT SUB
IF ISTRUE INSTR(MID$(buf,i,cr.cpMax-i),$CR) THEN BEEP : EXIT SUB
i = INSTR(i,buf,"](")
IF ISFALSE i THEN BEEP : EXIT SUB
i += LEN("](")
j = INSTR(i,buf,")")
IF ISFALSE j THEN BEEP : EXIT SUB
lnk = MID$(buf,i,j-i)
' If link is incorrect, beep and exit
' -----------------------------------
IF ISTRUE INSTR(lnk,$SPC) _
OR ISTRUE INSTR(lnk,$CR) THEN
BEEP : EXIT SUB
END IF
' If link is external, open it in internet browser
' ------------------------------------------------
IF INSTR(LCASE$(lnk),"http") = 1 _
OR INSTR(LCASE$(lnk),"www.") = 1 THEN
ShellExecute 0,"open",(lnk),"","",%SW_SHOW
EXIT SUB
END IF
' If link is internal, find the header it points to
' -------------------------------------------------
Make_Headers_List(0) ' 0 to ignore header levels
FOR i = LBOUND(headers) TO UBOUND(headers)
IF anchor(headers(i)) = lnk THEN
Set_Sel (hdr_pos(i),hdr_pos(i)) ' ...and go to it!
EXIT FOR
END IF
NEXT
END SUB
' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
FUNCTION DosPrint(sText AS STRING) AS LONG
STATIC iTxtDone, isConsole AS LONG
STATIC hCon AS DWORD
IF hCon = 0 THEN hCon = GetStdHandle(BYVAL %STD_OUTPUT_HANDLE)
IF hCon = %INVALID_HANDLE_VALUE THEN
isConsole = 1
CALL FreeConsole()
IF AllocConsole() THEN hCon = GetStdHandle(BYVAL %STD_OUTPUT_HANDLE)
END IF
IF hCon <> %INVALID_HANDLE_VALUE THEN
CALL WriteConsole(hCon, BYCOPY sText, LEN(sText), iTxtDone, BYVAL 0)
END IF
FUNCTION = isConsole
END FUNCTION
' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
FUNCTION Url_Encode(sText AS STRING) AS STRING
LOCAL rText AS STRING
rText = "file:///" + sText
REPLACE "\" WITH "/" IN rText
FUNCTION = rText
END FUNCTION
' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤