关于文件名改成数字的问题

cqcc

改变文件名单数双数后，合并保存到一个目录就能连续的1,2,3,4,5,6,7,8,9请问需要怎么实现？

  

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

变量名	类 型	静态	数组	备 注
图片数组A	文本型		0
图片数组B	文本型		0
a	整数型
b	整数型
文件名a	文本型
文件名b	文本型

文件_枚举 (编辑框_图片目录A.内容, “*.jpg”, 图片数组A, 真)
文件_枚举 (编辑框_图片目录B.内容, “*.jpg”, 图片数组B, 真)
计次循环首 (取数组成员数 (图片数组A), a)
文件名a ＝ 文件_取文件名 (图片数组A [a])
复制文件 (编辑框_图片目录A.内容 ＋ 文件名a ＋ “.jpg”, 编辑框_保存目录.内容 ＋ 文件名a ＋ “.jpg”)  ' 这里的文件名需要数字单数
调试输出 (文件名a)
如果真 (取数组成员数 (图片数组B) ≥ a)
文件名b ＝ 文件_取文件名 (图片数组B [a])
复制文件 (编辑框_图片目录B.内容 ＋ 文件名b ＋ “.jpg”, 编辑框_保存目录.内容 ＋ 文件名b ＋ “.jpg”)  ' 这里的文件需要数字双数
调试输出 (文件名b)

计次循环尾 ()
' 改变文件名单数双数后，合并保存到一个目录就能连续的1,2,3,4,5,6,7,8,9请问需要怎么实现？
信息框 (“ok”, 0, , )

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 图片数组A, 文本型, , "0"<br /> .局部变量 图片数组B, 文本型, , "0"<br /> .局部变量 a, 整数型<br /> .局部变量 b, 整数型<br /> .局部变量 文件名a, 文本型<br /> .局部变量 文件名b, 文本型<br /> <br /> 文件_枚举 (编辑框_图片目录A.内容, “*.jpg”, 图片数组A, 真)<br /> 文件_枚举 (编辑框_图片目录B.内容, “*.jpg”, 图片数组B, 真)<br /> <br /> .计次循环首 (取数组成员数 (图片数组A), a)<br />     文件名a ＝ 文件_取文件名 (图片数组A [a])<br />     复制文件 (编辑框_图片目录A.内容 ＋ 文件名a ＋ “.jpg”, 编辑框_保存目录.内容 ＋ 文件名a ＋ “.jpg”)  ' 这里的文件名需要数字单数<br />     调试输出 (文件名a)<br /> <br />     .如果真 (取数组成员数 (图片数组B) ≥ a)<br />         文件名b ＝ 文件_取文件名 (图片数组B [a])<br />         复制文件 (编辑框_图片目录B.内容 ＋ 文件名b ＋ “.jpg”, 编辑框_保存目录.内容 ＋ 文件名b ＋ “.jpg”)  ' 这里的文件需要数字双数<br />         调试输出 (文件名b)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> ' 改变文件名单数双数后，合并保存到一个目录就能连续的1,2,3,4,5,6,7,8,9请问需要怎么实现？<br /> <br /> 信息框 (“ok”, 0, , )

mytiger

.版本 2

.子程序 _按钮1_被单击
.局部变量 图片数组A, 文本型, , "0"
.局部变量 图片数组B, 文本型, , "0"
.局部变量 a, 整数型
.局部变量 b, 整数型
.局部变量 c, 整数型
.局部变量 d, 整数型
.局部变量 e, 整数型

a ＝ 文件_枚举 (编辑框_图片目录A.内容, “*.jpg”, 图片数组A, 真, , )
b ＝ 文件_枚举 (编辑框_图片目录B.内容, “*.jpg”, 图片数组B, 真, , )
连续赋值 (1, c, d, e)
.判断循环首 (a ＋ b ≤ c)
    .如果 (d ≤ a 且 e ≤ b)
        复制文件 (图片数组A [d], 编辑框_保存目录.内容 ＋ 到文本 (c) ＋ “.jpg”)  ' 这里的文件名需要数字单数
        d ＝ d ＋ 1
        c ＝ c ＋ 1
        复制文件 (图片数组B [e], 编辑框_保存目录.内容 ＋ 到文本 (c) ＋ “.jpg”)  ' 这里的文件名需要数字双数
        e ＝ e ＋ 1
        c ＝ c ＋ 1
    .否则
        .如果 (a － b ＞ 0)
            复制文件 (图片数组A [d], 编辑框_保存目录.内容 ＋ 到文本 (c) ＋ “.jpg”)
            d ＝ d ＋ 1
        .否则
            复制文件 (图片数组B [e], 编辑框_保存目录.内容 ＋ 到文本 (c) ＋ “.jpg”)
            e ＝ e ＋ 1
        .如果结束
        c ＝ c ＋ 1
    .如果结束

.判断循环尾 ()

是可可吖

合并到一个目录之后的排序连续，那需要在文件夹目录里设置排序方式

samll88

  

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

变量名	类 型	静态	数组	备 注
图片数组A	文本型		0
图片数组B	文本型		0
a	整数型
b	整数型
文件名a	文本型
文件名b	文本型

