source: trunk/SRC/ToBeReviewed/STRING/delchr.pro @ 327

;+
;
; @file_comments
; Delete all occurrences of a character from a text string.
; 
; @categories
;
; @param OLD {in}{required}
; original text string.
; 
; @param C {in}{required}
; character to delete.
;
; @keyword HELP
;
; @returns
; new = resulting string.
; 
; @history
;       R. Sterner.  5 Jul, 1988.
;       Johns Hopkins Applied Physics Lab.
;       RES 11 Sep, 1989 --- converted to SUN.
;       R. Sterner, 27 Jan, 1993 --- dropped reference to array.
;
; Copyright (C) 1988, Johns Hopkins University/Applied Physics Laboratory
; This software may be used, copied, or redistributed as long as it is not
; sold and this copyright notice is reproduced on each copy made.  This
; routine is provided as is without any express or implied warranties
; whatsoever.  Other limitations apply as described in the file disclaimer.txt.
;
; @version
; $Id$
;
;-
FUNCTION delchr, old, c, HELP=hlp
;
  compile_opt idl2, strictarrsubs
;
 
if (n_params(0) lt 2) or keyword_set(hlp) then begin
  ras = report(['Delete all occurrences of a character from a text string.', $
  ' new = delchr(old, char)', $
  '   old = original text string.     in' , $
  '   char = character to delete.     in' , $
  '   new = resulting string.         out'])
  return, -1
endif
 
B = BYTE(OLD) ; convert string to a byte array.
CB = BYTE(C)  ; convert char to byte.
w = where(b ne cb[0])
if w[0] eq -1 then return, '' ; Nothing left.
return, string(b[w]) ; Return new string.
END