;+
; @hidden_file
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;                                                                              ;
; LENGTHV2 v. 2.5, 10 May 2006.                                                ;
; Jesús Maíz Apellániz, STScI                                                  ;
;                                                                              ;
; This function calculates the length of a simple string variable.             ;
;                                                                              ;
; Positional parameters:                                                       ;
; vs:     Input string.                                                        ;
;                                                                              ;
; Version history:                                                             ;
; v1.0:   General clean up.                                                    ;
; v2.0:   English version.                                                     ;
; v2.1:   IDLdoc documentation.                                                ;
; v2.5:   Version system update.                                               ;
;                                                                              ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;-
FUNCTION LENGTHV2, vs
ON_ERROR, 1
;
; Inicialización de datos y parámetros
;
n       = N_ELEMENTS(vs)
length  = STRLEN(vs)
;
; Bucle principal
;
FOR i=0,n-1 DO BEGIN
 WHILE STRPOS(vs[i],'!') NE -1 DO BEGIN
  pos = STRPOS(vs[i],'!')
  IF pos EQ 0           THEN vaux = STRMID(vs[i],2,length[i]-2) ELSE $
  IF pos EQ length[i]-2 THEN vaux = STRMID(vs[i],0,length[i]-2) ELSE $
   vaux = STRMID(vs[i],0,pos) + STRMID(vs[i],pos+2,length[i]-pos-2)
  vs[i] = vaux
  length[i] = length[i] - 2
 ENDWHILE
ENDFOR
RETURN, length

END