求助如何获取文件夹内 mp4视频文件的文件名称 - 精易论坛

子程序名	返回值类型	公开	备注
_启动子程序	整数型		本子程序在程序启动后最先执行

例子 (“这里填你的文件夹路径”)
返回 (0) ' 可以根据您的需要返回任意数值

文件_枚举 (文件夹路径, “*.mp4”, 视频路径组, 假, , ) ' 要完整路径就填真只要文件名就填假

计次循环首 (取数组成员数 (视频路径组), i)

调试输出 (视频路径组 [i])

计次循环尾 ()

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

变量名	类型	静态	数组	备注
返回文件名	文本型		0

取文件里MP4文件名到数字为止 (“c:\文件夹”, 返回文件名)
调试输出 (返回文件名)

清除数组 (返回文件名数组)
文件名＝寻找文件 (文件夹＋ “*.mp4”, )

判断循环首 (文件名 ≠ “”)

计次循环首 (取文本长度 (文件名), i)

代码＝取代码 (文件名, i)

如果真 (代码 ≥ 48 且代码 ≤ 57) ' 0-9

文件名＝取文本左边 (文件名, i)

跳出循环 ()

如果真 (代码＝ 46) ' 小数点

文件名＝取文本左边 (文件名, i)

跳出循环 ()

计次循环尾 ()

加入成员 (返回文件名数组, 文件名)

文件名＝寻找文件 (, )

判断循环尾 ()
返回 (取数组成员数 (返回文件名数组))

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

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

文件_枚举 (“E:\【视频类】\杂乱视频”, “*.mp4”, 视频组, , , )

计次循环首 (取数组成员数 (视频组), i)

视频名＝文本_取出文本中汉字 (文件_取文件名 (视频组 [i], ))

编辑框1.加入文本 (视频名＋ #换行符 )

计次循环尾 ()

文件_枚举 (“目录自己写”, “.mp4”, 文件数组, 真, )

计次循环首 (取数组成员数 (文件数组), i)

调试输出 (文件数组 [i])

计次循环尾 ()

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