批量取文本中间源码

jingyi11023995

在百度找了一下，没找到相关源码。于是自己写了一个，欢迎各路大神测试，如有BUG或者更好的写法，欢迎指正，谢谢。

  

子程序名	返回值类型	公开	备 注
批量取文本中间	整数型
参数名	类 型	参考	可空	数组	备 注
strings	文本型				文本内容
leftString	文本型				开始的文本
rightString	文本型				结束的文本
Array	文本型				返回的数组

变量名	类 型	静态	数组	备 注
start	整数型			开始位置
end	整数型			结束位置
count	整数型			符合的个数
tempString	文本型			符合的文本

start ＝ 0
count ＝ 0
清除数组 (Array)
如果真 (strings ＝ “” 或 leftString ＝ “” 或 rightString ＝ “”)  ' 传入的参数为空时，不进行操作
返回 (0)
判断循环首 (寻找文本 (strings, leftString, start, 假) ≠ -1)
start ＝ 寻找文本 (strings, leftString, start, 假)  ' 找开始文本的位置
end ＝ 寻找文本 (strings, rightString, start ＋ 1, 假)  ' 从加1位置开始找结束文本位置
如果真 (start ＝ -1 或 end ＝ -1)  ' 开始和结束位置有一个找不到则跳出循环
跳出循环 ()
tempString ＝ 取文本中间 (strings, start ＋ 取文本长度 (leftString), end － start － 取文本长度 (rightString))  ' 取出符合的文本
如果真 (tempString ≠ “”)  ' 如果不为空则加入到数组
加入成员 (Array, tempString)
count ＝ count ＋ 1
start ＝ end  ' 更改开始位置
判断循环尾 ()
返回 (count)

.版本 2<br /> <br /> .子程序 批量取文本中间, 整数型<br /> .参数 strings, 文本型, , 文本内容<br /> .参数 leftString, 文本型, , 开始的文本<br /> .参数 rightString, 文本型, , 结束的文本<br /> .参数 Array, 文本型, 参考 数组, 返回的数组<br /> .局部变量 start, 整数型, , , 开始位置<br /> .局部变量 end, 整数型, , , 结束位置<br /> .局部变量 count, 整数型, , , 符合的个数<br /> .局部变量 tempString, 文本型, , , 符合的文本<br /> <br /> start ＝ 0<br /> count ＝ 0<br /> 清除数组 (Array)<br /> .如果真 (strings ＝ “” 或 leftString ＝ “” 或 rightString ＝ “”)  ' 传入的参数为空时，不进行操作<br />     返回 (0)<br /> .如果真结束<br /> .判断循环首 (寻找文本 (strings, leftString, start, 假) ≠ -1)<br />     start ＝ 寻找文本 (strings, leftString, start, 假)  ' 找开始文本的位置<br />     end ＝ 寻找文本 (strings, rightString, start ＋ 1, 假)  ' 从加1位置开始找结束文本位置<br />     .如果真 (start ＝ -1 或 end ＝ -1)  ' 开始和结束位置有一个找不到则跳出循环<br />         跳出循环 ()<br />     .如果真结束<br />     tempString ＝ 取文本中间 (strings, start ＋ 取文本长度 (leftString), end － start － 取文本长度 (rightString))  ' 取出符合的文本<br />     .如果真 (tempString ≠ “”)  ' 如果不为空则加入到数组<br />         加入成员 (Array, tempString)<br />         count ＝ count ＋ 1<br />     .如果真结束<br />     start ＝ end  ' 更改开始位置<br /> .判断循环尾 ()<br /> 返回 (count)

补充内容 (2016-12-18 00:17):
有一句错了，应该是这样的，不好意思：
tempString ＝ 取文本中间 (strings, start ＋ 取文本长度 (leftString), end － start － 取文本长度 (leftString))  ' 取出符合的文本

jingyi11023995

w284539474 发表于 2016-12-19 13:52
新手观摩观摩，问个小白问题，参数没有勾选可空，那是不是调用子程序必须写参数？

是的，不可空的参数，一定要写。

w284539474

新手观摩观摩，问个小白问题，参数没有勾选可空，那是不是调用子程序必须写参数？

339300

每天过来顶一顶

鱼唾沫

看看，学一下。回帖是一种美德

jingyi11023995

jingyi11023995 发表于 2016-12-17 00:26
有一句错了，应该是这样的，不好意思：
tempString ＝ 取文本中间 (strings, start ＋ 取文本长度 (leftSt ...

找不到编辑的入口。。。

我叫落年

感谢分享 楼主好人啊

jingyi11023995

118184017 发表于 2016-12-17 11:22
你没用过精易模块？

我一般不用模块，因为用模块会造成程序体积太大呀，我要什么功能，自己能实现的就自己写一个，不是更好？

洛阳

支持楼主，谢谢~~

118184017

你没用过精易模块？

jingyi11023995

有一句错了，应该是这样的，不好意思：
tempString ＝ 取文本中间 (strings, start ＋ 取文本长度 (leftString), end － start － 取文本长度 (leftString))  ' 取出符合的文本