IDL中将字符串转为double类型的数组的函数StringToDoubleArray

;============================================================== ;StringToDoubleArray ;============================================================== Function StringToDoubleArray,DblStr,DoubleArray,Count ;用法IDL>Status=StringToDoubleArray(DblStr,DoubleArray,Count) ;DblStr要转换的字符串,字符串可以是'1.23 ,3.4;0.3 E2.2 afd 3er.7 ' ;DoubleArray保存double类型的数组 ;Count总共可以提取多少个double类型的数 ;返回是否成功的标志 ;---------------------------------------------------------------- Count=0 ;---------------------------------------------------------------- ;先对\t处理一下 Stab=STRSPLIT(DblStr, STRING(9b),/EXTRACT) str=STRJOIN(Stab, ' ') Si=STRSPLIT(Str,'[;,: ]',/EXTRACT,/REGEX) ;---------------------------------------------------------------- nn = n_elements(Si) ;---------------------------------------------------------------- if (nn GT 0) then begin DoubleValue=findgen(nn) LineSize=UINDGEN(nn) ;------------------------------------ for n=0L,nn-1 DO BEGIN valid=IsDoubleString(Si[n]) if (valid GT 0) then begin DoubleValue[n]=fix(Si[n],type=5) LineSize[n]=1; endif else begin DoubleValue[n]=0 LineSize[n]=0; endelse endfor ;------------------------------------ count=total(LineSize); index=where(LineSize GT 0) ;------------------------------------ if (count GT 0) then begin DoubleArray=DoubleValue[index] endif ;------------------------------------ return,1 ;------------------------------------ endif else begin return,0 end ;---------------------------------------------------------------- END