拖放文件插入超级列表框问题

易小妞

目前实现了拖放多个视频文件插入到多行中，
如果拖放的文件是 一个视频文件和一个图片文件，我想插入在一行中，我下面的代码应该怎么修改才能实现

  

变量名	类 型	静态	数组	备 注
计次	整数型
当前文件	文本型
当前文件名	文本型
文件后缀	文本型
文件路径	文本型

文件组 ＝ 分割文本 (接收到的文件路径, #换行符, )
如果真 (取数组成员数 (文件组) ＝ 0)
返回 ()
清空表项数据 ()
计次循环首 (取数组成员数 (文件组), 计次)
当前文件 ＝ 文件组 [计次]
如果真 (当前文件 ＝ “”)
到循环尾 ()

如果真 (超级列表框1.取当前状态图片 (计次 － 1) ＝ 1)
文件后缀 ＝ 到小写 (取文本右边 (当前文件, 取文本长度 (当前文件) － 倒找文本 (当前文件, “.”, , 假)))
如果真 (文件后缀 ＝ “mp4” 或 文件后缀 ＝ “avi” 或 文件后缀 ＝ “rmvb” 或 文件后缀 ＝ “wmv” 或 文件后缀 ＝ “mov” 或 文件后缀 ＝ “flv” 或 文件后缀 ＝ “mkv” 或 文件后缀 ＝ “3gp” 或 文件后缀 ＝ “ts”)
文件路径 ＝ 文本_取左边 (当前文件, “\”, -1, )
当前文件名 ＝ 子文本替换 (当前文件, 文件路径 ＋ “\”, , , 1, 真)
超级列表框1.置标题 (计次 － 1, 3, 文件路径)
超级列表框1.置标题 (计次 － 1, 4, 当前文件名)  ' 视频文件

如果真 (文件后缀 ＝ “jpg” 或 文件后缀 ＝ “jpeg” 或 文件后缀 ＝ “png” 或 文件后缀 ＝ “gif” 或 文件后缀 ＝ “bmp” 或 文件后缀 ＝ “tiff” 或 文件后缀 ＝ “webp” 或 文件后缀 ＝ “ico”)
文件路径 ＝ 文本_取左边 (当前文件, “\”, -1, )
当前文件名 ＝ 子文本替换 (当前文件, 文件路径 ＋ “\”, , , 1, 真)
超级列表框1.置标题 (计次 － 1, 3, 文件路径)
超级列表框1.置标题 (计次 － 1, 5, 当前文件名)  ' 视频封面文件


计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .局部变量 计次, 整数型<br /> .局部变量 当前文件, 文本型<br /> .局部变量 当前文件名, 文本型<br /> .局部变量 文件后缀, 文本型<br /> .局部变量 文件路径, 文本型<br /> <br /> 文件组 ＝ 分割文本 (接收到的文件路径, #换行符, )<br /> .如果真 (取数组成员数 (文件组) ＝ 0)<br />     返回 ()<br /> .如果真结束<br /> 清空表项数据 ()<br /> .计次循环首 (取数组成员数 (文件组), 计次)<br />     当前文件 ＝ 文件组 [计次]<br />     .如果真 (当前文件 ＝ “”)<br />         到循环尾 ()<br />     .如果真结束<br /> <br />     .如果真 (超级列表框1.取当前状态图片 (计次 － 1) ＝ 1)<br />         文件后缀 ＝ 到小写 (取文本右边 (当前文件, 取文本长度 (当前文件) － 倒找文本 (当前文件, “.”, , 假)))<br />         .如果真 (文件后缀 ＝ “mp4” 或 文件后缀 ＝ “avi” 或 文件后缀 ＝ “rmvb” 或 文件后缀 ＝ “wmv” 或 文件后缀 ＝ “mov” 或 文件后缀 ＝ “flv” 或 文件后缀 ＝ “mkv” 或 文件后缀 ＝ “3gp” 或 文件后缀 ＝ “ts”)<br />             文件路径 ＝ 文本_取左边 (当前文件, “\”, -1, )<br />             当前文件名 ＝ 子文本替换 (当前文件, 文件路径 ＋ “\”, , , 1, 真)<br />             超级列表框1.置标题 (计次 － 1, 3, 文件路径)<br />             超级列表框1.置标题 (计次 － 1, 4, 当前文件名)  ' 视频文件<br /> <br />         .如果真结束<br /> <br />         .如果真 (文件后缀 ＝ “jpg” 或 文件后缀 ＝ “jpeg” 或 文件后缀 ＝ “png” 或 文件后缀 ＝ “gif” 或 文件后缀 ＝ “bmp” 或 文件后缀 ＝ “tiff” 或 文件后缀 ＝ “webp” 或 文件后缀 ＝ “ico”)<br />             文件路径 ＝ 文本_取左边 (当前文件, “\”, -1, )<br />             当前文件名 ＝ 子文本替换 (当前文件, 文件路径 ＋ “\”, , , 1, 真)<br />             超级列表框1.置标题 (计次 － 1, 3, 文件路径)<br />             超级列表框1.置标题 (计次 － 1, 5, 当前文件名)  ' 视频封面文件<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()

真冬

如何知道A视频对应的是哪个封面图片？依据什么？

易小妞

真冬 发表于 2026-6-19 04:24
如何知道A视频对应的是哪个封面图片？依据什么？

不用区分
因为我只有这几种情况：
1个视频 + 1个图片      插入到一行中（不同的列中）
多个视频文件              插入到多行中
1个视频                      插入到一行中
1个图片                      插入到一行中

目前就是第一种情况没有实现

RainCharm

1个视频 + 1个图片      插入到一行中（不同的列中）两个都是文件路径还是一个路径，一个图片？

RainCharm

这样子？

右手胜过左手

视频、图片； 各自插入都记录表项，但是这个最多只能同时存在：一个视频、一张图片。存在多种会覆盖。常规做法做一个结构体，先筛选类型加入结构体数组。最后遍历结构体数组插入列表框。你现在这个是错开的，你当前计次跟下一次的计次都不是一个索引了，在哪个计次索引符合条件都是一个未知数。

真冬

  

子程序名	返回值类型	公开	备 注
_拖放对象1_得到文件
参数名	类 型	参考	可空	数组	备 注
接收到的文件路径	文本型

变量名	类 型	静态	数组	备 注
文件后缀	文本型
文件后缀2	文本型
文件路径	文本型
当前文件名	文本型
当前文件名2	文本型
jj	文本型
zz	正则表达式类
zz图片	正则表达式类
zz视频	正则表达式类
计次	整数型

文件组 ＝ 分割文本 (接收到的文件路径, #换行符, )
如果真 (取数组成员数 (文件组) ＝ 0)
返回 ()
清空表项数据 ()
判断循环首 (jj ≠ 接收到的文件路径)
jj ＝ 接收到的文件路径
zz.创建 (“^(((?:[^\\\r\n]+\\)+)(.+?)\.)([^.\r\n]+)[\r\n]*([\s\S]*?)[\r\n]*?(^\1)([^.\r\n]+)”, 接收到的文件路径, , , 假, )
文件路径 ＝ zz.取子匹配文本 (1, 2)
如果真 (文件路径 ＝ “”)
跳出循环 ()
文件后缀 ＝ zz.取子匹配文本 (1, 4)
文件后缀2 ＝ zz.取子匹配文本 (1, 7)
当前文件名 ＝ zz.取子匹配文本 (1, 3) ＋ “.” ＋ 文件后缀
当前文件名2 ＝ zz.取子匹配文本 (1, 3) ＋ “.” ＋ 文件后缀2
调试输出 (文件路径, 当前文件名, 文件后缀, 当前文件名2, 文件后缀2)
zz视频.创建 (“mp4|avi|rmvb|wmv|mov|flv|mkv|3gp|ts”, 文件后缀)
zz图片.创建 (“jpg|jpeg|png|gif|bmp|tiff|webp|ico”, 文件后缀)
超级列表框1.置标题 (计次, 3, 文件路径)
判断 (zz视频.取匹配数量 () ＝ 1)

交换变量 (当前文件名, 当前文件名2)
判断 (zz图片.取匹配数量 () ＝ 1)

交换变量 (当前文件名, 当前文件名2)


超级列表框1.置标题 (计次, 4, 当前文件名)  ' 视频文件
超级列表框1.置标题 (计次, 5, 当前文件名2)  ' 视频封面文件
接收到的文件路径 ＝ zz.替换 (“$5”)
' 调试输出 (接收到的文件路径)
计次 ＝ 计次 ＋ 1
判断循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 spec<br /> .支持库 iext<br /> <br /> .子程序 _拖放对象1_得到文件<br /> .参数 接收到的文件路径, 文本型<br /> .局部变量 文件后缀, 文本型<br /> .局部变量 文件后缀2, 文本型<br /> .局部变量 文件路径, 文本型<br /> .局部变量 当前文件名, 文本型<br /> .局部变量 当前文件名2, 文本型<br /> .局部变量 jj, 文本型<br /> .局部变量 zz, 正则表达式类<br /> .局部变量 zz图片, 正则表达式类<br /> .局部变量 zz视频, 正则表达式类<br /> .局部变量 计次, 整数型<br /> <br /> 文件组 ＝ 分割文本 (接收到的文件路径, #换行符, )<br /> .如果真 (取数组成员数 (文件组) ＝ 0)<br />     返回 ()<br /> .如果真结束<br /> 清空表项数据 ()<br /> <br /> .判断循环首 (jj ≠ 接收到的文件路径)<br />     jj ＝ 接收到的文件路径<br />     zz.创建 (“^(((?:[^\\\r\n]+\\)+)(.+?)\.)([^.\r\n]+)[\r\n]*([\s\S]*?)[\r\n]*?(^\1)([^.\r\n]+)”, 接收到的文件路径, , , 假, )<br />     文件路径 ＝ zz.取子匹配文本 (1, 2)<br />     .如果真 (文件路径 ＝ “”)<br />         跳出循环 ()<br />     .如果真结束<br />     文件后缀 ＝ zz.取子匹配文本 (1, 4)<br />     文件后缀2 ＝ zz.取子匹配文本 (1, 7)<br />     当前文件名 ＝ zz.取子匹配文本 (1, 3) ＋ “.” ＋ 文件后缀<br />     当前文件名2 ＝ zz.取子匹配文本 (1, 3) ＋ “.” ＋ 文件后缀2<br />     调试输出 (文件路径, 当前文件名, 文件后缀, 当前文件名2, 文件后缀2)<br />     zz视频.创建 (“mp4|avi|rmvb|wmv|mov|flv|mkv|3gp|ts”, 文件后缀)<br />     zz图片.创建 (“jpg|jpeg|png|gif|bmp|tiff|webp|ico”, 文件后缀)<br /> <br />     超级列表框1.置标题 (计次, 3, 文件路径)<br />     .判断开始 (zz视频.取匹配数量 () ＝ 1)<br /> <br />     .默认<br />         交换变量 (当前文件名, 当前文件名2)<br />         .判断开始 (zz图片.取匹配数量 () ＝ 1)<br /> <br />         .默认<br />             交换变量 (当前文件名, 当前文件名2)<br />         .判断结束<br /> <br />     .判断结束<br /> <br /> <br /> <br />     超级列表框1.置标题 (计次, 4, 当前文件名)  ' 视频文件<br />     超级列表框1.置标题 (计次, 5, 当前文件名2)  ' 视频封面文件<br /> <br />     接收到的文件路径 ＝ zz.替换 (“$5”)<br />     ' 调试输出 (接收到的文件路径)<br />     计次 ＝ 计次 ＋ 1<br /> .判断循环尾 ()