求助大佬 简化代码

zx7420

  

子程序名	返回值类型	公开	备 注
音频顺序拼接

变量名	类 型	静态	数组	备 注
路径1	文本型
路径2	文本型
路径3	文本型
路径4	文本型
路径5	文本型
路径6	文本型
路径7	文本型
路径8	文本型
寻找到的文件数组1	文本型		0
寻找到的文件数组2	文本型		0
寻找到的文件数组3	文本型		0
寻找到的文件数组4	文本型		0
寻找到的文件数组5	文本型		0
寻找到的文件数组6	文本型		0
寻找到的文件数组7	文本型		0
寻找到的文件数组8	文本型		0
音乐1	字节集
音乐2	字节集
音乐3	字节集
音乐4	字节集
音乐5	字节集
音乐6	字节集
音乐7	字节集
音乐8	字节集
总音乐	字节集
a	整数型
b	整数型
c	整数型
d	整数型
e	整数型
f	整数型
g	整数型
h	整数型
次数	整数型

次数 ＝ 超级列表框1.取表项数 ()
判断 (次数 ＜ 2)
返回 ()
判断 (次数 ＝ 2)
路径1 ＝ 超级列表框1.取标题 (0, 2)
文件_枚举 (路径1 ＋ “\”, “*.mp3”, 寻找到的文件数组1, 真, )
路径2 ＝ 超级列表框1.取标题 (1, 2)
文件_枚举 (路径2 ＋ “\”, “*.mp3”, 寻找到的文件数组2, 真, )
计次循环首 (取数组成员数 (寻找到的文件数组1), a)
音乐1 ＝ 读入文件 (寻找到的文件数组1 [a])
计次循环首 (取数组成员数 (寻找到的文件数组2), b)
音乐2 ＝ 读入文件 (寻找到的文件数组2 [b])
总音乐 ＝ 音乐1 ＋ 音乐2
写到文件 (编辑框_保存位置.内容 ＋ “\” ＋ 到文本 (a) ＋ “-” ＋ 到文本 (b) ＋ “.mp3”, 总音乐)
计次循环尾 ()
计次循环尾 ()
判断 (次数 ＝ 3)
路径1 ＝ 超级列表框1.取标题 (0, 2)
文件_枚举 (路径1 ＋ “\”, “*.mp3”, 寻找到的文件数组1, 真, )
路径2 ＝ 超级列表框1.取标题 (1, 2)
文件_枚举 (路径2 ＋ “\”, “*.mp3”, 寻找到的文件数组2, 真, )
路径3 ＝ 超级列表框1.取标题 (2, 2)
文件_枚举 (路径3 ＋ “\”, “*.mp3”, 寻找到的文件数组3, 真, )
计次循环首 (取数组成员数 (寻找到的文件数组1), a)
音乐1 ＝ 读入文件 (寻找到的文件数组1 [a])
计次循环首 (取数组成员数 (寻找到的文件数组2), b)
音乐2 ＝ 读入文件 (寻找到的文件数组2 [b])
计次循环首 (取数组成员数 (寻找到的文件数组3), c)
音乐3 ＝ 读入文件 (寻找到的文件数组3 [c])
总音乐 ＝ 音乐1 ＋ 音乐2 ＋ 音乐3
写到文件 (编辑框_保存位置.内容 ＋ “\” ＋ 到文本 (a) ＋ “-” ＋ 到文本 (b) ＋ “-” ＋ 到文本 (c) ＋ “.mp3”, 总音乐)
计次循环尾 ()
计次循环尾 ()
计次循环尾 ()
判断 (次数 ＝ 4)
路径1 ＝ 超级列表框1.取标题 (0, 2)
文件_枚举 (路径1 ＋ “\”, “*.mp3”, 寻找到的文件数组1, 真, )
路径2 ＝ 超级列表框1.取标题 (1, 2)
文件_枚举 (路径2 ＋ “\”, “*.mp3”, 寻找到的文件数组2, 真, )
路径3 ＝ 超级列表框1.取标题 (2, 2)
文件_枚举 (路径3 ＋ “\”, “*.mp3”, 寻找到的文件数组3, 真, )
路径4 ＝ 超级列表框1.取标题 (3, 2)
文件_枚举 (路径4 ＋ “\”, “*.mp3”, 寻找到的文件数组4, 真, )
计次循环首 (取数组成员数 (寻找到的文件数组1), a)
音乐1 ＝ 读入文件 (寻找到的文件数组1 [a])
计次循环首 (取数组成员数 (寻找到的文件数组2), b)
音乐2 ＝ 读入文件 (寻找到的文件数组2 [b])
计次循环首 (取数组成员数 (寻找到的文件数组3), c)
音乐3 ＝ 读入文件 (寻找到的文件数组3 [c])
计次循环首 (取数组成员数 (寻找到的文件数组4), d)
音乐4 ＝ 读入文件 (寻找到的文件数组4 [d])
总音乐 ＝ 音乐1 ＋ 音乐2 ＋ 音乐3 ＋ 音乐4
写到文件 (编辑框_保存位置.内容 ＋ “\” ＋ 到文本 (a) ＋ “-” ＋ 到文本 (b) ＋ “-” ＋ 到文本 (c) ＋ “-” ＋ 到文本 (d) ＋ “.mp3”, 总音乐)
计次循环尾 ()
计次循环尾 ()
计次循环尾 ()
计次循环尾 ()
判断 (次数 ＝ 5)
路径1 ＝ 超级列表框1.取标题 (0, 2)
文件_枚举 (路径1 ＋ “\”, “*.mp3”, 寻找到的文件数组1, 真, )
路径2 ＝ 超级列表框1.取标题 (1, 2)
文件_枚举 (路径2 ＋ “\”, “*.mp3”, 寻找到的文件数组2, 真, )
路径3 ＝ 超级列表框1.取标题 (2, 2)
文件_枚举 (路径3 ＋ “\”, “*.mp3”, 寻找到的文件数组3, 真, )
路径4 ＝ 超级列表框1.取标题 (3, 2)
文件_枚举 (路径4 ＋ “\”, “*.mp3”, 寻找到的文件数组4, 真, )
路径5 ＝ 超级列表框1.取标题 (4, 2)
文件_枚举 (路径5 ＋ “\”, “*.mp3”, 寻找到的文件数组5, 真, )
计次循环首 (取数组成员数 (寻找到的文件数组1), a)
音乐1 ＝ 读入文件 (寻找到的文件数组1 [a])
计次循环首 (取数组成员数 (寻找到的文件数组2), b)
音乐2 ＝ 读入文件 (寻找到的文件数组2 [b])
计次循环首 (取数组成员数 (寻找到的文件数组3), c)
音乐3 ＝ 读入文件 (寻找到的文件数组3 [c])
计次循环首 (取数组成员数 (寻找到的文件数组4), d)
音乐4 ＝ 读入文件 (寻找到的文件数组4 [d])
计次循环首 (取数组成员数 (寻找到的文件数组5), e)
音乐5 ＝ 读入文件 (寻找到的文件数组5 [e])
总音乐 ＝ 音乐1 ＋ 音乐2 ＋ 音乐3 ＋ 音乐4 ＋ 音乐5
写到文件 (编辑框_保存位置.内容 ＋ “\” ＋ 到文本 (a) ＋ “-” ＋ 到文本 (b) ＋ “-” ＋ 到文本 (c) ＋ “-” ＋ 到文本 (d) ＋ “-” ＋ 到文本 (e) ＋ “.mp3”, 总音乐)
计次循环尾 ()
计次循环尾 ()
计次循环尾 ()
计次循环尾 ()
计次循环尾 ()
判断 (次数 ＝ 6)
路径1 ＝ 超级列表框1.取标题 (0, 2)
文件_枚举 (路径1 ＋ “\”, “*.mp3”, 寻找到的文件数组1, 真, )
路径2 ＝ 超级列表框1.取标题 (1, 2)
文件_枚举 (路径2 ＋ “\”, “*.mp3”, 寻找到的文件数组2, 真, )
路径3 ＝ 超级列表框1.取标题 (2, 2)
文件_枚举 (路径3 ＋ “\”, “*.mp3”, 寻找到的文件数组3, 真, )
路径4 ＝ 超级列表框1.取标题 (3, 2)
文件_枚举 (路径4 ＋ “\”, “*.mp3”, 寻找到的文件数组4, 真, )
路径5 ＝ 超级列表框1.取标题 (4, 2)
文件_枚举 (路径5 ＋ “\”, “*.mp3”, 寻找到的文件数组5, 真, )
路径6 ＝ 超级列表框1.取标题 (5, 2)
文件_枚举 (路径6 ＋ “\”, “*.mp3”, 寻找到的文件数组6, 真, )
计次循环首 (取数组成员数 (寻找到的文件数组1), a)
音乐1 ＝ 读入文件 (寻找到的文件数组1 [a])
计次循环首 (取数组成员数 (寻找到的文件数组2), b)
音乐2 ＝ 读入文件 (寻找到的文件数组2 [b])
计次循环首 (取数组成员数 (寻找到的文件数组3), c)
音乐3 ＝ 读入文件 (寻找到的文件数组3 [c])
计次循环首 (取数组成员数 (寻找到的文件数组4), d)
音乐4 ＝ 读入文件 (寻找到的文件数组4 [d])
计次循环首 (取数组成员数 (寻找到的文件数组5), e)
音乐5 ＝ 读入文件 (寻找到的文件数组5 [e])
计次循环首 (取数组成员数 (寻找到的文件数组6), f)
音乐6 ＝ 读入文件 (寻找到的文件数组6 [f])
总音乐 ＝ 音乐1 ＋ 音乐2 ＋ 音乐3 ＋ 音乐4 ＋ 音乐5 ＋ 音乐6
写到文件 (编辑框_保存位置.内容 ＋ “\” ＋ 到文本 (a) ＋ “-” ＋ 到文本 (b) ＋ “-” ＋ 到文本 (c) ＋ “-” ＋ 到文本 (d) ＋ “-” ＋ 到文本 (e) ＋ “-” ＋ 到文本 (f) ＋ “.mp3”, 总音乐)
计次循环尾 ()
计次循环尾 ()
计次循环尾 ()
计次循环尾 ()
计次循环尾 ()
计次循环尾 ()
判断 (次数 ＝ 7)
路径1 ＝ 超级列表框1.取标题 (0, 2)
文件_枚举 (路径1 ＋ “\”, “*.mp3”, 寻找到的文件数组1, 真, )
路径2 ＝ 超级列表框1.取标题 (1, 2)
文件_枚举 (路径2 ＋ “\”, “*.mp3”, 寻找到的文件数组2, 真, )
路径3 ＝ 超级列表框1.取标题 (2, 2)
文件_枚举 (路径3 ＋ “\”, “*.mp3”, 寻找到的文件数组3, 真, )
路径4 ＝ 超级列表框1.取标题 (3, 2)
文件_枚举 (路径4 ＋ “\”, “*.mp3”, 寻找到的文件数组4, 真, )
路径5 ＝ 超级列表框1.取标题 (4, 2)
文件_枚举 (路径5 ＋ “\”, “*.mp3”, 寻找到的文件数组5, 真, )
路径6 ＝ 超级列表框1.取标题 (5, 2)
文件_枚举 (路径6 ＋ “\”, “*.mp3”, 寻找到的文件数组6, 真, )
路径7 ＝ 超级列表框1.取标题 (6, 2)
文件_枚举 (路径7 ＋ “\”, “*.mp3”, 寻找到的文件数组7, 真, )
计次循环首 (取数组成员数 (寻找到的文件数组1), a)
音乐1 ＝ 读入文件 (寻找到的文件数组1 [a])
计次循环首 (取数组成员数 (寻找到的文件数组2), b)
音乐2 ＝ 读入文件 (寻找到的文件数组2 [b])
计次循环首 (取数组成员数 (寻找到的文件数组3), c)
音乐3 ＝ 读入文件 (寻找到的文件数组3 [c])
计次循环首 (取数组成员数 (寻找到的文件数组4), d)
音乐4 ＝ 读入文件 (寻找到的文件数组4 [d])
计次循环首 (取数组成员数 (寻找到的文件数组5), e)
音乐5 ＝ 读入文件 (寻找到的文件数组5 [e])
计次循环首 (取数组成员数 (寻找到的文件数组6), f)
音乐6 ＝ 读入文件 (寻找到的文件数组6 [f])
计次循环首 (取数组成员数 (寻找到的文件数组7), g)
音乐7 ＝ 读入文件 (寻找到的文件数组7 [g])
总音乐 ＝ 音乐1 ＋ 音乐2 ＋ 音乐3 ＋ 音乐4 ＋ 音乐5 ＋ 音乐6 ＋ 音乐7
写到文件 (编辑框_保存位置.内容 ＋ “\” ＋ 到文本 (a) ＋ “-” ＋ 到文本 (b) ＋ “-” ＋ 到文本 (c) ＋ “-” ＋ 到文本 (d) ＋ “-” ＋ 到文本 (e) ＋ “-” ＋ 到文本 (f) ＋ “-” ＋ 到文本 (g) ＋ “.mp3”, 总音乐)
计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 音频顺序拼接<br /> .局部变量 路径1, 文本型<br /> .局部变量 路径2, 文本型<br /> .局部变量 路径3, 文本型<br /> .局部变量 路径4, 文本型<br /> .局部变量 路径5, 文本型<br /> .局部变量 路径6, 文本型<br /> .局部变量 路径7, 文本型<br /> .局部变量 路径8, 文本型<br /> .局部变量 寻找到的文件数组1, 文本型, , "0"<br /> .局部变量 寻找到的文件数组2, 文本型, , "0"<br /> .局部变量 寻找到的文件数组3, 文本型, , "0"<br /> .局部变量 寻找到的文件数组4, 文本型, , "0"<br /> .局部变量 寻找到的文件数组5, 文本型, , "0"<br /> .局部变量 寻找到的文件数组6, 文本型, , "0"<br /> .局部变量 寻找到的文件数组7, 文本型, , "0"<br /> .局部变量 寻找到的文件数组8, 文本型, , "0"<br /> .局部变量 音乐1, 字节集<br /> .局部变量 音乐2, 字节集<br /> .局部变量 音乐3, 字节集<br /> .局部变量 音乐4, 字节集<br /> .局部变量 音乐5, 字节集<br /> .局部变量 音乐6, 字节集<br /> .局部变量 音乐7, 字节集<br /> .局部变量 音乐8, 字节集<br /> .局部变量 总音乐, 字节集<br /> .局部变量 a, 整数型<br /> .局部变量 b, 整数型<br /> .局部变量 c, 整数型<br /> .局部变量 d, 整数型<br /> .局部变量 e, 整数型<br /> .局部变量 f, 整数型<br /> .局部变量 g, 整数型<br /> .局部变量 h, 整数型<br /> .局部变量 次数, 整数型<br /> <br /> 次数 ＝ 超级列表框1.取表项数 ()<br /> .判断开始 (次数 ＜ 2)<br />     返回 ()<br /> .判断 (次数 ＝ 2)<br />     路径1 ＝ 超级列表框1.取标题 (0, 2)<br />     文件_枚举 (路径1 ＋ “\”, “*.mp3”, 寻找到的文件数组1, 真, )<br />     路径2 ＝ 超级列表框1.取标题 (1, 2)<br />     文件_枚举 (路径2 ＋ “\”, “*.mp3”, 寻找到的文件数组2, 真, )<br />     .计次循环首 (取数组成员数 (寻找到的文件数组1), a)<br />         音乐1 ＝ 读入文件 (寻找到的文件数组1 [a])<br />         .计次循环首 (取数组成员数 (寻找到的文件数组2), b)<br />             音乐2 ＝ 读入文件 (寻找到的文件数组2 <strong>)<br />             总音乐 ＝ 音乐1 ＋ 音乐2<br />             写到文件 (编辑框_保存位置.内容 ＋ “\” ＋ 到文本 (a) ＋ “-” ＋ 到文本 (b) ＋ “.mp3”, 总音乐)<br />         .计次循环尾 ()<br />     .计次循环尾 ()<br /> .判断 (次数 ＝ 3)<br />     路径1 ＝ 超级列表框1.取标题 (0, 2)<br />     文件_枚举 (路径1 ＋ “\”, “*.mp3”, 寻找到的文件数组1, 真, )<br />     路径2 ＝ 超级列表框1.取标题 (1, 2)<br />     文件_枚举 (路径2 ＋ “\”, “*.mp3”, 寻找到的文件数组2, 真, )<br />     路径3 ＝ 超级列表框1.取标题 (2, 2)<br />     文件_枚举 (路径3 ＋ “\”, “*.mp3”, 寻找到的文件数组3, 真, )<br />     .计次循环首 (取数组成员数 (寻找到的文件数组1), a)<br />         音乐1 ＝ 读入文件 (寻找到的文件数组1 [a])<br />         .计次循环首 (取数组成员数 (寻找到的文件数组2), b)<br />             音乐2 ＝ 读入文件 (寻找到的文件数组2 <strong>)<br />             .计次循环首 (取数组成员数 (寻找到的文件数组3), c)<br />                 音乐3 ＝ 读入文件 (寻找到的文件数组3 [c])<br />                 总音乐 ＝ 音乐1 ＋ 音乐2 ＋ 音乐3<br />                 写到文件 (编辑框_保存位置.内容 ＋ “\” ＋ 到文本 (a) ＋ “-” ＋ 到文本 (b) ＋ “-” ＋ 到文本 (c) ＋ “.mp3”, 总音乐)<br />             .计次循环尾 ()<br />         .计次循环尾 ()<br />     .计次循环尾 ()<br /> .判断 (次数 ＝ 4)<br />     路径1 ＝ 超级列表框1.取标题 (0, 2)<br />     文件_枚举 (路径1 ＋ “\”, “*.mp3”, 寻找到的文件数组1, 真, )<br />     路径2 ＝ 超级列表框1.取标题 (1, 2)<br />     文件_枚举 (路径2 ＋ “\”, “*.mp3”, 寻找到的文件数组2, 真, )<br />     路径3 ＝ 超级列表框1.取标题 (2, 2)<br />     文件_枚举 (路径3 ＋ “\”, “*.mp3”, 寻找到的文件数组3, 真, )<br />     路径4 ＝ 超级列表框1.取标题 (3, 2)<br />     文件_枚举 (路径4 ＋ “\”, “*.mp3”, 寻找到的文件数组4, 真, )<br />     .计次循环首 (取数组成员数 (寻找到的文件数组1), a)<br />         音乐1 ＝ 读入文件 (寻找到的文件数组1 [a])<br />         .计次循环首 (取数组成员数 (寻找到的文件数组2), b)<br />             音乐2 ＝ 读入文件 (寻找到的文件数组2 <strong>)<br />             .计次循环首 (取数组成员数 (寻找到的文件数组3), c)<br />                 音乐3 ＝ 读入文件 (寻找到的文件数组3 [c])<br />                 .计次循环首 (取数组成员数 (寻找到的文件数组4), d)<br />                     音乐4 ＝ 读入文件 (寻找到的文件数组4 [d])<br />                     总音乐 ＝ 音乐1 ＋ 音乐2 ＋ 音乐3 ＋ 音乐4<br />                     写到文件 (编辑框_保存位置.内容 ＋ “\” ＋ 到文本 (a) ＋ “-” ＋ 到文本 (b) ＋ “-” ＋ 到文本 (c) ＋ “-” ＋ 到文本 (d) ＋ “.mp3”, 总音乐)<br />                 .计次循环尾 ()<br />             .计次循环尾 ()<br />         .计次循环尾 ()<br />     .计次循环尾 ()<br /> .判断 (次数 ＝ 5)<br />     路径1 ＝ 超级列表框1.取标题 (0, 2)<br />     文件_枚举 (路径1 ＋ “\”, “*.mp3”, 寻找到的文件数组1, 真, )<br />     路径2 ＝ 超级列表框1.取标题 (1, 2)<br />     文件_枚举 (路径2 ＋ “\”, “*.mp3”, 寻找到的文件数组2, 真, )<br />     路径3 ＝ 超级列表框1.取标题 (2, 2)<br />     文件_枚举 (路径3 ＋ “\”, “*.mp3”, 寻找到的文件数组3, 真, )<br />     路径4 ＝ 超级列表框1.取标题 (3, 2)<br />     文件_枚举 (路径4 ＋ “\”, “*.mp3”, 寻找到的文件数组4, 真, )<br />     路径5 ＝ 超级列表框1.取标题 (4, 2)<br />     文件_枚举 (路径5 ＋ “\”, “*.mp3”, 寻找到的文件数组5, 真, )<br />     .计次循环首 (取数组成员数 (寻找到的文件数组1), a)<br />         音乐1 ＝ 读入文件 (寻找到的文件数组1 [a])<br />         .计次循环首 (取数组成员数 (寻找到的文件数组2), b)<br />             音乐2 ＝ 读入文件 (寻找到的文件数组2 <strong>)<br />             .计次循环首 (取数组成员数 (寻找到的文件数组3), c)<br />                 音乐3 ＝ 读入文件 (寻找到的文件数组3 [c])<br />                 .计次循环首 (取数组成员数 (寻找到的文件数组4), d)<br />                     音乐4 ＝ 读入文件 (寻找到的文件数组4 [d])<br />                     .计次循环首 (取数组成员数 (寻找到的文件数组5), e)<br />                         音乐5 ＝ 读入文件 (寻找到的文件数组5 [e])<br />                         总音乐 ＝ 音乐1 ＋ 音乐2 ＋ 音乐3 ＋ 音乐4 ＋ 音乐5<br />                         写到文件 (编辑框_保存位置.内容 ＋ “\” ＋ 到文本 (a) ＋ “-” ＋ 到文本 (b) ＋ “-” ＋ 到文本 (c) ＋ “-” ＋ 到文本 (d) ＋ “-” ＋ 到文本 (e) ＋ “.mp3”, 总音乐)<br />                     .计次循环尾 ()<br />                 .计次循环尾 ()<br />             .计次循环尾 ()<br />         .计次循环尾 ()<br />     .计次循环尾 ()<br /> .判断 (次数 ＝ 6)<br />     路径1 ＝ 超级列表框1.取标题 (0, 2)<br />     文件_枚举 (路径1 ＋ “\”, “*.mp3”, 寻找到的文件数组1, 真, )<br />     路径2 ＝ 超级列表框1.取标题 (1, 2)<br />     文件_枚举 (路径2 ＋ “\”, “*.mp3”, 寻找到的文件数组2, 真, )<br />     路径3 ＝ 超级列表框1.取标题 (2, 2)<br />     文件_枚举 (路径3 ＋ “\”, “*.mp3”, 寻找到的文件数组3, 真, )<br />     路径4 ＝ 超级列表框1.取标题 (3, 2)<br />     文件_枚举 (路径4 ＋ “\”, “*.mp3”, 寻找到的文件数组4, 真, )<br />     路径5 ＝ 超级列表框1.取标题 (4, 2)<br />     文件_枚举 (路径5 ＋ “\”, “*.mp3”, 寻找到的文件数组5, 真, )<br />     路径6 ＝ 超级列表框1.取标题 (5, 2)<br />     文件_枚举 (路径6 ＋ “\”, “*.mp3”, 寻找到的文件数组6, 真, )<br />     .计次循环首 (取数组成员数 (寻找到的文件数组1), a)<br />         音乐1 ＝ 读入文件 (寻找到的文件数组1 [a])<br />         .计次循环首 (取数组成员数 (寻找到的文件数组2), b)<br />             音乐2 ＝ 读入文件 (寻找到的文件数组2 <strong>)<br />             .计次循环首 (取数组成员数 (寻找到的文件数组3), c)<br />                 音乐3 ＝ 读入文件 (寻找到的文件数组3 [c])<br />                 .计次循环首 (取数组成员数 (寻找到的文件数组4), d)<br />                     音乐4 ＝ 读入文件 (寻找到的文件数组4 [d])<br />                     .计次循环首 (取数组成员数 (寻找到的文件数组5), e)<br />                         音乐5 ＝ 读入文件 (寻找到的文件数组5 [e])<br />                         .计次循环首 (取数组成员数 (寻找到的文件数组6), f)<br />                             音乐6 ＝ 读入文件 (寻找到的文件数组6 [f])<br />                             总音乐 ＝ 音乐1 ＋ 音乐2 ＋ 音乐3 ＋ 音乐4 ＋ 音乐5 ＋ 音乐6<br />                             写到文件 (编辑框_保存位置.内容 ＋ “\” ＋ 到文本 (a) ＋ “-” ＋ 到文本 (b) ＋ “-” ＋ 到文本 (c) ＋ “-” ＋ 到文本 (d) ＋ “-” ＋ 到文本 (e) ＋ “-” ＋ 到文本 (f) ＋ “.mp3”, 总音乐)<br />                         .计次循环尾 ()<br />                     .计次循环尾 ()<br />                 .计次循环尾 ()<br />             .计次循环尾 ()<br />         .计次循环尾 ()<br />     .计次循环尾 ()<br /> .判断 (次数 ＝ 7)<br />     路径1 ＝ 超级列表框1.取标题 (0, 2)<br />     文件_枚举 (路径1 ＋ “\”, “*.mp3”, 寻找到的文件数组1, 真, )<br />     路径2 ＝ 超级列表框1.取标题 (1, 2)<br />     文件_枚举 (路径2 ＋ “\”, “*.mp3”, 寻找到的文件数组2, 真, )<br />     路径3 ＝ 超级列表框1.取标题 (2, 2)<br />     文件_枚举 (路径3 ＋ “\”, “*.mp3”, 寻找到的文件数组3, 真, )<br />     路径4 ＝ 超级列表框1.取标题 (3, 2)<br />     文件_枚举 (路径4 ＋ “\”, “*.mp3”, 寻找到的文件数组4, 真, )<br />     路径5 ＝ 超级列表框1.取标题 (4, 2)<br />     文件_枚举 (路径5 ＋ “\”, “*.mp3”, 寻找到的文件数组5, 真, )<br />     路径6 ＝ 超级列表框1.取标题 (5, 2)<br />     文件_枚举 (路径6 ＋ “\”, “*.mp3”, 寻找到的文件数组6, 真, )<br />     路径7 ＝ 超级列表框1.取标题 (6, 2)<br />     文件_枚举 (路径7 ＋ “\”, “*.mp3”, 寻找到的文件数组7, 真, )<br />     .计次循环首 (取数组成员数 (寻找到的文件数组1), a)<br />         音乐1 ＝ 读入文件 (寻找到的文件数组1 [a])<br />         .计次循环首 (取数组成员数 (寻找到的文件数组2), b)<br />             音乐2 ＝ 读入文件 (寻找到的文件数组2 <strong>)<br />             .计次循环首 (取数组成员数 (寻找到的文件数组3), c)<br />                 音乐3 ＝ 读入文件 (寻找到的文件数组3 [c])<br />                 .计次循环首 (取数组成员数 (寻找到的文件数组4), d)<br />                     音乐4 ＝ 读入文件 (寻找到的文件数组4 [d])<br />                     .计次循环首 (取数组成员数 (寻找到的文件数组5), e)<br />                         音乐5 ＝ 读入文件 (寻找到的文件数组5 [e])<br />                         .计次循环首 (取数组成员数 (寻找到的文件数组6), f)<br />                             音乐6 ＝ 读入文件 (寻找到的文件数组6 [f])<br />                             .计次循环首 (取数组成员数 (寻找到的文件数组7), g)<br />                                 音乐7 ＝ 读入文件 (寻找到的文件数组7 [g])<br />                                 总音乐 ＝ 音乐1 ＋ 音乐2 ＋ 音乐3 ＋ 音乐4 ＋ 音乐5 ＋ 音乐6 ＋ 音乐7<br />                                 写到文件 (编辑框_保存位置.内容 ＋ “\” ＋ 到文本 (a) ＋ “-” ＋ 到文本 (b) ＋ “-” ＋ 到文本 (c) ＋ “-” ＋ 到文本 (d) ＋ “-” ＋ 到文本 (e) ＋ “-” ＋ 到文本 (f) ＋ “-” ＋ 到文本 (g) ＋ “.mp3”, 总音乐)<br />                             .计次循环尾 ()<br />                  

