版本 2.程式集 視窗程式集1.子程式 _按鈕_儲存_被單擊.區域性變數 區域性_計次, 整數型.計次迴圈首 (組合框1.取專案數 (), 區域性_計次) 寫配置項 (取執行目錄 () ＋ “\配置.ini”, “組合框”, 到文字 (區域性_計次), 組合框1.取專案文字 (區域性_計次 － 1)).計次迴圈尾 ().子程式 _按鈕_讀取_被單擊.區域性變數 區域性_配置節名陣列, 文字型, , "0".區域性變數 區域性_臨時文字, 文字型.區域性變數 區域性_位置1, 整數型.區域性變數 區域性_位置2, 整數型.區域性變數 區域性_返回內容, 文字型.區域性變數 區域性_計次, 整數型.區域性變數 區域性_配置名, 文字型.如果 (檔案是否存在 (取執行目錄 () ＋ “\配置.ini”)) 區域性_配置節名陣列 ＝ 取配置節名 (取執行目錄 () ＋ “\配置.ini”) .如果 (取陣列成員數 (區域性_配置節名陣列) ＞ 0) 區域性_臨時文字 ＝ 到文字 (讀入檔案 (取執行目錄 () ＋ “\配置.ini”)) 區域性_位置1 ＝ 尋找文字 (區域性_臨時文字, “[組合框]”, , 假) .如果 (區域性_位置1 ≠ -1) 區域性_位置2 ＝ 尋找文字 (區域性_臨時文字, “[”, 區域性_位置1 ＋ 1, 假) .如果 (區域性_位置2 ≠ -1) 區域性_返回內容 ＝ 取文字中間 (區域性_臨時文字, 區域性_位置1 ＋ 取文字長度 (“[組合框]”), 區域性_位置2 － 區域性_位置1 － 取文字長度 (“[組合框]”)) .否則 區域性_返回內容 ＝ 取文字中間 (區域性_臨時文字, 區域性_位置1, 取文字長度 (區域性_臨時文字) － 區域性_位置1) .如果結束 區域性_返回內容 ＝ 子文字替換 (區域性_返回內容, #換行符, , , , 真) 清除陣列 (區域性_配置節名陣列) .如果真 (尋找文字 (區域性_返回內容, “=”, , 假) ≠ -1) 區域性_配置節名陣列 ＝ 分割文字 (區域性_返回內容, “=”, ) 組合框1.清空 () .計次迴圈首 (取陣列成員數 (區域性_配置節名陣列) － 1, 區域性_計次) 區域性_配置名 ＝ 讀配置項 (取執行目錄 () ＋ “\配置.ini”, “組合框”, 到文字 (區域性_計次), ) 組合框1.加入專案 (區域性_配置名, ) .計次迴圈尾 () .如果真結束 .否則 資訊框 (“找不到配置節名:[組合框]”, 0, ) .如果結束 .否則 資訊框 (“配置節名不存在”, 0, ) .如果結束.否則 資訊框 (“檔案:” ＋ 取執行目錄 () ＋ “\配置.ini 不存在”, 0, ).如果結束