.版本 2
.支持庫 RegEx
.程序集 窗口程序集_啟動窗口
.子程序 _取中間文本按鈕_被單擊
取中間文本編輯框.內(nèi)容 ＝ 取中間文本 (完整文本編輯框.內(nèi)容, “~”, 表達(dá)式編輯框.內(nèi)容, “~”, 到整數(shù) (下標(biāo)編輯框.內(nèi)容))
.子程序 取中間文本, 文本型, , 返回匹配的文本 多個會以{1}{2}形式輸出
.參數(shù) 原文本, 文本型
.參數(shù) 左邊文本, 文本型
.參數(shù) 中間文本類型, 文本型, 可空
.參數(shù) 右邊文本, 文本型
.參數(shù) 引用下標(biāo), 整數(shù)型, 可空
.局部變量 正則, 正則表達(dá)式
.局部變量 搜索結(jié)果, 搜索結(jié)果, , "0"
.局部變量 匹配結(jié)果, 文本型
.局部變量 成員數(shù), 整數(shù)型
.如果真 (中間文本類型 ＝ “”)
  中間文本類型 ＝ “.*?”
.如果真結(jié)束
正則.創(chuàng)建 (“(?<=\Q” ＋ 左邊文本 ＋ “\E)(” ＋ 中間文本類型 ＋ “)(?=\Q” ＋ 右邊文本 ＋ “\E)”, ) ' 使用 \Q 開始，\E 結(jié)束，可使中間的標(biāo)點(diǎn)符號失去特殊意義，將中間的字符作為普通字符。
搜索結(jié)果 ＝ 正則.搜索全部 (原文本)
成員數(shù) ＝ 取數(shù)組成員數(shù) (搜索結(jié)果)
.如果真 (成員數(shù) ＝ 0)
  返回 (“”)
.如果真結(jié)束
.如果真 (成員數(shù) ＞ 0)
  .如果 (成員數(shù) ＝ 1)
    匹配結(jié)果 ＝ 搜索結(jié)果 [1].取匹配文本 (原文本, )
    返回 (匹配結(jié)果)
  .否則
    .如果 (引用下標(biāo) ＞ 0 且 引用下標(biāo) ≤ 成員數(shù))
      匹配結(jié)果 ＝ 搜索結(jié)果 [引用下標(biāo)].取子匹配文本 (原文本, 1, )
    .否則
      匹配結(jié)果 ＝ 正則.替換 (原文本, “(\{$&\})”, 1, , 假, 真)
    .如果結(jié)束
  .如果結(jié)束
.如果真結(jié)束
返回 (匹配結(jié)果)