.版本 2取出文本 (“这是一个要取出的文本，前文本=SID=后文本”, “前文本=”, “=后文本”).子程序 取出文本, 文本型.参数 文本, 文本型.参数 头, 文本型.参数 尾, 文本型.参数 起始搜寻位置, 整数型, 可空.局部变量 pos1, 整数型.局部变量 pos2, 整数型.如果真 (起始搜寻位置 ≤ 0)
起始搜寻位置 ＝ 1.如果真结束pos1 ＝ 寻找文本 (文本, 头, 起始搜寻位置, 真) ＋ 取文本长度 (头)pos2 ＝ 寻找文本 (文本, 尾, pos1, 真)返回 (取文本中间 (文本, pos1, pos2 － pos1))好吧，我无语了，刚才你... |
