今天这个问题花了我半小多小时的时间研究,但实际上是因为自己犯蠢。
问题
问题是这样的:利用halcon读取图片时的导出代码段循环读取文件夹下的图片,但是又想只读取根目录下的图片文件,而不想读取子文件夹下的图片文件。原始的代码段是如下这样
dev_open_file_dialog ('make_dir', 'default', 'default', Selection)
list_files (Selection, ['files','follow_links','recursive'], ImageFiles)
tuple_regexp_select (ImageFiles, ['\\.(tif|tiff|gif|bmp|jpg|jpeg|jp2|png|pcx|pgm|ppm|pbm|xwd|ima|hobj)$', 'ignore_case'], ImageFiles)
for Index := 0 to |ImageFiles| - 1 by 1
read_image (Image, ImageFiles[Index])
endfor
其实这个问题非常好解决,只是因为我对list_files这个算子不太熟悉。
只需要第二个参数中的’recursive’修改成’files’就好了。
结果我绕了个大圈子,不过也算练习了一下正则表达式,我的解决方法是这样的:
dev_open_file_dialog ('make_dir', 'default', 'default', Selection)
tuple_regexp_replace (Selection, ['/','replace_all'], '\\\\', Result)
list_files (Selection, ['files','follow_links','recursive'], ImageFiles)
Expression := '^('+Result+'\\\\)[^\\\\]+\\.(tif|tiff|gif|bmp|jpg|jpeg|jp2|png|pcx|pgm|ppm|pbm|xwd|ima|hobj)$'
tuple_regexp_select (ImageFiles, [Expression, 'ignore_case'], ImageFiles)
for Index := 0 to |ImageFiles| - 1 by 1
read_image (Image, ImageFiles[Index])
endfor
虽然绕了个大圈子,但还是达到了目的,具体说来是这样:
- 将根目录的路径Selection中的’/’替换成’\\’,这里用到一个算子tuple_regexp_replace,
注意用到了’replace_all’这个参数可以替换掉所有匹配的字符;之所以需要替换是因为Selection中的路径格式和list_files读取出来的文件路径格式在斜杠上表示不一致; - 用一个Expression
'^('+Result+'\\\\)[^\\\\]+\\.(tif|tiff|gif|bmp|jpg|jpeg|jp2|png|pcx|pgm|ppm|pbm|xwd|ima|hobj)$'
来限定根目录下的文件名称。这里用一个变量Result来参与合成表达式,这样可以适用用户所有的路径选择,同时还涉及到正则表达式里对.和\的表示方法,分别为’\\.’和’\\\\’
正则表达式还是很强大的。但是算子里明明有参数可选的时候就不要犯傻了。