retn

  

子程序名	返回值类型	公开	备 注
音频顺序拼接

变量名	类 型	静态	数组	备 注
路径数组	文本型,
寻找到的文件数组	文本型,
音乐字节集数组	字节集,
总音乐	字节集
次数	整数型
i	整数型
j	整数型
当前路径	文本型
文件名组合	文本型

次数 ＝ 超级列表框1.取表项数 ()
如果 (次数 ＜ 2)
返回 ()
计次循环首 (次数, i)
当前路径 ＝ 超级列表框1.取标题 (i - 1, 2)
文件_枚举 (当前路径 ＋ “\”, “*.mp3”, 寻找到的文件数组, 真, )
重定义数组 (路径数组, 假, 取数组成员数 (路径数组) + 取数组成员数 (寻找到的文件数组))
加入成员 (路径数组, 寻找到的文件数组)
计次循环尾 ()
计次循环首 (取数组成员数 (路径数组[1]), i)
音乐字节集数组 [i] ＝ 读入文件 (路径数组 [1] [i])
计次循环首 (取数组成员数 (路径数组[2]), j)
音乐字节集数组 [i + j] ＝ 读入文件 (路径数组 [2] [j])
如果 (取数组成员数 (路径数组) ＞ 2)
计次循环首 (取数组成员数 (路径数组[3]), )
音乐字节集数组 [i + j + ] ＝ 读入文件 (路径数组 [3] [])
如果 (取数组成员数 (路径数组) ＞ 3)
计次循环首 (取数组成员数 (路径Array[4]), )
如果 (取数组成员数 (路径数组) ＞ 4)
计次循环首 (取数组成员数 (路径Array[5]), )
如果 (取数组成员数 (路径_array) ＞ 5)
计次循环首 (取数组成员数 (path_array[6]), )
如果 (取数组成员数 (path_array) ＞ 6)
计次循环首 (取数组成员数 (path_array[7]), )
音乐字节集数组 [i + j +  +  +  +  +  + ] ＝ 读入文件 (path_array [7] [])
计次循环尾 ()
总音乐 ＝ 音乐字节集数组 [1] + 音乐字节集数组 [2] + 音乐字节集数组 [3] + 音乐字节集数组 [4] + 音乐字节集数组 [5] + 音乐字节集数组 [6]
文件名组合 ＝ 到文本 (i) + “-” + 到文本 (j) + “-” + 到文本 () + “-” + 到文本 () + “-” + 到文本 () + “-” + 到文本 ()
写到文件 (编辑框_保存位置.内容 ＋ “\” ＋ 文件名组合 ＋ “.mp3”, 总音乐)
计次循环尾 ()
总音乐 ＝ 音乐字节集数组 [1] + 音乐字节集数组 [2] + 音乐字节集数组 [3] + 音乐字节集数组 [4] + 音乐字节集数组 [5]
文件名组合 ＝ 到文本 (i) + “-” + 到文本 (j) + “-” + 到文本 () + “-” + 到文本 () + “-” + 到文本 ()
写到文件 (编辑框_保存位置.内容 ＋ “\” ＋ 文件名组合 ＋ “.mp3”, 总音乐)
计次循环尾 ()
总音乐 ＝ 音乐字节集数组 [1] + 音乐字节集数组 [2] + 音乐字节集数组 [3] + 音乐字节集数组 [4]
文件名组合 ＝ 到文本 (i) + “-” + 到文本 (j) + “-” + 到文本 () + “-” + 到文本 ()
写到文件 (编辑框_保存位置.内容 ＋ “\” ＋ 文件名组合 ＋ “.mp3”, 总音乐)
计次循环尾 ()
总音乐 ＝ 音乐字节集数组 [1] + 音乐字节集数组 [2] + 音乐字节集数组 [3]
文件名组合 ＝ 到文本 (i) + “-” + 到文本 (j) + “-” + 到文本 ()
写到文件 (编辑框_保存位置.内容 ＋ “\” ＋ 文件名组合 ＋ “.mp3”, 总音乐)
计次循环尾 ()
总音乐 ＝ 音乐字节集数组 [1] + 音乐字节集数组 [2]
文件名组合 ＝ 到文本 (i) + “-” + 到文本 (j)
写到文件 (编辑框_保存位置.内容 ＋ “\” ＋ 文件名组合 ＋ “.mp3”, 总音乐)
计次循环尾 ()
计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 音频顺序拼接<br /> .局部变量 路径数组, 文本型,, "0"<br /> .局部变量 寻找到的文件数组, 文本型,, "0"<br /> .局部变量 音乐字节集数组, 字节集,, "0"<br /> .局部变量 总音乐, 字节集<br /> .局部变量 次数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 当前路径, 文本型<br /> .局部变量 文件名组合, 文本型<br /> <br /> 次数 ＝ 超级列表框1.取表项数 ()<br /> .如果 (次数 ＜ 2)<br />     返回 ()<br /> .否则<br />    .计次循环首 (次数, i)<br />         当前路径 ＝ 超级列表框1.取标题 (i - 1, 2)<br />         文件_枚举 (当前路径 ＋ “\”, “*.mp3”, 寻找到的文件数组, 真, )<br />         重定义数组 (路径数组, 假, 取数组成员数 (路径数组) + 取数组成员数 (寻找到的文件数组))<br />         加入成员 (路径数组, 寻找到的文件数组)<br />    .计次循环尾 ()<br />    .计次循环首 (取数组成员数 (路径数组[1]), i)<br />         音乐字节集数组 <i> ＝ 读入文件 (路径数组 [1] <i>)<br />        .计次循环首 (取数组成员数 (路径数组[2]), j)<br />             音乐字节集数组 [i + j] ＝ 读入文件 (路径数组 [2] [j])<br />            .如果 (取数组成员数 (路径数组) ＞ 2)<br />                .计次循环首 (取数组成员数 (路径数组[3]), )<br />                     音乐字节集数组 [i + j + ] ＝ 读入文件 (路径数组 [3] [])<br />                    .如果 (取数组成员数 (路径数组) ＞ 3)<br />                        .计次循环首 (取数组成员数 (路径Array[4]), )<br />                            .如果 (取数组成员数 (路径数组) ＞ 4)<br />                                .计次循环首 (取数组成员数 (路径Array[5]), )<br />                                    .如果 (取数组成员数 (路径_array) ＞ 5)<br />                                        .计次循环首 (取数组成员数 (path_array[6]), )<br />                                            .如果 (取数组成员数 (path_array) ＞ 6)<br />                                                .计次循环首 (取数组成员数 (path_array[7]), )<br />                                                     音乐字节集数组 [i + j +  +  +  +  +  + ] ＝ 读入文件 (path_array [7] [])<br />                                                .计次循环尾 ()<br />                                            .否则<br />                                                 总音乐 ＝ 音乐字节集数组 [1] + 音乐字节集数组 [2] + 音乐字节集数组 [3] + 音乐字节集数组 [4] + 音乐字节集数组 [5] + 音乐字节集数组 [6]<br />                                                 文件名组合 ＝ 到文本 (i) + “-” + 到文本 (j) + “-” + 到文本 () + “-” + 到文本 () + “-” + 到文本 () + “-” + 到文本 ()<br />                                                 写到文件 (编辑框_保存位置.内容 ＋ “\” ＋ 文件名组合 ＋ “.mp3”, 总音乐)<br />                                        .计次循环尾 ()<br />                                    .否则<br />                                         总音乐 ＝ 音乐字节集数组 [1] + 音乐字节集数组 [2] + 音乐字节集数组 [3] + 音乐字节集数组 [4] + 音乐字节集数组 [5]<br />                                         文件名组合 ＝ 到文本 (i) + “-” + 到文本 (j) + “-” + 到文本 () + “-” + 到文本 () + “-” + 到文本 ()<br />                                         写到文件 (编辑框_保存位置.内容 ＋ “\” ＋ 文件名组合 ＋ “.mp3”, 总音乐)<br />                                .计次循环尾 ()<br />                            .否则<br />                                 总音乐 ＝ 音乐字节集数组 [1] + 音乐字节集数组 [2] + 音乐字节集数组 [3] + 音乐字节集数组 [4]<br />                                 文件名组合 ＝ 到文本 (i) + “-” + 到文本 (j) + “-” + 到文本 () + “-” + 到文本 ()<br />                                 写到文件 (编辑框_保存位置.内容 ＋ “\” ＋ 文件名组合 ＋ “.mp3”, 总音乐)<br />                        .计次循环尾 ()<br />                    .否则<br />                         总音乐 ＝ 音乐字节集数组 [1] + 音乐字节集数组 [2] + 音乐字节集数组 [3]<br />                         文件名组合 ＝ 到文本 (i) + “-” + 到文本 (j) + “-” + 到文本 ()<br />                         写到文件 (编辑框_保存位置.内容 ＋ “\” ＋ 文件名组合 ＋ “.mp3”, 总音乐)<br />                .计次循环尾 ()<br />            .否则<br />                 总音乐 ＝ 音乐字节集数组 [1] + 音乐字节集数组 [2]<br />                 文件名组合 ＝ 到文本 (i) + “-” + 到文本 (j)<br />                 写到文件 (编辑框_保存位置.内容 ＋ “\” ＋ 文件名组合 ＋ “.mp3”, 总音乐)<br />        .计次循环尾 ()<br />    .计次循环尾 ()<br /> .如果结束

