利用IDL将一个txt文档拆分为多个

测试.txt文档，每47行的格式相同，通过代码每47行存为一个txt，txt文档命名为其第一行数据。

代码如下：

file='G:\data\测试.txt'

openr,lun,file,/Get_Lun   ;打开文件
fline= file_lines(file)
txt_01=47                   ;每47行为一个单位
for l=0L,fline-1,txt_01 do begin
name_s=strArr(1)        ;读取第一行
readf, lun, name_s
name_sub = string(Strsplit(name_s,' ', /extract)) ;将读取的纯数据按空格进行划分
file_sub = strArr(46)    ;读取剩下46行
readf, lun, file_sub
openw,lun_sub,'G:\data\子文件\'+name_sub+'.txt',/Get_Lun
printf, lun_sub, file_sub
free_lun, lun_sub
endfor
free_lun, lun

结果如下