1)遍历文件夹:
list_files( : : Directory, Options : Files)
Directory:目录(文件夹路径)
Options:选项
‘files’ 指定搜索的格式为文件
‘directories’ 指定搜索的格式为文件夹
‘recursive’ 指定可以遍历子文件夹下的文件
‘follow_links’
‘max_depth 5’ 指定遍历的深度
‘max_files 1000’ 指定遍历的最大文件数目
Files:文件(文件的路径)
2)文件格式筛选
tuple_regexp_select( : : Data, Expression : Selection)
Data:被选择的文件路径数组
Expression:文件格式的筛选规则
//. 转义 .
(bmp|JPG) 筛选的文件格式
‘ignore_case’ 忽略大小写
Selection:选择出的文件路径数组
示例:
1: * 遍历文件夹D:/资料库/Downloads
2: list_files ('D:/资料库/Downloads', ['files','follow_links'], ImageFiles)
3:
4: * 筛选bmp或jpg格式的文件
5: tuple_regexp_select (ImageFiles, ['\\.(bmp|jpg)$','ignore_case'], ImageFiles)
6:
7: * 依次读取图片
8: for Index := 0 to |ImageFiles| - 1 by 1
9: read_image (Image, ImageFiles[Index])
10:
11: endfor