循环读取文本文件时遇到的常见错误及解决方法

a &＃61; &＃39;20120203&＃39;year &＃61; fix(strmid(a,0,4))month &＃61; fix(strmid(a,4,2))day &＃61; fix(strmid(a,6,2))file &＃61; &＃39;C:\Users\Administrator\Desktop\青藏高原雪深数据集1961-2013\青藏高原雪深数据集1961-2013\Tibetan_Plateau_Snow_Depth_1961-2013\52868.txt&＃39;cnt &＃61; file_lines(file);make_array int int int;openr,lun,file,/get_lunopenr,lun,file,/get_lunfor i &＃61; 0 , cnt-1 do beginreadf,lun,c,y,m,d,ddif fix(y) eq year and fix(m) eq month and fix(d) eq day then beginprint,ddendifendforfree_lun,lun

单个读取的时候就没错批处理循环就会报错

1、解决报错

2、降低复杂度

bug消失&＃xff0c;不知道之前那种为啥一直报错&＃xff0c;应该是读取 readf,lun,c,y,m,d,dd这句的问题

a &＃61; &＃39;20120203&＃39;year &＃61; fix(strmid(a,0,4))month &＃61; fix(strmid(a,4,2))day &＃61; fix(strmid(a,6,2))file &＃61; &＃39;C:\Users\Administrator\Desktop\青藏高原雪深数据集1961-2013\青藏高原雪深数据集1961-2013\Tibetan_Plateau_Snow_Depth_1961-2013\&＃39;files &＃61; file_search(file,&＃39;*.txt&＃39;,count&＃61;cnt)for i&＃61;0,cnt-1 do beginopenr,lun,files[i],/get_lunn &＃61; file_lines(files[i])temp&＃61;&＃39;&＃39;for j &＃61; 0 , n-1 do beginreadf,lun,temphelp,temp[0]print,temp[0];readf,lun,c,y,m,d,ddtem &＃61; strsplit(temp[0],&＃39; &＃39;,/extract)help,tem; if fix(y) eq year and fix(m) eq month and fix(d) eq day then begin
; print,dd
; endif; if fix(temp[1]) eq year and fix(temp[2]) eq month and fix(temp[3]) eq day then begin
; print,temp[4]
; endifendforfree_lun,lunendfor

 这种是直接按行读取&＃xff0c;出来是字符串数组&＃xff0c;取第一个进行分割处理

还有一种想法是全部读取到数组中&＃xff0c;然后进行查找

还有就是修改readf,lun,c,y,m,d,dd&＃xff0c;控制一下格式

pro tib_testCOMPILE_OPT IDL2,hiddene&＃61;envi(/headless)
; file &＃61; &＃39;E:\data\BT\bt_500\FY3B_MWRID_GBAL_L1_20130102_2020_010KM_MS_result.tif&＃39;
; ;E:\data\wendu_lc_500_dem\A20121220.tif
; ;根据bt的日期构造温度文件名&＃xff0c;打开&＃xff0c;站点坐标转温度文件坐标 xf_t yf_t 文件号fid_bt
; ;下面站点循环构造dim_t
; t_name &＃61; strsplit(file,&＃39;_&＃39;,/extract)
; t_file &＃61; &＃39;E:\data\wendu_lc_500_dem\A&＃39;&＃43;t_name[5]&＃43;&＃39;.tif&＃39;
; temp &＃61; t_name[5]
; print,strmid(temp,0)
; print,t_file
; envi_open_file,t_file,r_fid &＃61; t_fid
; print,t_fid ; fn&＃61;&＃39;C:\Users\Administrator\Desktop\tibtation.csv&＃39;;
; data&＃61;READ_CSV(fn,count&＃61;nsta,header&＃61;header);
; point_fid&＃61;data.(0);
; id&＃61;data.(1);站点纬度
; print,id[0]
; help,id; pos &＃61; 0
; cnt &＃61; replicate(0,20)
; path &＃61; &＃39;C:\Users\Administrator\Desktop\青藏高原雪深数据集1961-2013\青藏高原雪深数据集1961-2013\Tibetan_Plateau_Snow_Depth_1961-2013&＃39;
; files &＃61; file_search(path,&＃39;*.txt&＃39;,count&＃61;n)
; print,n
; for i &＃61; 0 , n - 1 do begin
; ;openr,lun,files[i],/get_lun
; ;print,files[i],file_lines(files[i])
; if file_lines(files[i]) eq 19358 then begin
; cnt[pos] &＃61;
; endif
; endfor
; file &＃61; &＃39;C:\Users\Administrator\Desktop\青藏高原雪深数据集1961-2013\青藏高原雪深数据集1961-2013\Tibetan_Plateau_Snow_Depth_1961-2013\52868.txt&＃39;;openr,lun,file,/get_lun;file_lines;free_lun,luna &＃61; &＃39;20120203&＃39;year &＃61; fix(strmid(a,0,4))month &＃61; fix(strmid(a,4,2))day &＃61; fix(strmid(a,6,2))file &＃61; &＃39;C:\Users\Administrator\Desktop\青藏高原雪深数据集1961-2013\青藏高原雪深数据集1961-2013\Tibetan_Plateau_Snow_Depth_1961-2013\&＃39;files &＃61; file_search(file,&＃39;*.txt&＃39;,count&＃61;cnt)for i&＃61;0,cnt-1 do beginopenr,lun,files[i],/get_lunn &＃61; file_lines(files[i]);temp&＃61;&＃39;&＃39;for j &＃61; 0 , n-1 do begin;readf,lun,temp;help,temp[0];print,temp[0]; readf,lun,format&＃61;&＃39;(i6,i5,i3,i3,i1)&＃39;,c,y,m,d,dd
; print,c,y,m,d,ddreadf,lun,c,y,m,d,dd;print,c,y,m,d,dd;tem &＃61; strsplit(temp[0],&＃39; &＃39;,/extract);help,temif fix(y) eq year and fix(m) eq month and fix(d) eq day then beginprint,ddendif; if fix(temp[1]) eq year and fix(temp[2]) eq month and fix(temp[3]) eq day then begin
; print,temp[4]
; endifendforfree_lun,lunendfor;make_array int int int;openr,lun,file,/get_lunend

。。。知道了

bug是long