| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1081 人关注过本帖
标题:vf批量提取照片并批量改名
只看楼主 加入收藏
junkuiss
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2013-5-20
结帖率:100%
收藏
已结贴  问题点数:18 回复次数:3 
vf批量提取照片并批量改名
在vf的表里有sfzh(身份证号)和ksh(考生号),学生的照片都是以身份证号命名的,现在要把照片批量提取同时替换成与身份证号相对印的考生号
1、数据表在C盘DBF目录下,表名为学生.dbf
2、照片在C盘PIC目录下

程序代码:
CLOSE DATABASES
SET DEFAULT TO C:\PIC
USE c:\dbf\学生.dbf
SCAN
     IF FILE(ALLTRIM(TABNAME.SFZH)+[.JPG])
       RENAME ALLTRIM(TABNAME.SFZH)+[.JPG] TO ALLTRIM(TABNAME.KSH)+[.JPG]
     ENDIF
ENDSCAN
现在能不能不帮我改一下:
                       1、照片批量提取并复制到pic2目录下并同时替换成与身份证号相对印的考生号
                       2、如果没有找到,把没有找到的信息给予提示
谢谢各位师哥师姐
搜索更多相关主题的帖子: 学生 身份证号 数据表 照片 
2013-05-23 12:09
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:6 
把rename改成copy file,没找到的提示信息就放在if的else分支中即可。

授人以渔,不授人以鱼。
2013-05-23 12:27
kiff
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:广州
等 级:贵宾
威 望:46
帖 子:756
专家分:2531
注 册:2013-1-30
收藏
得分:6 
CLOSE DATABASES
path1='C:\PIC\'
path2='C:\PIC2\'
CREATE CURSOR t1 (SFZH c(20))
USE c:\dbf\学生 IN 0
SELECT 学生
SCAN
     IF FILE(path1+ALLTRIM(学生.SFZH)+'.JPG')
         COPY FILE (path1+ALLTRIM(学生.SFZH)+'.JPG') TO (path2+ALLTRIM(学生.KSH)+'.JPG')
     ELSE
         INSERT INTO t1 (SFZH) VALUES (学生.SFZH)
    ENDIF
ENDSCAN
IF RECCOUNT('t1')>0
    =MESSAGEBOX('相片不存在',64,'提示')
    m.out_filename=allt(PUTFILE('','','XLS'))
    IF NOT EMPTY(m.out_filename)
        SELECT t1
        COPY TO (m.out_filename) XLS
    ENDIF
ENDIF
CLOSE DATABASES
2013-05-23 12:32
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:6 
程序代码:
CLOSE DATABASES
*SET DEFAULT TO C:\PIC
USE C:\DBF\学生
SCAN
   IF FILE([C:\PIC\]+ALLTRIM(学生.SFZH)+[.JPG])
      COPY FILE [C:\PIC\]+ALLTRIM(学生.SFZH)+[.JPG] TO [C:\PIC2\]+ALLTRIM(学生.KSH)+[.JPG]
      DELETE FILE [C:\PIC\]+ALLTRIM(学生.SFZH)+[.JPG]
   ELSE
      STRTOFILE([C:\PIC\]+ALLTRIM(学生.SFZH)+[.JPG 不存在]+CHR(13)+CHR(10),[C:\DBF\JPG.TXT],.T.)
   ENDIF
ENDSCAN


[ 本帖最后由 sdta 于 2013-5-23 23:32 编辑 ]

坚守VFP最后的阵地
2013-05-23 23:30
快速回复:vf批量提取照片并批量改名
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.019332 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved