测试.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
结果如下
