Halcon 读取文件夹下的图片问题

今天这个问题花了我半小多小时的时间研究，但实际上是因为自己犯蠢。

问题

问题是这样的：利用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

虽然绕了个大圈子，但还是达到了目的，具体说来是这样：

1. 将根目录的路径Selection中的’/’替换成’\\’，这里用到一个算子tuple_regexp_replace,
   注意用到了’replace_all’这个参数可以替换掉所有匹配的字符；之所以需要替换是因为Selection中的路径格式和list_files读取出来的文件路径格式在斜杠上表示不一致；
2. 用一个Expression
   '^('+Result+'\\\\)[^\\\\]+\\.(tif|tiff|gif|bmp|jpg|jpeg|jp2|png|pcx|pgm|ppm|pbm|xwd|ima|hobj)$'来限定根目录下的文件名称。这里用一个变量Result来参与合成表达式，这样可以适用用户所有的路径选择，同时还涉及到正则表达式里对.和\的表示方法，分别为’\\.’和’\\\\’

正则表达式还是很强大的。但是算子里明明有参数可选的时候就不要犯傻了。