这个怎么样

LEOONL

你还是直接说你想干嘛吧

zx7420

我这里 次数 ＝ 超级列表框1.取表项数 ()  是取的   我只写到8个次数  如果有更多怎么办？求大佬支援~~~~

chenboss

能跑起来就行了，无从下手

汉服阁

　精币2枚 ，您帐号现有精币0枚

[ 精易论坛 首页 ]

b0y

- -没看懂  你这枚举几次结果不是都一样吗   然后把他们按次数追加到一个文件里面？

qiaohui

.版本 2
.支持库 iext

.子程序 音频顺序拼接
.局部变量 路径数组, 文本型,, "0"
.局部变量 寻找到的文件数组, 文本型,, "0"
.局部变量 音乐数组, 字节集,, "0"
.局部变量 总音乐, 字节集
.局部变量 次数, 整数型
.局部变量 i, 整数型
.局部变量 j, 整数型

次数 = 超级列表框1.取表项数()
.如果 (次数 < 2)
    返回 ()
.否则

    ' 先获取所有路径
    重定义 (路径数组, 假, 次数)
    重定义 (寻找到的文件数组, 假, 次数)
    重定义 (音乐数组, 假, 次数)

    对于 i = 0 到 次数 - 1
        路径数组[i] = 超级列表框1.取标题(i, 2)
        文件_枚举(路径数组[i] + “\”, “*.mp3”, 寻找到的文件数组[i], 真, )
    下一个

    ' 循环处理每个路径下找到的文件并拼接
    对于 i = 0 到 取数组成员数(寻找到的文件数组[0]) - 1
        音乐数组[0] = 读入文件(寻找到的文件数组[0][i])

        ' 循环拼接其他路径下的文件
        对于 j = 1 到 次数 - 1
            音乐数组[j] = 读入文件(寻找到的文件数组[j][取随机数(0, 取数组成员数(寻找到的文件数组[j]))])
            总音乐 = 总音乐 + 音乐数组[j]
        下一个

        ' 生成文件名并保存拼接后的文件
        写到文件(编辑框_保存位置.内容 + “\” + 到文本(i) + “-拼接.mp3”, 总音乐)
        总音乐 = {}
    下一个

