IDL8.3字符串替换函数(替代IDL8.5的replace)

15195775117

因为IDL8.3不支持字符串内替换方法---string.replace('...','...')今天写了个函数来代替xx---被替换字符串数组，其中每个元素字符串都要替换t1---需要替换的字符串由于strput函数智能等长替换，所以这里的替换只能用短串代替长串
pro str_replace,xx,t1
;xx=['111;Noise_222','33;Noise_44','5;Noise_6',';Noise_77','8;Noise_']
;;被替换的字符：
;t1=';Noise_'
n=n_elements(xx)
for i=0,n-1 do begin
;需要被替换的单个字符串：
x=xx
;被替串的长度
len=strlen(t1)
;等长空格串，一个逗号加若干个空格：
t2=strjoin(strarr(len-1)+' ')
t2=strjoin([',',t2],'');找到被替串的起始位置：
p=strpos(x,t1);把新串换进去：
strput,x,t2,p;覆盖原字符串数组
xx=strtrim(x,2)
endfor
end