第1个回答 2011-02-09
-----------------------------------------------------------------
.版本 2
.子程序 取出文本, 文本型
.参数 文本, 文本型
.参数 头, 文本型
.参数 尾, 文本型
.参数 起始搜寻位置, 整数型, 可空
.局部变量 pos1, 整数型
.局部变量 pos2, 整数型
.如果真 (起始搜寻位置 ≤ 0)
起始搜寻位置 ＝ 1
.如果真结束
pos1 ＝ 寻找文本 (文本, 头, 起始搜寻位置, 真) ＋ 取文本长度 (头)
pos2 ＝ 寻找文本 (文本, 尾, pos1, 真)
返回 (取文本中间 (文本, pos1, pos2 － pos1))
-----------------------------------------------------------------
调用方法：（如取出上面的“很遗憾，您未获得红包，请继续加油！”）
文本 ＝ 取出文本 (网页文本, “本回答被提问者采纳