文件_枚举 (编辑框_图片目录A.内容, “*.jpg”, 图片数组A, 真)
文件_枚举 (编辑框_图片目录B.内容, “*.jpg”, 图片数组B, 真)
计次循环首 (取数组成员数 (图片数组A), a)
如果真 (a ％ 2 ≠ 0)
文件名a ＝ 文件_取文件名 (图片数组A [a])
复制文件 (编辑框_图片目录A.内容 ＋ 文件名a ���到文本 (a) +“.jpg”, 编辑框_保存目录.内容 ＋ 文件名a ＋ “.jpg”)  ' 这里的文件名需要数字单数
调试输出 (文件名a)
如果真 (取数组成员数 (图片数组B) ≥ a)
如果真 (a ％ 2 ＝ 0)
文件名b ＝ 文件_取文件名 (图片数组B [a], )
复制文件 (编辑框_图片目录B.内容 ＋ 文件名b ���到文本 (a) +“.jpg”, 编辑框_保存目录.内容 ＋ 文件名b ＋ “.jpg”)  ' 这里的文件需要数字双数
调试输出 (文件名b)


计次循环尾 ()

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 图片数组A, 文本型, , "0"<br /> .局部变量 图片数组B, 文本型, , "0"<br /> .局部变量 a, 整数型<br /> .局部变量 b, 整数型<br /> .局部变量 文件名a, 文本型<br /> .局部变量 文件名b, 文本型<br /> <br /> 文件_枚举 (编辑框_图片目录A.内容, “*.jpg”, 图片数组A, 真)<br /> 文件_枚举 (编辑框_图片目录B.内容, “*.jpg”, 图片数组B, 真)<br /> <br /> .计次循环首 (取数组成员数 (图片数组A), a)<br />     .如果真 (a ％ 2 ≠ 0)<br />         文件名a ＝ 文件_取文件名 (图片数组A [a])<br />         复制文件 (编辑框_图片目录A.内容 ＋ 文件名a ＋到文本(a) +“.jpg”, 编辑框_保存目录.内容 ＋ 文件名a ＋ “.jpg”)  ' 这里的文件名需要数字单数<br />         调试输出 (文件名a)<br /> <br /> <br />     .如果真结束<br />     .如果真 (取数组成员数 (图片数组B) ≥ a)<br />         .如果真 (a ％ 2 ＝ 0)<br />             文件名b ＝ 文件_取文件名 (图片数组B [a], )<br />             复制文件 (编辑框_图片目录B.内容 ＋ 文件名b ＋到文本(a) +“.jpg”, 编辑框_保存目录.内容 ＋ 文件名b ＋ “.jpg”)  ' 这里的文件需要数字双数<br />             调试输出 (文件名b)<br /> <br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()

不对可以自己改,大概就是这样毕竟没数据,没法调试


补充内容 (2025-4-11 19:52):
问号是+

samll88

.如果真 (a>10)
    到文本 (a) +“.jpg”
.如果真结束

.如果真 (a<10)
    到文本 (a) +“.jpg”
.如果真结束

就是在“.jpg”前面+ 到文本 (a)+

补充内容 (2025-4-11 20:06):
>9

补充内容 (2025-4-11 20:06):
<10

cqcc

samll88 发表于 2025-4-11 20:05
.如果真 (a>10)
    到文本 (a) +“.jpg”
.如果真结束

好像不是这样吧

汉族

%<>0  就行了

hongqingfeng

  

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

变量名	类 型	静态	数组	备 注
图片数组A	文本型		0
图片数组B	文本型		0
a	整数型
文件名a	文本型
文件名b	文本型
ww	文本型

文件_枚举 (取运行目录 () ＋ “\12”, “*.jpg”, 图片数组A, 真, , )
文件_枚举 (取运行目录 () ＋ “\11”, “*.jpg”, 图片数组B, 真, , )
计次循环首 (取数组成员数 (图片数组A), a)
ww ＝ 图片数组A [a]
文件名a ＝ 文件_取文件名 (图片数组A [a], )
文件_复制 (ww, 取运行目录 () ＋ “\13\” ＋ 文件名a ＋ “.png”, 0)
如果真 (取数组成员数 (图片数组B) ＞ a)
ww ＝ 图片数组B [a]
文件名b ＝ 文件_取文件名 (图片数组B [a], )
文件_复制 (ww, 取运行目录 () ＋ “\13\” ＋ 文件名b ＋ “.png”, 0)

计次循环尾 ()

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 图片数组A, 文本型, , "0"<br /> .局部变量 图片数组B, 文本型, , "0"<br /> .局部变量 a, 整数型<br /> .局部变量 文件名a, 文本型<br /> .局部变量 文件名b, 文本型<br /> .局部变量 ww, 文本型<br /> <br /> <br /> 文件_枚举 (取运行目录 () ＋ “\12”, “*.jpg”, 图片数组A, 真, , )<br /> 文件_枚举 (取运行目录 () ＋ “\11”, “*.jpg”, 图片数组B, 真, , )<br /> .计次循环首 (取数组成员数 (图片数组A), a)<br />     ww ＝ 图片数组A [a]<br />     文件名a ＝ 文件_取文件名 (图片数组A [a], )<br />     文件_复制 (ww, 取运行目录 () ＋ “\13\” ＋ 文件名a ＋ “.png”, 0)<br />     .如果真 (取数组成员数 (图片数组B) ＞ a)<br />         ww ＝ 图片数组B [a]<br />         文件名b ＝ 文件_取文件名 (图片数组B [a], )<br />         文件_复制 (ww, 取运行目录 () ＋ “\13\” ＋ 文件名b ＋ “.png”, 0)<br />     .如果真结束<br /> <br /> .计次循环尾 ()

补充内容 (2025-4-12 01:07):
图片你自己弄，用这个代码即可

mytiger

是将A目录的文件改名为单数,B目录文件改名为双数后保存到C目录并且保证c目录文件的连续性?   如果A目录和B目录文件不等那如何处理连续性

cqcc

hongqingfeng 发表于 2025-4-12 01:05
[e=0].版本 2

.子程序 _按钮1_被单击

我的意思是复制到13目录后改名为1.2.3.4.5.6这样，