FUNCTION STR_CHOP, strings, substr
;
   ON_ERROR, 2
   IF N_PARAMS() NE 2 THEN BEGIN
      MESSAGE, 'Syntax: result = str_chop(strings, substr)'
   ENDIF
   IF datatype(strings) NE 'STR' OR datatype(substr) NE 'STR' THEN BEGIN
      PRINT, 'Input parameters must be string type.'
      RETURN, -1
   ENDIF
   aa = strings
   bb = grep(substr,aa,index = idx)
   IF bb(0) EQ '' THEN RETURN, aa
   FOR i = 0, N_ELEMENTS(bb)-1 DO BEGIN
      temp = str_sep(bb(i),substr)
      bb(i) = arr2str(temp,'')
   ENDFOR
   aa(idx) = bb(idx)
   RETURN, aa
END

;---------------------------------------------------------------------------
; End of 'str_chop.pro'.
;---------------------------------------------------------------------------