|
发表于 2011-7-21 21:19:39
|
显示全部楼层
浙江省宁波市
- .版本 2
- .子程序 截取文本, 文本型, , 大小写区分:0不区分,1区分,省略为不区分.截取方式:0,去关键字;1留关键字;2,留头关键字;3,留尾关键字;省略为0
- .参数 原文本, 文本型
- .参数 左边文本, 文本型
- .参数 右边文本, 文本型
- .参数 大小写区分, 整数型, 可空, 0分不区分,1为区分,省略为不区分
- .参数 截取方式, 整数型, 可空, 0:去除关键字;1:保留关键字;2:保留头关键字;3:保留尾关键字,省略为去关键字
- .局部变量 i, 整数型
- .局部变量 ii, 整数型
- .局部变量 临时数组, 文本型, , "0"
- .局部变量 得文本, 文本型
- .局部变量 大小写, 逻辑型
- .如果 (大小写区分 = 1)
- 大小写 = 假
- .否则
- 大小写 = 真
- .如果结束
- .判断开始 (截取方式 = 1)
- i = 寻找文本 (原文本, 左边文本, , 大小写)
- ii = 寻找文本 (原文本, 右边文本, i, 大小写)
- 得文本 = 取文本中间 (原文本, i, ii - i)
- 得文本 = 得文本 + 右边文本
- .判断 (截取方式 = 2)
- i = 寻找文本 (原文本, 左边文本, , 大小写)
- ii = 寻找文本 (原文本, 右边文本, i, 大小写)
- 得文本 = 取文本中间 (原文本, i, ii - i)
- .判断 (截取方式 = 3)
- i = 寻找文本 (原文本, 左边文本, , 大小写)
- ii = 寻找文本 (原文本, 右边文本, i, 大小写)
- 得文本 = 取文本中间 (原文本, i, ii - i)
- 得文本 = 子文本替换 (得文本, 左边文本, , , 1, 真)
- 得文本 = 得文本 + 右边文本
- .默认
- i = 寻找文本 (原文本, 左边文本, , 大小写)
- ii = 寻找文本 (原文本, 右边文本, i, 大小写)
- 得文本 = 取文本中间 (原文本, i, ii - i)
- 得文本 = 子文本替换 (得文本, 左边文本, , , 1, 真)
- .判断结束
- 返回 (得文本)
复制代码 直接复制进易语言代码编写窗口 这个很方便的 比正则方便多了 |
|