文本文件的读写
写文件
*****************向文本文件写入字符串内容********************
read_image (Image, 'fabrik')
threshold (Image, Region, 0, 120)
*输出面积,行, 列
area_center (Region, Area, Row, Column)
*以输出的形式打开文件
open_file ('area.txt', 'output', FileHandle)
fwrite_string (FileHandle, '面积是:'+Area + ' 像素')
fwrite_string (FileHandle, 'ROW:'+Row + ' Column'+Column+' \n')
close_file (FileHandle)
读文件
******************读取文本文件字符串内容************************
open_file ('area.txt', 'input', FileHandle)
fread_line (FileHandle, OutLine, IsEOF1)
while (IsEOF1 != 1)
fread_line (FileHandle, OutLine, IsEOF1)
endwhile
close_file (FileHandle)
文件夹操作相关算子
遍历文件下所有文件
get_system ('example_dir', HalconExamples)
ExampleDir := HalconExamples +'\\hdevelop'
list_files (ExampleDir, ['files','recursive'], ExampleFiles)
file_name := ExampleFiles[0]
判断文件夹下是否存在某一个文件
dev_close_window ()
dev_open_window (0, 0, 512, 512, 'black', WindowHandle)
FileName := '1.jpg'
file_exists (FileName, FileExists)
if (FileExists)
disp_message (WindowHandle, '文件存在', 'window', 12, 12, 'black', 'true')
else
disp_message (WindowHandle, '文件不存在', 'window', 12, 12, 'black', 'true')
endif