|
发表于 2014-1-23 17:03:53
|
显示全部楼层
广东省湛江市
你的代码好有用,我发你信息,你自己不回复的,你自己看看帖子去.
.版本 2
.支持库 spec
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 路径, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 首字, 文本型
.局部变量 新文件名, 文本型
.局部变量 调试输出, 文本型
文件_枚举 (“C:
.版本 2
.支持库 spec
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 路径, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 首字, 文本型
.局部变量 新文件名, 文本型
.局部变量 调试输出, 文本型
文件_枚举 (“C:\1”, “*.jpg”, 路径, 假)
.计次循环首 (取数组成员数 (路径), i)
首字 = 取文本左边 (路径 <i>, 2)
.如果真 (首字 = “综”)
新文件名 = “c:\1\” + 文本_替换 (路径 <i>, 1, 1, , “综”, “DS”)
调试输出 (新文件名)
文件更名 (“c:\1\” + 路径 <i>, 新文件名)
.如果真结束
.计次循环尾 ()
”, “*.jpg”, 路径, 假)
.计次循环首 (取数组成员数 (路径), i)
首字 = 取文本左边 (路径 <i>, 2)
.如果真 (首字 = “综”)
新文件名 = “c:
.版本 2
.支持库 spec
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 路径, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 首字, 文本型
.局部变量 新文件名, 文本型
.局部变量 调试输出, 文本型
文件_枚举 (“C:\1”, “*.jpg”, 路径, 假)
.计次循环首 (取数组成员数 (路径), i)
首字 = 取文本左边 (路径 <i>, 2)
.如果真 (首字 = “综”)
新文件名 = “c:\1\” + 文本_替换 (路径 <i>, 1, 1, , “综”, “DS”)
调试输出 (新文件名)
文件更名 (“c:\1\” + 路径 <i>, 新文件名)
.如果真结束
.计次循环尾 ()
\” + 文本_替换 (路径 <i>, 1, 1, , “综”, “DS”)
调试输出 (新文件名)
文件更名 (“c:
.版本 2
.支持库 spec
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 路径, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 首字, 文本型
.局部变量 新文件名, 文本型
.局部变量 调试输出, 文本型
文件_枚举 (“C:\1”, “*.jpg”, 路径, 假)
.计次循环首 (取数组成员数 (路径), i)
首字 = 取文本左边 (路径 <i>, 2)
.如果真 (首字 = “综”)
新文件名 = “c:\1\” + 文本_替换 (路径 <i>, 1, 1, , “综”, “DS”)
调试输出 (新文件名)
文件更名 (“c:\1\” + 路径 <i>, 新文件名)
.如果真结束
.计次循环尾 ()
\” + 路径 <i>, 新文件名)
.如果真结束
.计次循环尾 ()
|
|