第一步
list_files( : : Directory, Options : Files) *遍历文件夹
输入参数:
Directory: 目录(文件夹路径)
Options : 选项,包含以下几个选项
'files' 指定搜索的格式为文件
'directories' 指定搜索的格式为文件夹
'recursive' 指定可以遍历子文件夹下的文件
'follow_links'
'max_depth 5' 指定遍历的深度(此处为5)
'max_files 1000' 指定遍历的最大文件数目(此处为1000)
输出参数:
Files: 文件(文件的路径)
第二步
tuple_regexp_select( : : Data, Expression : Selection) *文件格式筛选
输入参数:
Data: 被选择的文件路径数组
Expression: 文件格式的筛选规则,举例如下:
//. 转义为 .
(bmp|JPG) 筛选的文件格式为bmp和jpg图片
'ignore_case' 忽略大小写
Selection: 选择出的文件路径数组
举例:
list_files ('E:/项目图片/Cam1/OK品', ['files','follow_links'], ImageFiles)
tuple_regexp_select (ImageFiles, ['\\.(tif|tiff|gif|bmp|jpg|jpeg|jp2|png|pcx|pgm|ppm|pbm|xwd|ima)$','ignore_case'], ImageFiles)
for imgIndex := 0 to |ImageFiles| - 1 by 1
read_image (Image, ImageFiles[imgIndex])
endfor
****图片名称为0.bmp、1.bmp等等
for i := 0 to 20 by 1
read_image (Image, 'E:/项目图片/Cam1/OK品/亮/'+i+'.bmp')
endfor
****图片名称为:缺0.bmp、缺1.bmp等等
for i := 0 to 20 by 1
read_image (Image, 'E:/项目图片/Cam1/OK品/亮/缺'+i+'.bmp')
endfor