|
发表于 2013-12-28 21:38:22
|
显示全部楼层
江苏省盐城市
经过测试,你给的代码有问题的,我修正了一下:
[e]
.版本 2
.支持库 spec
.子程序 虫_取出中间文本, 文本型, 公开
.参数 搜寻文本, 文本型
.参数 前面文本, 文本型, 可空
.参数 后面文本, 文本型, 可空
.局部变量 前面位置, 整数型
.局部变量 后面位置, 整数型
.局部变量 前面长度, 整数型
.局部变量 文本总长度, 整数型
文本总长度 = 取文本长度 (搜寻文本)
.如果 (是否为空 (前面文本))
前面位置 = 1
前面长度 = 0
.否则
前面位置 = 寻找文本 (搜寻文本, 前面文本, , 假)
前面长度 = 取文本长度 (前面文本)
.如果结束
调试输出 (前面位置, 前面长度)
.如果 (是否为空 (后面文本))
后面位置 = 文本总长度 + 1
.否则
.如果 (取代码 (取文本中间 (搜寻文本, 后面位置 + 1, 1), ) < 0)
后面位置 = 寻找文本 (搜寻文本, 后面文本, 前面位置 + 2, 假)
.否则
后面位置 = 寻找文本 (搜寻文本, 后面文本, 前面位置 + 1, 假)
.如果结束
.如果结束
调试输出 (后面位置)
.如果 (前面位置 ≠ -1 且 后面位置 ≠ -1)
返回 (取文本中间 (搜寻文本, 前面位置 + 前面长度, 后面位置 - 前面位置 - 前面长度))
.否则
返回 (“”)
[/e] |
|