|||
pro test_openu
;创建新文件
openw,lun,'c:tempa.txt',/get
;循环,依次输入6个字符
for i=0,5 do printf,lun,StrTrim(i,2)
;结束文件
free_lun,lun
;更新方式打开文件
openu,lun,'c:tempa.txt',/get
;定位到第3行
skip_lun,lun,2,/lines
;输出
printf,lun,'a'
free_lun,lun
;
;更新方式打开文件
openu,lun,'c:tempa.txt',/get,/append
;输出
printf,lun,'b'
free_lun,lun
end
Archiver|手机版|科学网 ( 京ICP备07017567号-12 )
GMT+8, 2024-9-1 22:21
Powered by ScienceNet.cn
Copyright © 2007- 中国科学报社