精易论坛

标题: 求助大佬 简化代码 [打印本页]

作者: zx7420    时间: 6 小时前
标题: 求助大佬 简化代码
  
子程序名返回值类型公开备 注
音频顺序拼接  
变量名类 型静态数组备 注
路径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扩展界面支持库一


作者: retn    时间: 6 小时前
  
子程序名返回值类型公开备 注
音频顺序拼接  
变量名类 型静态数组备 注
路径数组文本型, 
寻找到的文件数组文本型, 
音乐字节集数组字节集, 
总音乐字节集 
次数整数型 
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扩展界面支持库一





这个怎么样

作者: LEOONL    时间: 6 小时前
你还是直接说你想干嘛吧
作者: zx7420    时间: 6 小时前
我这里 次数 = 超级列表框1.取表项数 ()  是取的   我只写到8个次数  如果有更多怎么办?求大佬支援~~~~
作者: chenboss    时间: 6 小时前
能跑起来就行了,无从下手
作者: 汉服阁    时间: 6 小时前
 精币2枚 ,您帐号现有精币0枚

[ 精易论坛 首页 ]
作者: b0y    时间: 6 小时前
- -没看懂  你这枚举几次结果不是都一样吗   然后把他们按次数追加到一个文件里面?
作者: qiaohui    时间: 5 小时前
.版本 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    时间: 5 小时前
这个方法应该能参考下https://bbs.125.la/forum.php?mod ... =%E5%B5%8C%E5%A5%97
作者: 御天软件    时间: 5 小时前
  
子程序名返回值类型公开备 注
音频顺序拼接  
变量名类 型静态数组备 注
路径数组文本型0
文件数组集合文本型0
当前音频字节集 
总音频字节集 
路径数整数型 
当前路径文本型 
当前文件数组文本型0
当前索引整数型 
保存路径文本型 
输出文件名文本型 
文件名集合文本型 
保存路径 = 编辑框_保存位置.内容
路径数 = 超级列表框1.取表项数 ()
判断 (路径数 < 2)
信息框 ("至少需要 2 个路径用于拼接音频文件!", )
返回 ()



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






欢迎光临 精易论坛 (https://bbs.125.la/) Powered by Discuz! X3.4