文本分割查找问题

1370713774

怎么实现这种效果，点击按钮就查找对应的数据

LEOONL

  

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

变量名	类 型	静态	数组	备 注
文本	文本型		0
文本2	文本型		0
n	整数型
信息	文本型

文本 ＝ 分割文本 (编辑框2.内容, “|”, )
计次循环首 (取数组成员数 (文本), n)
如果 (取数组成员数 (文本) ＝ n)
信息 ＝ 信息 ＋ 文本_取出中间文本 ( #换行符 ＋ 编辑框1.内容 ＋ #换行符, #换行符 ＋ 文本 [n] ＋ “|”, #换行符 )
信息 ＝ 信息 ＋ 文本_取出中间文本 ( #换行符 ＋ 编辑框1.内容 ＋ #换行符, #换行符 ＋ 文本 [n] ＋ “|”, #换行符 ) ＋ “|”

计次循环尾 ()
信息框 (信息, 0, , )

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本, 文本型, , "0"<br /> .局部变量 文本2, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 信息, 文本型<br /> <br /> 文本 ＝ 分割文本 (编辑框2.内容, “|”, )<br /> .计次循环首 (取数组成员数 (文本), n)<br />     .如果 (取数组成员数 (文本) ＝ n)<br />         信息 ＝ 信息 ＋ 文本_取出中间文本 (#换行符 ＋ 编辑框1.内容 ＋ #换行符, #换行符 ＋ 文本 [n] ＋ “|”, #换行符)<br />     .否则<br />         信息 ＝ 信息 ＋ 文本_取出中间文本 (#换行符 ＋ 编辑框1.内容 ＋ #换行符, #换行符 ＋ 文本 [n] ＋ “|”, #换行符) ＋ “|”<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 信息框 (信息, 0, , )

LEOONL

  

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

变量名	类 型	静态	数组	备 注
文本	文本型		0
文本2	文本型		0
n	整数型
信息	文本型

文本 ＝ 分割文本 (编辑框2.内容, “|”, )
计次循环首 (取数组成员数 (文本), n)
信息 ＝ 信息 ＋ 文本_取出中间文本 ( #换行符 ＋ 编辑框1.内容 ＋ #换行符, #换行符 ＋ 文本 [n] ＋ “|”, #换行符 ) ＋ “|”
计次循环尾 ()
信息框 (信息, 0, , )

子程序名	返回值类型	公开	备 注
文本_取出中间文本	文本型		比如：欲取全文本为“12345”,现在要取出“3”，<3>的前面为“2”，<3>的后面为“4”，
参数名	类 型	参考	可空	数组	备 注
欲取全文本	文本型				比如：欲取全文本为 12345
前面文本	文本型				3的前面为“2”，引号直接用 #引号，如："[color=#引号red#引号]"
后面文本	文本型				3的后面为“4”，引号直接用 #引号，如："[color=#引号red#引号]"
起始搜寻位置	整数型				可空,这里是指搜寻 参数二 前面文本 的开始位置
是否不区分大小写	逻辑型				为真不区分大小写，为假区分。

变量名	类 型	静态	数组	备 注
局_前面文本位置	整数型
局_后面文本位置	整数型
局_前面文本	文本型
局_后面文本	文本型

局_前面文本 ＝ 子文本替换 (前面文本, “#引号”, #引号, , , 真)
局_后面文本 ＝ 子文本替换 (后面文本, “#引号”, #引号, , , 真)
局_前面文本位置 ＝ 寻找文本 (欲取全文本, 局_前面文本, 起始搜寻位置, 是否不区分大小写)
如果真 (局_前面文本位置 ≠ -1)
局_前面文本位置 ＝ 局_前面文本位置 ＋ 取文本长度 (局_前面文本)
局_后面文本位置 ＝ 寻找文本 (欲取全文本, 局_后面文本, 局_前面文本位置, 是否不区分大小写)
如果真 (局_后面文本位置 ≠ -1)
返回 (取文本中间 (欲取全文本, 局_前面文本位置, 局_后面文本位置 － 局_前面文本位置))

返回 (“”)

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本, 文本型, , "0"<br /> .局部变量 文本2, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 信息, 文本型<br /> <br /> 文本 ＝ 分割文本 (编辑框2.内容, “|”, )<br /> .计次循环首 (取数组成员数 (文本), n)<br />     信息 ＝ 信息 ＋ 文本_取出中间文本 (#换行符 ＋ 编辑框1.内容 ＋ #换行符, #换行符 ＋ 文本 [n] ＋ “|”, #换行符) ＋ “|”<br /> .计次循环尾 ()<br /> 信息框 (信息, 0, , )<br /> <br /> .子程序 文本_取出中间文本, 文本型, 公开, 比如：欲取全文本为“12345”,现在要取出“3”，<3>的前面为“2”，<3>的后面为“4”，<br /> .参数 欲取全文本, 文本型, , 比如：欲取全文本为 12345<br /> .参数 前面文本, 文本型, , 3的前面为“2”，引号直接用 #引号，如："[color=#引号red#引号]"<br /> .参数 后面文本, 文本型, , 3的后面为“4”，引号直接用 #引号，如："[color=#引号red#引号]"<br /> .参数 起始搜寻位置, 整数型, 可空, 可空,这里是指搜寻 参数二 前面文本 的开始位置<br /> .参数 是否不区分大小写, 逻辑型, 可空, 为真不区分大小写，为假区分。<br /> .局部变量 局_前面文本位置, 整数型<br /> .局部变量 局_后面文本位置, 整数型<br /> .局部变量 局_前面文本, 文本型<br /> .局部变量 局_后面文本, 文本型<br /> <br /> 局_前面文本 ＝ 子文本替换 (前面文本, “#引号”, #引号, , , 真)<br /> 局_后面文本 ＝ 子文本替换 (后面文本, “#引号”, #引号, , , 真)<br /> 局_前面文本位置 ＝ 寻找文本 (欲取全文本, 局_前面文本, 起始搜寻位置, 是否不区分大小写)<br /> .如果真 (局_前面文本位置 ≠ -1)<br />     局_前面文本位置 ＝ 局_前面文本位置 ＋ 取文本长度 (局_前面文本)<br />     局_后面文本位置 ＝ 寻找文本 (欲取全文本, 局_后面文本, 局_前面文本位置, 是否不区分大小写)<br />     .如果真 (局_后面文本位置 ≠ -1)<br />         返回 (取文本中间 (欲取全文本, 局_前面文本位置, 局_后面文本位置 － 局_前面文本位置))<br />     .如果真结束<br /> <br /> .如果真结束<br /> 返回 (“”)