.版本 2

.子程式 _啟動子程式, 整數型, , 本子程式在程式啟動後最先執行

.區域性變數 檔案號, 整數型

.區域性變數 臨時文字, 文字型

檔案號 ＝ 開啟檔案 (“123.txt”, , )

移到檔案首 (檔案號)

.迴圈判斷首 ()

臨時文字 ＝ 臨時文字 ＋ 取回文字 (讀入一行 (檔案號), “☆”, “☆”) ＋ #換行符

.迴圈判斷尾 (取反 (是否在檔案尾 (檔案號, )))

輸出除錯文字 (臨時文字)

返回 (0) " 可以根據您的需要返回任意數值

.子程式 取回文字, 文字型

.引數 被搜尋的文字, 文字型

.引數 開始標記, 文字型

.引數 結束標記, 文字型

.引數 包含標記文字, 邏輯型, 可空, 預設為真

.區域性變數 位置1, 整數型

.區域性變數 位置2, 整數型

.區域性變數 長度, 整數型

.區域性變數 返回文字, 文字型

長度 ＝ 取文字長度 (開始標記)

.如果真 (是否為空 (包含標記文字))

包含標記文字 ＝ 真

.如果真結束

位置1 ＝ 尋找文字 (被搜尋的文字, 開始標記, , 假)

位置2 ＝ 尋找文字 (被搜尋的文字, 結束標記, 位置1 ＋ 長度, 假)

.如果 (包含標記文字 ＝ 真)

返回文字 ＝ 取文字中間 (被搜尋的文字, 位置1 ＋ 長度, 位置2 － 位置1 － 長度)

.否則

返回文字 ＝ 取文字中間 (被搜尋的文字, 位置1, 位置2 － 位置1)

.如果結束

返回 (返回文字)

"----------------------------------

"把上面的內容複製到E程式裡,就可以看到結果了

"PS:記得替換123.txt的目錄