大侠好：分割文本取其中几个文件拜谢

MSSXU

大侠好：分割文本取其中几个文件，帮忙解答下拜谢


* “01/D6”
* “01-D6-策44”
* “02/D6”
* “02-D6-策33”
* “03/D8”
* “03-D8-策jjk”
* “04-D8-策999”
* “04-D8-策44”
* “04-D8-策kll”


分别取出 01/D6  02/D6  03/D8

LEOONL

  

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

变量名	类 型	静态	数组	备 注
文本	文本型		0
n	整数型
取出	文本型

文本 ＝ 分割文本 ( #常量1, #换行符, )
计次循环首 (取数组成员数 (文本), n)
如果真 (寻找文本 (文本 [n], “/”, , 假) ＞ 0)
取出 ＝ 取出 ＋ 文本 [n] ＋ #换行符

计次循环尾 ()
调试输出 (取出)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 取出, 文本型<br /> <br /> 文本 ＝ 分割文本 (#常量1, #换行符, )<br /> .计次循环首 (取数组成员数 (文本), n)<br />     .如果真 (寻找文本 (文本 [n], “/”, , 假) ＞ 0)<br />         取出 ＝ 取出 ＋ 文本 [n] ＋ #换行符<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (取出)

lao4jiadian

分割文本.e (3.56 KB, 下载次数: 3)

2024-8-28 10:18 上传

点击文件名下载附件

  

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

变量名	类 型	静态	数组	备 注
临时文本文本	文本型		0
NN	整数型

临时文本文本 ＝ 分割文本 (编辑框1.内容, #换行符, )
计次循环首 (取数组成员数 (临时文本文本), NN)
如果真 (寻找文本 (临时文本文本 [NN], “/”, , 假) ＞ 0)  ' 方法1
编辑框2.加入文本 (临时文本文本 [NN] ＋ #换行符 )

. ' 如果真 (取文本长度 (临时文本文本 [NN]) ＝ 5)  ' 方法2
' 编辑框2.加入文本 (临时文本文本 [NN] ＋ #换行符)

计次循环尾 ()

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 临时文本文本, 文本型, , "0"<br /> .局部变量 NN, 整数型<br /> <br /> 临时文本文本 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> .计次循环首 (取数组成员数 (临时文本文本), NN)<br />     .如果真 (寻找文本 (临时文本文本 [NN], “/”, , 假) ＞ 0)  ' 方法1<br />         编辑框2.加入文本 (临时文本文本 [NN] ＋ #换行符)<br />     .如果真结束<br /> <br />     .' 如果真 (取文本长度 (临时文本文本 [NN]) ＝ 5)  ' 方法2<br />         ' 编辑框2.加入文本 (临时文本文本 [NN] ＋ #换行符)<br />     .如果真结束<br /> <br /> .计次循环尾 ()

774313

调试输出 (子程序1 (#常量_待处理文本, 局_结果数组), 局_结果数组)'常量内容为楼主指定内容
输出内容：
* 3 | 数组:3{“01/D6”,“02/D6”,“03/D8”}

  

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

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

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

子程序名	返回值类型	公开	备 注
子程序1	整数型		返回个数
参数名	类 型	参考	可空	数组	备 注
参_欲处理文本	文本型
参_结果数组	文本型				结果存放

变量名	类 型	静态	数组	备 注
局_待处理文本数组	文本型		0
局_计次	整数型

清除数组 (参_结果数组)
局_待处理文本数组 ＝ 分割文本 (参_欲处理文本, #换行符, )
计次循环首 (取数组成员数 (局_待处理文本数组), 局_计次)
如果真 (寻找文本 (局_待处理文本数组 [局_计次], “-”, , 假) ＝ -1)
加入成员 (参_结果数组, 文本_取出中间文本 (局_待处理文本数组 [局_计次], #左引号, #右引号 ))

计次循环尾 ()
返回 (取数组成员数 (参_结果数组))

.版本 2<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 /> 局_后面文本位置 ＝ 寻找文本 (欲取全文本, 局_后面文本, 局_前面文本位置, 是否不区分大小写)<br /> .如果真 (局_前面文本位置 ＝ -1 或 局_后面文本位置 ＝ -1)<br />     返回 (“”)<br /> .如果真结束<br /> 返回 (取文本中间 (欲取全文本, 局_前面文本位置, 局_后面文本位置 － 局_前面文本位置))<br /> <br /> .子程序 子程序1, 整数型, , 返回个数<br /> .参数 参_欲处理文本, 文本型<br /> .参数 参_结果数组, 文本型, 数组, 结果存放<br /> .局部变量 局_待处理文本数组, 文本型, , "0"<br /> .局部变量 局_计次, 整数型<br /> <br /> 清除数组 (参_结果数组)<br /> 局_待处理文本数组 ＝ 分割文本 (参_欲处理文本, #换行符, )<br /> .计次循环首 (取数组成员数 (局_待处理文本数组), 局_计次)<br />     .如果真 (寻找文本 (局_待处理文本数组 [局_计次], “-”, , 假) ＝ -1)<br />         加入成员 (参_结果数组, 文本_取出中间文本 (局_待处理文本数组 [局_计次], #左引号, #右引号))<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (取数组成员数 (参_结果数组))

[color=#引号red#引号][color=#引号red#引号]

MSSXU

774313 发表于 2024-8-28 16:30
调试输出 (子程序1 (#常量_待处理文本, 局_结果数组), 局_结果数组)'常量内容为楼主指定内容
输出内容：
*  ...

你好，怎样加你