.支持庫 internet
.支持庫 spec
.子程序 _按鈕1_被單擊
.局部變量 返回文本, 文本型
返回文本 ＝ 到文本 (HTTP讀文件 (“” ＋ URL編碼 (編輯框1.內容)))
調試輸出 (返回文本)
.子程序 URL編碼, 文本型
.參數 轉換前, 文本型
.參數 自定義編碼, 文本型, 可空, （可空）例： (空格)|+,?|?,/|/ 以|隔開替換的 以,隔開多個
.參數 只轉換漢字, 邏輯型, 可空, 可空，默認為全轉換，為真 只轉換漢字
.局部變量 局部_數據, 字節集
.局部變量 i, 整數型
.局部變量 ii, 整數型
.局部變量 轉換後, 文本型
.局部變量 文本, 文本型
.局部變量 自定義, 文本型, , "0"
.局部變量 th, 文本型, , "2"
局部_數據 ＝ 到字節集 (刪首尾空 (轉換前))
轉換後 ＝ “”
自定義 ＝ 分割文本 (自定義編碼, “,”, )
.計次循環首 (取字節集長度 (局部_數據), i)
.判斷開始 (取數組成員數 (自定義) ＞ 0)
.計次循環首 (取數組成員數 (自定義), ii)
th ＝ 分割文本 (自定義 [ii], “|”, )
.如果真 (取文本右邊 (自定義 [ii], 1) ＝ “|” 或 尋找文本 (自定義 [ii], “|”, 0, 假) ＜ 0)
加入成員 (th, th [1])
.如果真結束
.如果 (取代碼 (th [1], 1) ＝ 局部_數據 [i])
文本 ＝ th [2]
跳出循環 ()
.否則
.如果 (只轉換漢字 ＝ 真)
.判斷開始 (局部_數據 [i] ＞ 122)
文本 ＝ “%” ＋ 取十六進制文本 (局部_數據 [i])
.默認
文本 ＝ 字符 (局部_數據 [i])
.判斷結束
.否則
文本 ＝ “%” ＋ 取十六進制文本 (局部_數據 [i])
.如果結束
.如果結束
.計次循環尾 ()
.默認
.如果 (只轉換漢字 ＝ 真)
.判斷開始 (局部_數據 [i] ＞ 122)
文本 ＝ “%” ＋ 取十六進制文本 (局部_數據 [i])
.默認
文本 ＝ 字符 (局部_數據 [i])
.判斷結束
.否則
文本 ＝ “%” ＋ 取十六進制文本 (局部_數據 [i])
.如果結束
.判斷結束
轉換後 ＝ 轉換後 ＋ 文本
.計次循環尾 ()
返回 (轉換後)