可以这样写：
12345678910111213141516171819202122232425.版本 2 .子程序 文本_取出中间文本, 文本型, 公开, 比如：欲取全文本为“12345”,现在要取出“3”，<3>的前面为“2”，<3>的后面为“4”。.参数 欲取全文本, 文本型, , 比如：欲取全文本为 12345.参数 前面文本, 文本型, , 3的前面为“2”，引号直接用 #引号，如："<font color=#引号red#引号>".参数 后面文本, 文本型, , 3的后面为“4”，引号直接用 #引号，如："<font color=#引号red#引号>".参数 起始搜寻位置, 整数型, 可空, 可空。1为首位置，2为第2个位置，如此类推，如果被省略，则“寻找字节集”命令默认从首部开始，“倒找字节集”命令默认从尾部开始。.参数 是否区分大小写, 逻辑型, 可空, 可空。初始值为“假”。假 = 不区分 真 = 区分大小写。.局部变量 局_位置, 整数型.局部变量 局_位置1, 整数型.局部变量 局_前面文本, 文本型.局部变量 局_后面文本, 文本型 局_前面文本 ＝ 子文本替换 (前面文本, “#引号”, #引号, , , 真)局_后面文本 ＝ 子文本替换 (后面文本, “#引号”, #引号, , , 真)是否区分大小写 ＝ 取反 (是否区分大小写)局_位置 ＝ 寻找文本 (欲取全文本, 局_前面文本, 起始搜寻位置, 是否区分大小写).如果真 (局_位置 ≠ -1) 局_位置 ＝ 局_位置 ＋ 取文本长度 (局_前面文本).如果真结束局_位置1 ＝ 寻找文本 (欲取全文本, 局_后面文本, 局_位置, 是否区分大小写).如果真 (局_位置 ＝ -1 或 局_位置1 ＝ -1) 返回 (“”).如果真结束返回 (取文本中间 (欲取全文本, 局_位置, 局_位置1 － 局_位置))
