匹配编辑框4行内容一样，丢弃多余

张谦蛋

  

子程序名	返回值类型	公开	备 注
_编辑框1_内容被改变

变量名	类 型	静态	数组	备 注
array7	文本型		0
i7	整数型
a7	整数型

' 标题 ＝ 到文本 (编辑框1.发送信息 (186, 0, 0)) ＋ “行”
a7 ＝ 编辑框1.发送信息 (186, 0, 0)
array7 ＝ 分割文本 (编辑框1.内容, #换行符, )
计次循环首 (取数组成员数 (array7), i7)
如果真 (寻找文本 (<<<<<<<<<<<这里不知道怎么写啦>>>>>>>>>., array7 [i7], , 假) ＞ 0)
调试输出 (“包含”)
调试输出 (到文本 (a) ＋ “行”)
程序_延时 (1000)
计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _编辑框1_内容被改变<br /> .局部变量 array7, 文本型, , "0"<br /> .局部变量 i7, 整数型<br /> .局部变量 a7, 整数型<br /> <br /> ' 标题 ＝ 到文本 (编辑框1.发送信息 (186, 0, 0)) ＋ “行”<br /> a7 ＝ 编辑框1.发送信息 (186, 0, 0)<br /> array7 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> .计次循环首 (取数组成员数 (array7), i7)<br />     .如果真 (寻找文本 (<<<<<<<<<<<这里不知道怎么写啦>>>>>>>>>., array7 [i7], , 假) ＞ 0)<br />         调试输出 (“包含”)<br />     .如果真结束<br />     调试输出 (到文本 (a) ＋ “行”)<br />     程序_延时 (1000)<br /> <br /> .计次循环尾 ()

emodiyu

  

子程序名	返回值类型	公开	备 注
取前四行相同文本	文本型
参数名	类 型	参考	可空	数组	备 注
文本	文本型
取几行相同	整数型
分割符号	文本型

变量名	类 型	静态	数组	备 注
文本数组	文本型		0
文本计次	整数型
组合文本	文本型
符合次数	整数型

文本数组 ＝ 分割文本 (文本, 分割符号, )
计次循环首 (取数组成员数 (文本数组), 文本计次)
如果 (文本数组 [1] ＝ 文本数组 [文本计次])
符合次数 ＝ 符合次数 ＋ 1
组合文本 ＝ 组合文本 ＋ 文本数组 [文本计次] ＋ 分割符号
如果真 (符合次数 ＝ 取几行相同)
跳出循环 ()

符合次数 ＝ 0
组合文本 ＝ “”

计次循环尾 ()
返回 (组合文本)

.版本 2<br /> <br /> .子程序 取前四行相同文本, 文本型<br /> .参数 文本, 文本型<br /> .参数 取几行相同, 整数型<br /> .参数 分割符号, 文本型<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 文本计次, 整数型<br /> .局部变量 组合文本, 文本型<br /> .局部变量 符合次数, 整数型<br /> <br /> 文本数组 ＝ 分割文本 (文本, 分割符号, )<br /> .计次循环首 (取数组成员数 (文本数组), 文本计次)<br /> <br />     .如果 (文本数组 [1] ＝ 文本数组 [文本计次])<br />         符合次数 ＝ 符合次数 ＋ 1<br />         组合文本 ＝ 组合文本 ＋ 文本数组 [文本计次] ＋ 分割符号<br />         .如果真 (符合次数 ＝ 取几行相同)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .否则<br />         符合次数 ＝ 0<br />         组合文本 ＝ “”<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 返回 (组合文本)

15039346689

  

子程序名	返回值类型	公开	备 注
_编辑框1_内容被改变

变量名	类 型	静态	数组	备 注
array7	文本型		0
i7	整数型
a7	整数型
局_行数	整数型

' 标题 ＝ 到文本 (编辑框1.发送信息 (186, 0, 0)) ＋ “行”
' a7 ＝ 编辑框1.发送信息 (186, 0, 0)
array7 ＝ 分割文本 (编辑框1.内容, #换行符, )
局_行数 ＝ 取数组成员数 (array7)
计次循环首 (局_行数 － 3, i7)
如果真 (i7 ＋ 3 ≤ 局_行数)
如果真 (array7 [i7 ＋ 1] ＝ array7 [i7] 且 array7 [i7] ＝ array7 [i7 ＋ 2] 且 array7 [i7] ＝ array7 [i7 ＋ 3])
调试输出 (array7 [i7] ＋ #换行符 ＋ array7 [i7 ＋ 1] ＋ #换行符 ＋ array7 [i7 ＋ 2] ＋ #换行符 ＋ array7 [i7 ＋ 3])
跳出循环 ()


计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _编辑框1_内容被改变<br /> .局部变量 array7, 文本型, , "0"<br /> .局部变量 i7, 整数型<br /> .局部变量 a7, 整数型<br /> .局部变量 局_行数, 整数型<br /> <br /> ' 标题 ＝ 到文本 (编辑框1.发送信息 (186, 0, 0)) ＋ “行”<br /> ' a7 ＝ 编辑框1.发送信息 (186, 0, 0)<br /> array7 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> 局_行数 ＝ 取数组成员数 (array7)<br /> <br /> .计次循环首 (局_行数 － 3, i7)<br />     .如果真 (i7 ＋ 3 ≤ 局_行数)<br />         .如果真 (array7 [i7 ＋ 1] ＝ array7 [i7] 且 array7 [i7] ＝ array7 [i7 ＋ 2] 且 array7 [i7] ＝ array7 [i7 ＋ 3])<br />             调试输出 (array7 [i7] ＋ #换行符 ＋ array7 [i7 ＋ 1] ＋ #换行符 ＋ array7 [i7 ＋ 2] ＋ #换行符 ＋ array7 [i7 ＋ 3])<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()