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