读写数据到csv、txt文件

Halcom

     数据的保存工作在Halcon软件中时常用到，特别是测试大规模的图像数据时，需要统计每幅图像的特征值时，就需要实时的保存数据到文本文件、csv文件或者EXCEL文件等，Halcon提供了强大的数据读写功能。

1. list_image_files('C:/Users/ysw/Desktop/视频讲解/图库','default', [], ImageFiles)
   
2. File_Name := 'ysw2.csv'
   
3. file_exists(File_Name,FileExits)
   
4. if(FileExits)
   
5.     open_file(File_Name,'append',FileHandle)
   
6. else
   
7.     open_file(File_Name,'output',FileHandle)
   
8. endif
   
9. 
   
10. for i :=0 to |ImageFiles|-1 by 1
    
11.     read_image(Image, ImageFiles[i])
    
12.     min_max_gray(Image, Image, 0, Min, Max, Range)
    
13.     fwrite_string(FileHandle,ImageFiles[i]+ ',' + 'MinGray=' + ',' + Min + ',' + 'MaxGray=' + ',' + Max + '\n')
    
14. *     stop()
    
15. endfor

复制代码

        运行程序后，输出结果如下。       循环写入数据到csv文件

1. C:/Users/ysw/Desktop/视频讲解/图库/10.jpg        MinGray=        0        MaxGray=        179
   
2. C:/Users/ysw/Desktop/视频讲解/图库/11.jpg        MinGray=        222        MaxGray=        255
   
3. C:/Users/ysw/Desktop/视频讲解/图库/12.jpg        MinGray=        0        MaxGray=        0
   
4. C:/Users/ysw/Desktop/视频讲解/图库/13.jpg        MinGray=        52        MaxGray=        238
   
5. C:/Users/ysw/Desktop/视频讲解/图库/14.jpg        MinGray=        123        MaxGray=        169
   
6. C:/Users/ysw/Desktop/视频讲解/图库/15.jpg        MinGray=        0        MaxGray=        231
   
7. C:/Users/ysw/Desktop/视频讲解/图库/16.jpg        MinGray=        0        MaxGray=        201
   
8. C:/Users/ysw/Desktop/视频讲解/图库/17.jpg        MinGray=        0        MaxGray=        255
   
9. C:/Users/ysw/Desktop/视频讲解/图库/18.jpg        MinGray=        245        MaxGray=        245
   
10. C:/Users/ysw/Desktop/视频讲解/图库/19.jpg        MinGray=        0        MaxGray=        56
    
11. C:/Users/ysw/Desktop/视频讲解/图库/2.jpg        MinGray=        181        MaxGray=        255
    
12. C:/Users/ysw/Desktop/视频讲解/图库/20.jpg        MinGray=        0        MaxGray=        94
    
13. C:/Users/ysw/Desktop/视频讲解/图库/21.jpg        MinGray=        0        MaxGray=        25
    
14. C:/Users/ysw/Desktop/视频讲解/图库/22.jpg        MinGray=        0        MaxGray=        255
    
15. C:/Users/ysw/Desktop/视频讲解/图库/23.jpg        MinGray=        0        MaxGray=        7
    
16. C:/Users/ysw/Desktop/视频讲解/图库/24.jpg        MinGray=        0        MaxGray=        255
    
17. C:/Users/ysw/Desktop/视频讲解/图库/25.jpg        MinGray=        0        MaxGray=        8
    
18. C:/Users/ysw/Desktop/视频讲解/图库/26.jpg        MinGray=        0        MaxGray=        232
    
19. C:/Users/ysw/Desktop/视频讲解/图库/27.jpg        MinGray=        42        MaxGray=        255

复制代码

        如果用户需要写入到txt文件中，则只需要将写入的文件名后缀改一下即可，例如：

1. list_image_files('C:/Users/ysw/Desktop/视频讲解/图库','default', [], ImageFiles)
   
2. File_Name := 'ysw2.txt'
   
3. file_exists(File_Name,FileExits)
   
4. if(FileExits)
   
5.     open_file(File_Name,'append',FileHandle)
   
6. else
   
7.     open_file(File_Name,'output',FileHandle)
   
8. endif
   
9. 
   
10. for i :=0 to |ImageFiles|-1 by 1
    
11.     read_image(Image, ImageFiles[i])
    
12.     min_max_gray(Image, Image, 0, Min, Max, Range)
    
13.     fwrite_string(FileHandle,ImageFiles[i]+ ',' + 'MinGray=' + ',' + Min + ',' + 'MaxGray=' + ',' + Max + '\n')
    
14. *     stop()
    
15. endfor
    

复制代码

Halcom

1. dev_set_draw('margin')
   
2. dev_update_off()
   
3. path:='C:/DetecrionProjects'
   
4. list_image_files(path+'/Image', 'default', [], ImageFiles)
   
5. 
   
6. for i:= 0 to |ImageFiles|-1 by 1
   
7.     imagepath := ImageFiles[i]
   
8.     tuple_split(imagepath,'/',Substrings)
   
9.     imagename := Substrings[|Substrings|-1]
   
10.     tuple_split(imagename, '.jpg', Substrings1)
    
11.     imagenameN := Substrings1[0]
    
12.     read_image(Image, path+'/'+'Mask' + '/' + imagenameN+'.png')
    
13.     threshold(Image, Region, 0, 128)
    
14.     connection(Region, ConnectedRegions)
    
15.     select_shape_std(ConnectedRegions, SelectedRegions, 'max_area', 70)
    
16.     union1(SelectedRegions, RegionUnion)
    
17.     smallest_rectangle1(RegionUnion, Row1, Column1, Row2, Column2)
    
18.     Class :=0
    
19.    
    
20.     File_Name := path+'/'+'Mask' + '/' +imagenameN + '.xml'
    
21.     file_exists(File_Name,FileExits)
    
22.     if(FileExits)
    
23.         delete_file(File_Name)
    
24.         open_file(File_Name,'append',FileHandle)
    
25.     else
    
26.         open_file(File_Name,'output',FileHandle)
    
27.     endif
    
28.    
    
29.     fwrite_string(FileHandle,imagepath+ ';' + Row1 + ',' + Column1 + ',' + Row2 + ',' + Column2+','+ Class + '\n')
    
30.    
    
31.     close_file(FileHandle)
    
32. endfor

复制代码