.版本 2.支援庫 RegEx.支援庫 spec.程式集 視窗程式集1.程式集變數 待處理文字, 文字型.程式集變數 序號1, 文字型.程式集變數 序號2, 文字型.程式集變數 序號3, 文字型.子程式 __啟動視窗_建立完畢待處理文字 ＝ 到文字 (讀入檔案 (取執行目錄 () ＋ “\待處理文字.txt”))編輯框1.內容 ＝ 待處理文字.子程式 _按鈕1_被單擊.區域性變數 正則, 正則表示式.區域性變數 結果, 搜尋結果, , "0".區域性變數 a, 整數型正則.建立 (“^.*?-(.*?)-.*?$”, )結果 ＝ 正則.搜尋全部 (待處理文字)除錯輸出 (到位元組集 (結果 [1].取匹配文字 (待處理文字, )), 到位元組集 (結果 [2].取匹配文字 (待處理文字, ))).計次迴圈首 (取陣列成員數 (結果), a).判斷開始 (結果 [a].取子匹配文字 (待處理文字, 1, ) ＝ “序號1”)序號1 ＝ 序號1 ＋ 結果 [a].取匹配文字 (待處理文字, ).判斷 (結果 [a].取子匹配文字 (待處理文字, 1, ) ＝ “序號2”)序號2 ＝ 序號2 ＋ 結果 [a].取匹配文字 (待處理文字, ).判斷 (結果 [a].取子匹配文字 (待處理文字, 1, ) ＝ “序號3”)序號3 ＝ 序號3 ＋ 結果 [a].取匹配文字 (待處理文字, ).預設.判斷結束.計次迴圈尾 ()編輯框2.內容 ＝ 序號1寫到檔案 (取執行目錄 () ＋ “\序號1.txt”, 到位元組集 (序號1))編輯框3.內容 ＝ 到文字 (位元組集替換 (到位元組集 (序號2), 1, 2, ))寫到檔案 (取執行目錄 () ＋ “\序號2.txt”, 位元組集替換 (到位元組集 (序號2), 1, 2, ))編輯框4.內容 ＝ 到文字 (位元組集替換 (到位元組集 (序號3), 1, 2, ))寫到檔案 (取執行目錄 () ＋ “\序號3.txt”, 位元組集替換 (到位元組集 (序號3), 1, 2, ))
.版本 2.支援庫 RegEx.支援庫 spec.程式集 視窗程式集1.程式集變數 待處理文字, 文字型.程式集變數 序號1, 文字型.程式集變數 序號2, 文字型.程式集變數 序號3, 文字型.子程式 __啟動視窗_建立完畢待處理文字 ＝ 到文字 (讀入檔案 (取執行目錄 () ＋ “\待處理文字.txt”))編輯框1.內容 ＝ 待處理文字.子程式 _按鈕1_被單擊.區域性變數 正則, 正則表示式.區域性變數 結果, 搜尋結果, , "0".區域性變數 a, 整數型正則.建立 (“^.*?-(.*?)-.*?$”, )結果 ＝ 正則.搜尋全部 (待處理文字)除錯輸出 (到位元組集 (結果 [1].取匹配文字 (待處理文字, )), 到位元組集 (結果 [2].取匹配文字 (待處理文字, ))).計次迴圈首 (取陣列成員數 (結果), a).判斷開始 (結果 [a].取子匹配文字 (待處理文字, 1, ) ＝ “序號1”)序號1 ＝ 序號1 ＋ 結果 [a].取匹配文字 (待處理文字, ).判斷 (結果 [a].取子匹配文字 (待處理文字, 1, ) ＝ “序號2”)序號2 ＝ 序號2 ＋ 結果 [a].取匹配文字 (待處理文字, ).判斷 (結果 [a].取子匹配文字 (待處理文字, 1, ) ＝ “序號3”)序號3 ＝ 序號3 ＋ 結果 [a].取匹配文字 (待處理文字, ).預設.判斷結束.計次迴圈尾 ()編輯框2.內容 ＝ 序號1寫到檔案 (取執行目錄 () ＋ “\序號1.txt”, 到位元組集 (序號1))編輯框3.內容 ＝ 到文字 (位元組集替換 (到位元組集 (序號2), 1, 2, ))寫到檔案 (取執行目錄 () ＋ “\序號2.txt”, 位元組集替換 (到位元組集 (序號2), 1, 2, ))編輯框4.內容 ＝ 到文字 (位元組集替換 (到位元組集 (序號3), 1, 2, ))寫到檔案 (取執行目錄 () ＋ “\序號3.txt”, 位元組集替換 (到位元組集 (序號3), 1, 2, ))