文本向前寻找，文本向后寻找

这个没啥好介绍的！分享出来给大家看看吧！对你有帮助的话再好不过了。
.子程序 文本_向后寻找, 整数型, , 从指定位置,向右边开始寻找指定文本，返回找到的位置，失败返回-1
.参数 源文本, 文本型
.参数 起始寻找位置, 整数型
.参数 欲寻找文本, 文本型