查看“文件输入输出”的源代码

*判断一个文件是否存在
:xidl中有一个exist程序
::if exist('input.dat') then print,'Yes' else print,'No'

*文件打开
: openr,lun,/get_lun ；读取
:: readf读取
: openw,lun,/get_lun ;写入
:: printf写入
::: 格式使用 [[format格式符|format语句]]

* 将文件指针指向文件开头
: point_lun,lun,0

* 跳过文件开头n行
: skip_lun,lun,N,/lines

* 判断是否达到文件结束 EOF
 WHILE ~ EOF(lun) DO BEGIN ; ~ 逻辑非运算
    READF,lun, A 
 ENDWHILE 

* 文件指针关闭close之后，还需要释放free_lun