.如果结束

LEOONL

这个方法应该能参考下https://bbs.125.la/forum.php?mod ... =%E5%B5%8C%E5%A5%97

御天软件

  

子程序名	返回值类型	公开	备 注
音频顺序拼接

变量名	类 型	静态	数组	备 注
路径数组	文本型		0
文件数组集合	文本型		0
当前音频	字节集
总音频	字节集
路径数	整数型
当前路径	文本型
当前文件数组	文本型		0
当前索引	整数型
保存路径	文本型
输出文件名	文本型
文件名集合	文本型

保存路径 ＝ 编辑框_保存位置.内容
路径数 ＝ 超级列表框1.取表项数 ()
判断 (路径数 ＜ 2)
信息框 ("至少需要 2 个路径用于拼接音频文件！", )
返回 ()



' 获取所有路径和对应文件列表
计次循环首 (路径数, 当前索引)
当前路径 ＝ 超级列表框1.取标题 (当前索引 - 1, 2)
加入成员 (路径数组, 当前路径)
文件_枚举 (当前路径 ＋ “\”, “*.mp3”, 当前文件数组, 真, )
加入成员 (文件数组集合, 当前文件数组)
计次循环尾 ()
' 动态拼接音频
数组_初始化 (文件名集合, )
总音频 ＝ “”
计次循环首 (数组_取成员数 (文件数组集合), 当前索引)
当前文件数组 ＝ 文件数组集合 [当前索引]
计次循环首 (数组_取成员数 (当前文件数组), 当前索引)
当前音频 ＝ 文件_读入 (当前文件数组 [当前索引])
总音频 ＝ 总音频 ＋ 当前音频
计次循环尾 ()
加入成员 (文件名集合, 到文本 (当前索引))
计次循环尾 ()
' 保存拼接结果
输出文件名 ＝ 保存路径 ＋ “\” ＋ 数组_到文本 (文件名集合, “-”) ＋ “.mp3”
文件_写出 (输出文件名, 总音频)
信息框 ("音频拼接完成，已保存到：" ＋ 输出文件名, )

