IDL编程学习之去除txt文件中的空格

15195775117

附件中hushidata.txt是需要处理的数据，每行数据中有空格，现在想把空格去掉

代码：
pro t
openr,lun,'C:\Users\YGDY\Desktop\111\hushidata.txt',/get_lun
;我已经数了有752行，直接放进1列752行的字符型数组（竖着放，输出的时候不会横着排）
x=strarr(1,752)
;把数据赋给x
readf,lun,x
help,x[1]
FREE_LUN,lun
;把空格都去掉：
y=strcompress(x,/remove_all)
;输出数据
txt=txt('ttt',y)
end
;这个是输出txt的小函数
function txt,name,x
  openw,lun,'C:\Users\YGDY\Desktop\'+name+'.txt',/get_lun
  printf,lun,x
  close,/all
end

15195775117

案例2
要求，日期和时间之间的空格留着，后面的空格去掉

代码：
;先确定数据有多少行，鄙人愚笨，通过read_ascii()函数读一遍获取
a=read_ascii('C:\Users\YGDY\Desktop\222\data1.txt',data_start=0)
x=a.field1
;输出x的行数
nn=size(x)
;print,'行数是',nn[2]
;按字符串形式读取
openr,lun,'C:\Users\YGDY\Desktop\222\data1.txt',/get_lun
x=strarr(1,nn[2])
readf,lun,x
;按冒号将每行字符拆成2段，把后段的空格删掉，再拼起来
for i=1,nn[2]-1 do begin
y=strsplit(x[0,i],':',/extract)
y2=strcompress(y[1],/remove_all)
x[0,i]=y[0]+':'+y2
endfor
;输出
txt=txt('victory',x)
;用于输出txt文件,路径、文件名可自定义
function txt,name,x
  openw,lun,'C:\Users\YGDY\Desktop\'+name+'.txt',/get_lun
  printf,lun,x
  close,/all
end