;;; ************************************************************************
;;; * Библиотека DWGruLispLib Copyright ©2007  DWGru Programmers Group
;;; *
;;; * _dwgru-string-some-part
;;; *
;;; * 03/12/2007 Версия 0001.  Сергей Зуев   (ShaggyDoc)
;;; ************************************************************************


(defun _lispru-string-some-part
                              (string delim_char is_left_part / lst)
    ;;;  возврат левой (если is_left_part)или правой части
    ;;;  строки string с разделителем  delim_char
    ;;; Использует функцию библиотеки
    ;;;                 dwgru-string-to-list

    ;;; Параметры: 
    ;;; string     - исходная строка
    ;;; delim_char  - разделитель (string)
    ;;; is_left_part  - T или NIL. Если истина (T), то слева. Иначе справа. (boolean)
    ;;; Возврат:
    ;;;   строку (String)
  
    ;;; Пример:
  ;|
(_lispgru-string-some-part " M1:=100" "=" T) ;_Результат   " M1:"
(_lispru-string-some-part " M1:=100" "=" NIL)  ;_Результат  "100"
(_lispru-string-some-part " M= M1:=100" "=" T) ;_ Результат  " M"
(_lispru-string-some-part " M= M1:=100" "=" NIL) ;_ Результат  "100"
(_lispru-string-some-part "просто строка" "=" T)  ;_ Результат  "просто строка"
(_lispru-string-some-part "просто строка" "=" NIL) ;_Результат   ""
|;
  (if (> (length (setq lst
                        (lispru-string-to-list string delim_char)
                 ) ;_ end of setq
         ) ;_ end of length
         1
      ) ;_ end of >
    ;; если список, иначе была просто строка
    (if is_left_part (car lst) (last lst))
    (if is_left_part string "")
  ) ;_ end of  if
) ;_ end of defun