.版本 2<br /> <br /> .子程序 音频顺序拼接<br /> .局部变量 路径数组, 文本型, , "0"<br /> .局部变量 文件数组集合, 文本型, , "0"<br /> .局部变量 当前音频, 字节集<br /> .局部变量 总音频, 字节集<br /> .局部变量 路径数, 整数型<br /> .局部变量 当前路径, 文本型<br /> .局部变量 当前文件数组, 文本型, , "0"<br /> .局部变量 当前索引, 整数型<br /> .局部变量 保存路径, 文本型<br /> .局部变量 输出文件名, 文本型<br /> .局部变量 文件名集合, 文本型<br /> <br /> 保存路径 ＝ 编辑框_保存位置.内容<br /> 路径数 ＝ 超级列表框1.取表项数 ()<br /> <br /> .判断开始 (路径数 ＜ 2)<br />     信息框 ("至少需要 2 个路径用于拼接音频文件！", )<br />     返回 ()<br /> .默认<br /> <br /> .判断结束<br /> <br /> ' 获取所有路径和对应文件列表<br /> .计次循环首 (路径数, 当前索引)<br />     当前路径 ＝ 超级列表框1.取标题 (当前索引 - 1, 2)<br />     加入成员 (路径数组, 当前路径)<br />     文件_枚举 (当前路径 ＋ “\”, “*.mp3”, 当前文件数组, 真, )<br />     加入成员 (文件数组集合, 当前文件数组)<br /> .计次循环尾 ()<br /> <br /> ' 动态拼接音频<br /> 数组_初始化 (文件名集合, )<br /> 总音频 ＝ “”<br /> <br /> .计次循环首 (数组_取成员数 (文件数组集合), 当前索引)<br />     当前文件数组 ＝ 文件数组集合 [当前索引]<br />     .计次循环首 (数组_取成员数 (当前文件数组), 当前索引)<br />         当前音频 ＝ 文件_读入 (当前文件数组 [当前索引])<br />         总音频 ＝ 总音频 ＋ 当前音频<br />     .计次循环尾 ()<br />     加入成员 (文件名集合, 到文本 (当前索引))<br /> .计次循环尾 ()<br /> <br /> ' 保存拼接结果<br /> 输出文件名 ＝ 保存路径 ＋ “\” ＋ 数组_到文本 (文件名集合, “-”) ＋ “.mp3”<br /> 文件_写出 (输出文件名, 总音频)<br /> 信息框 ("音频拼接完成，已保存到：" ＋ 输出文件名, )