快速数组_寻找文本源码

__轩辕传奇

本人在写一款软件需要用到的快速数组_寻找文本源码，分享给大家。。。。大佬勿喷

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
i	整数型
被寻找文本	文本型		0
内容	文本型		0

内容 ＝ { “时”, “2”, “iotu”, “1”, “的” }
被寻找文本 ＝ { “1”, “2”, “iotu”, “时”, “2”, “时” }
调试输出 (数组_寻找文本 (内容, 被寻找文本, , , ))

子程序名	返回值类型	公开	备 注
数组_寻找文本	文本型		成功返回内容----数组，失败返回空。
参数名	类 型	参考	可空	数组	备 注
文本	文本型
被寻找文本	文本型
起始寻找位置	整数型				位置索引可以为正值，1表示第一个字符，2表示第二个字符，依次类推；位置索引也可以为负值，-1表示最后一个字符，-2表示倒数第二个字符，依次类推。如果本参数被省略，默认为1。
是否分区大小写	逻辑型				默认为“假”
返回数组行	整数型				如果本参数被省略，默认为从“起始位置”到文本结尾的字符个数。超过大于数组数返回全部数组

变量名	类 型	静态	数组	备 注
i	整数型
对象	快速文本对象
p	整数型
对象内容	文本型
分割	文本型		0

如果真 (起始寻找位置 ＝ 0)
起始寻找位置 ＝ 1
计次循环首 (取数组成员数 (文本), i)
处理事件 ()
对象.添加 (文本 [i])
计次循环首 (取数组成员数 (被寻找文本), p)
如果真 (对象.寻找文本 (被寻找文本 [p], 起始寻找位置, 是否分区大小写) ≠ -1)
判断 (对象内容 ＝ “”)
对象内容 ＝ 文本 [i] ＋ “----” ＋ 被寻找文本 [p]
对象内容 ＝ 对象内容 ＋ #换行符 ＋ 文本 [i] ＋ “----” ＋ 被寻找文本 [p]


计次循环尾 ()
对象.清除文本 ()
计次循环尾 ()
对象.添加 (对象内容)
分割 ＝ 对象.分割文本 ( #换行符, )
调试输出 (分割)
对象.清除文本 ()
如果真 (返回数组行 ≠ 0)
如果真 (返回数组行 ≤ 取数组成员数 (被寻找文本))
返回 (分割 [返回数组行])

返回 (对象内容)

i支持库列表	支持库注释
spec	特殊功能支持库
commobj	通用对象支持库

.版本 2<br /> .支持库 spec<br /> .支持库 commobj<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 被寻找文本, 文本型, , "0"<br /> .局部变量 内容, 文本型, , "0"<br /> <br /> 内容 ＝ { “时”, “2”, “iotu”, “1”, “的” }<br /> 被寻找文本 ＝ { “1”, “2”, “iotu”, “时”, “2”, “时” }<br /> 调试输出 (数组_寻找文本 (内容, 被寻找文本, , , ))<br /> <br /> .子程序 数组_寻找文本, 文本型, 公开, 成功返回内容----数组，失败返回空。<br /> .参数 文本, 文本型, 数组<br /> .参数 被寻找文本, 文本型, 数组<br /> .参数 起始寻找位置, 整数型, 可空, 位置索引可以为正值，1表示第一个字符，2表示第二个字符，依次类推；位置索引也可以为负值，-1表示最后一个字符，-2表示倒数第二个字符，依次类推。如果本参数被省略，默认为1。<br /> .参数 是否分区大小写, 逻辑型, 可空, 默认为“假”<br /> .参数 返回数组行, 整数型, 可空, 如果本参数被省略，默认为从“起始位置”到文本结尾的字符个数。超过大于数组数返回全部数组<br /> .局部变量 i, 整数型<br /> .局部变量 对象, 快速文本对象<br /> .局部变量 p, 整数型<br /> .局部变量 对象内容, 文本型<br /> .局部变量 分割, 文本型, , "0"<br /> <br /> .如果真 (起始寻找位置 ＝ 0)<br />     起始寻找位置 ＝ 1<br /> .如果真结束<br /> .计次循环首 (取数组成员数 (文本), i)<br />     处理事件 ()<br />     对象.添加 (文本 <i>)<br />     .计次循环首 (取数组成员数 (被寻找文本), p)<br />         .如果真 (对象.寻找文本 (被寻找文本 [p], 起始寻找位置, 是否分区大小写) ≠ -1)<br />             .判断开始 (对象内容 ＝ “”)<br />                 对象内容 ＝ 文本 <i> ＋ “----” ＋ 被寻找文本 [p]<br />             .默认<br />                 对象内容 ＝ 对象内容 ＋ #换行符 ＋ 文本 <i> ＋ “----” ＋ 被寻找文本 [p]<br />             .判断结束<br /> <br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     对象.清除文本 ()<br /> .计次循环尾 ()<br /> 对象.添加 (对象内容)<br /> 分割 ＝ 对象.分割文本 (#换行符, )<br /> 调试输出 (分割)<br /> 对象.清除文本 ()<br /> .如果真 (返回数组行 ≠ 0)<br />     .如果真 (返回数组行 ≤ 取数组成员数 (被寻找文本))<br />         返回 (分割 [返回数组行])<br />     .如果真结束<br /> <br /> .如果真结束<br /> 返回 (对象内容)

快速数组_寻找文本源码.e (95.44 KB, 下载次数: 100)

2019-6-20 19:17 上传

点击文件名下载附件

pshq123

66666666666666666666666666666

zifeiyu

6666666666666

zzulihuang

我是新手,我需要学习！

zzulihuang

新技能已get√  

jiaweiguang

谢谢分享 学习了

回忆寄往事

新技能已get√  

orjg

新技能已get√  

吃干饭的锅

新技能已get√

悟心猎手

新技能已get√