4楼的兄弟说的是,图片文件一定要有规律才行!比如:"姓名:张三,文件名:张三.jpg"!这样才能对应起来!我可以提供一个,图片文件搜索函数供参考:
function GetTuYangList
parameter achTuYangMuLu
use DBC\TuYangList in 0
select TuYangList
zap
use
if .not. directory('&achTuYangMuLu.')
return 0
endif
achCurrentDir=sys(5)+sys(2003)
use DBC\TuYangList in 0
select TuYangList
append blank
replace 目录文件 with upper(achTuYangMuLu)
replace 属性 with 'D'
do while .not. eof()
if .not. 属性=='D'
skip
loop
endif
nRecordNo=recno()
achSouSuoMuLu=目录文件
cd '&achSouSuoMuLu.'
nFileNum=adir(aachFileList,'*', 'D')
if nFileNum>0
for j=1 to nFileNum
if .not. alltrim(aachFileList(j,1))=='.' .and. .not. alltrim(aachFileList(j,1))=='..'
achDirFile=achSouSuoMuLu+'\'+alltrim(aachFileList(j,1))
append blank
replace 目录文件 with upper(achDirFile)
if 'D'$aachFileList(j,5)
replace 属性 with 'D'
else
replace 文件名 with upper(aachFileList(j,1))
endif
endif
endfor
go nRecordNo
endif
skip
enddo
delete all for 属性=='D' .or. .not. substr(alltrim(文件名),len(alltrim(文件名))-3,4)=='.JPG' .and. .not. substr(alltrim(文件名),len(alltrim(文件名))-4,5)=='.JPEG'
pack
nRecordNum=reccount()
use
cd '&achCurrentDir.'
return nRecordNum
endfunc