IDL程序确定文本文件行列数

pro txt_read

filename='1.txt'

openr,1,filename

str=' '

readf,1,str

parameters=n_elements(strsplit(str,' '))

print,parameters

line=file_lines(filename)

print,line

free_lun,1

end