pro stone read,m,prompt='Please enter the number of columns:' READCOL,'/root/dat/stone2000',F='f',a n=n_elements(a)/m c=strarr(m);建立含有m个成员的数组 openw,1,'/root/dat/stone'
for i=0,m-1 do begin b=string(i);将n转换为字符串类型,通过strlen(b),可以看到b的长度为8 b=strtrim(b,1);将字符串中的空格去掉 c[i]='a[i+'+b+'*n]' endfor h=c[0] for i=1,m-1 do begin h=h+','+c[i] endfor ;h=a[i+0*n],a[i+1*n],a[i+2*n],a[i+3*n],a[i+4*n],a[i+5*n],a[i+6*n],a[i+7*n]...... for i=0,n-1 do begin flag=execute('printf,1,'+h);别忘了加号哦,execute将字符转换为变量 endfor close,1 end 注:建议6列以下(包括6列)