| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1583 人关注过本帖, 1 人收藏
标题:求将BMP格式的照片批量导入通用型字段中的代码
只看楼主 加入收藏
取消关键字高亮
iamhyf
Rank: 1
等 级:新手上路
帖 子:69
专家分:2
注 册:2010-1-5
结帖率:91.67%
收藏(1)
已结贴  问题点数:10 回复次数:4 
求将BMP格式的照片批量导入通用型字段中的代码
表名:Ei.dbf
字段名:姓名,身份证号,....,照片
“照片”字段是通用型
照片文件名格式:姓名(身份证号).bmp
将这些照片对应每条记录批量导入到“照片”字段中,程序应如何编写?求达人帮忙。
搜索更多相关主题的帖子: 照片 批量 字段 BMP 通用型 
2010-01-10 02:36
sywzs
Rank: 10Rank: 10Rank: 10
来 自:辽宁
等 级:贵宾
威 望:15
帖 子:508
专家分:1725
注 册:2009-5-13
收藏
得分:4 
SCAN
zpm=allt(身份证号)+".bmp" &&用身份证号作为照片文件名
APPEND GENERAL 照片 from (zpm)
ENDSCAN
2010-01-10 09:25
茵梦湖
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:31
帖 子:545
专家分:2180
注 册:2009-4-25
收藏
得分:3 
程序代码:
sele 0
use Ei excl
scan
   lsc ="照片所在目录\" +allt(姓名) +"(" +allt(身份证号) +").bmp"  && 这里的"照片所在目录"改为你的实际目录
   if file(lsc)
      appe gene 照片 from (lsc)
   endif
endscan

2010-01-10 09:48
liuhaijun
Rank: 2
等 级:论坛游民
威 望:1
帖 子:176
专家分:45
注 册:2008-12-27
收藏
得分:3 
茵梦湖 给出的“照片所在目录 ”是绝对路径,如果用相对路径可用sys(5)和sys(2003)处理 .
2010-01-10 12:05
iamhyf
Rank: 1
等 级:新手上路
帖 子:69
专家分:2
注 册:2010-1-5
收藏
得分:0 
谢谢2楼、3楼、4楼的帮助,学习了。
在几位的帮助下,我编写了如下代码:
    PhotoPath=GETDIR("","请选择照片所在文件夹:")
    IF !EMPTY(PhotoPath)
      PhotoCount=ADIR(PhotoArr,PhotoPath+"*.BMP")
      IF PhotoCount>0
        I=0
        SCAN
          PhotoName=ALLTRIM(Ei.姓名)+"("+ALLTRIM(Ei.身份证号)+").BMP"
          IF ASCAN(PhotoArr,PhotoName)>0
            PhotoName=PhotoPath+PhotoName
            APPEND GENERAL Ei.照片 FROM &PhotoName
            =TABLEUPDATE(1)
            I=I+1
          ENDIF
        ENDSCAN
      ENDIF
      =MESSAGEBOX("成功导入"+ALLTRIM(STR(I))+"张照片。",64,"系统提示")
    ENDIF

[ 本帖最后由 iamhyf 于 2010-1-10 13:01 编辑 ]
2010-01-10 12:55
快速回复:求将BMP格式的照片批量导入通用型字段中的代码
数据加载中...
 
   



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

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