主题：紧急求救：如何将照片库中的大批照片用VF程序进行更名
xuexizhe
[专家分：0] 发布于 2009-03-09 14:39:00
各位高手：
请教大家一个棘手问题：对于中考报名过程中所摄录的大量照片，当在做好EXCEL表格后，如何用VF程序进行编程处理，将它们的名字变为与对应的报名序号一样的名字，谢谢大家了！！[em2]
回复列表 （共10个回复）
沙发
fyyylyl [专家分：8550] 发布于 2009-03-09 16:23:00
如果：1、每人只拍过一张照片；2、照片统一存放于一个文件夹下；3、excle表中次序与照片拍摄次序一致：
1、将excel文件读入dbf，且dbf中有一较大的字符型字段；
2、用adir()取得存放照片的的文件夹下的文件信息并按生成时间排序；
3、将adir()取得的文件名（包括完整路径）依次写入dbf的空字符型字段中；
4、用rename命令依次更改照片文件名
板凳
xuexizhe [专家分：0] 发布于 2009-03-09 16:36:00
您好：谢谢您的指导，那么对于您的说的方式，不知道能否有程序简单编写一下，举例说一下，因为我是个初学者，就遇到了这个难题，所以希望你能帮我，谢谢你了啊！！！
3 楼
fyyylyl [专家分：8550] 发布于 2009-03-09 16:55:00
可否发一部分数据及照片文件？
4 楼
xuexizhe [专家分：0] 发布于 2009-03-10 08:11:00
你好，老师，谢谢您能帮我，我今天有重新发了一个同样主题的帖子，外加了照片和数据库文件，已经压缩，希望您能帮我做程序，谢谢！！！
5 楼
fyyylyl [专家分：8550] 发布于 2009-03-10 16:26:00
参考CCB2000的答案：
use 二级运动员材料汇总.DBF
scan
if file("1中\"+alltrim(片号)+".jpg")
rename ("1中\"+alltrim(片号)+".jpg") to ("1中\"+alltrim(报名序号)+".jpg")
else
?(alltrim(片号)+".jpg")+"?"
endi
ends
6 楼
xuexizhe [专家分：0] 发布于 2009-03-10 16:52:00
谢谢，我试了，还是嵌套错误，是不是这样的：
不管数据文件在那个位置，只要我的照片库
在“1中”里面就可以？
那use后面不用加"路径名"吗？
您看这样行吗，能不能帮我运行一下，确认程序无误，且名字可以改写后，在帮我发一次程序，真是麻烦你了，我很头疼，不知道怎么回事！
7 楼
CCB2000 [专家分：690] 发布于 2009-03-10 18:07:00
把fyyylyl的程序放在“如何集体给照片改成不明序号名字”下运行就可以了。
检查一下是否最后2行输错了：
endif
endscan
8 楼
cbl518 [专家分：57140] 发布于 2009-03-10 18:31:00
CD JUSTPATH(SYS(16))
USE 二级运动员材料汇总
SCAN for FILE("1中\"-片号-".jpg")
RENAME ("1中\"-片号-".jpg") to ("1中\"-报名序号-".jpg")
ENDSCAN
9 楼
cbl518 [专家分：57140] 发布于 2009-03-10 18:32:00
将以上语句写入一个 prg文件
将该 prg文件 保存在你的，
“如何集体给照片改成不明序号名字”
目录下！
然后运行即可！
10 楼
xuexizhe [专家分：0] 发布于 2009-03-11 13:11:00
衷心感谢大家对我的支持和帮助，这个问题我已经解决了，以后如果有不明白的还希望大家多帮助，谢谢了！！！
我来回复
您所在位置：社区首页 — Visual Foxpro讨论区 — 紧急求救：如何将照片库中的大批照片用VF程序进行更名