上传问题

学会淡定

我导入超级列表框一些文本，1.2.3.4.5这些    点击上传图片文件夹，文件夹放着对应的1.1.1.2，2.1.2.2，3.13.2，4.1,4.2，5.1,5.2图片，但是读取的顺序是乱的  随机的，这个怎么让对于的1和1文件夹的图片对应起来。

学会淡定

这个是我写的代码   只能上传 不能对应

laihobglei

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮_选择文件夹_被单击

变量名	类 型	静态	数组	备 注
图片文件夹路径	文本型

图片文件夹路径 ＝ 浏览文件夹 (“选择图片文件夹”, “”)
如果真 (图片文件夹路径 ＝ “”)
信息框 (“未选择文件夹！”, 0, , )
返回 ()
标签_文件夹路径.标题 ＝ “当前文件夹：” ＋ 图片文件夹路径

子程序名	返回值类型	公开	备 注
_按钮_匹配图片_被单击

变量名	类 型	静态	数组	备 注
文件列表	文本型		0
i	整数型
文件名	文本型
前缀	文本型
列表索引	整数型

计次循环首 (超级列表框1.取表项数 (), i)
超级列表框1.置图片 (i － 1, 1, “”)
计次循环尾 ()
文件_枚举 (图片文件夹路径, “*.*”, 文件列表, 假)
文件列表 ＝ 文件排序_按前缀数字 (文件列表)
计次循环首 (取数组成员数 (文件列表), i)
文件名 ＝ 文件列表[i]
前缀 ＝ 取文本左边 (文件名, 寻找文本 (文件名, “.”, , 假) － 1)
列表索引 ＝ -1
计次循环首 (超级列表框1.取表项数 (), j)
如果真 (超级列表框1.取标题 (j － 1, 0) ＝ 前缀)
列表索引 ＝ j － 1
跳出循环 ()

计次循环尾 ()
' 如果找到匹配项，插入图片路径
如果真 (列表索引 ≠ -1)
超级列表框1.置图片 (列表索引, 1, 图片文件夹路径 ＋ “\” ＋ 文件名)
输出调试文本 (“未找到匹配项：” ＋ 文件名)

计次循环尾 ()
信息框 (“图片匹配完成！”, 0, , )

子程序名	返回值类型	公开	备 注
文件排序_按前缀数字	文本型		返回排序后的文件数组
参数名	类 型	参考	可空	数组	备 注
文件数组	文本型

变量名	类 型	静态	数组	备 注
i	整数型
j	整数型
临时文件	文本型

计次循环首 (取数组成员数 (文件数组) － 1, i)
计次循环首 (取数组成员数 (文件数组) － i, j)
如果真 (到数值 (取文本左边 (文件数组[j], 1)) > 到数值 (取文本左边 (文件数组[j ＋ 1], 1)))
临时文件 ＝ 文件数组[j]
文件数组[j] ＝ 文件数组[j ＋ 1]
文件数组[j ＋ 1] ＝ 临时文件

计次循环尾 ()
计次循环尾 ()
返回 (文件数组)

i支持库列表	支持库注释
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 shell<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮_选择文件夹_被单击<br /> .局部变量 图片文件夹路径, 文本型<br /> <br /> 图片文件夹路径 ＝ 浏览文件夹 (“选择图片文件夹”, “”)<br /> <br /> .如果真 (图片文件夹路径 ＝ “”)<br />     信息框 (“未选择文件夹！”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> 标签_文件夹路径.标题 ＝ “当前文件夹：” ＋ 图片文件夹路径<br /> <br /> .子程序 _按钮_匹配图片_被单击<br /> .局部变量 文件列表, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 文件名, 文本型<br /> .局部变量 前缀, 文本型<br /> .局部变量 列表索引, 整数型<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), i)<br />     超级列表框1.置图片 (i － 1, 1, “”)<br /> .计次循环尾 ()<br /> 文件_枚举 (图片文件夹路径, “*.*”, 文件列表, 假)<br /> 文件列表 ＝ 文件排序_按前缀数字 (文件列表)<br /> .计次循环首 (取数组成员数 (文件列表), i)<br />     文件名 ＝ 文件列表<i><br />     前缀 ＝ 取文本左边 (文件名, 寻找文本 (文件名, “.”, , 假) － 1)<br />     列表索引 ＝ -1<br />     .计次循环首 (超级列表框1.取表项数 (), j)<br />         .如果真 (超级列表框1.取标题 (j － 1, 0) ＝ 前缀)<br />             列表索引 ＝ j － 1<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> <br />     ' 如果找到匹配项，插入图片路径<br />     .如果真 (列表索引 ≠ -1)<br />         超级列表框1.置图片 (列表索引, 1, 图片文件夹路径 ＋ “\” ＋ 文件名)<br />         输出调试文本 (“未找到匹配项：” ＋ 文件名)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 信息框 (“图片匹配完成！”, 0, , )<br /> <br /> .子程序 文件排序_按前缀数字, 文本型, 公开, 返回排序后的文件数组<br /> .参数 文件数组, 文本型, 数组<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 临时文件, 文本型<br /> <br /> .计次循环首 (取数组成员数 (文件数组) － 1, i)<br />     .计次循环首 (取数组成员数 (文件数组) － i, j)<br />         .如果真 (到数值 (取文本左边 (文件数组[j], 1)) > 到数值 (取文本左边 (文件数组[j ＋ 1], 1)))<br />             临时文件 ＝ 文件数组[j]<br />             文件数组[j] ＝ 文件数组[j ＋ 1]<br />             文件数组[j ＋ 1] ＝ 临时文件<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 返回 (文件数组)

学会淡定

laihobglei 发表于 2025-7-2 19:37
[e=4].版本 2
.支持库 shell

这个地方老是报错  但是又是文本型 数组   什么问题  运行不起来

hongqingfeng

学会淡定 发表于 2025-7-2 20:40
这个地方老是报错  但是又是文本型 数组   什么问题  运行不起来

主打一个快速