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

(defun lispru-string-right-part (string delim_char)
;;; возврат правой половины строки после разделителя
;;; Использует функцию библиотеки
    ;;;                 _dwgru-string-some-part
    ;;; Параметры: 
    ;;; string     - исходная строка
    ;;; delim_char  - разделитель (string)
    ;;; Возврат:
    ;;;   строку (String)
  
    ;;; Пример:
  
;|
(lispru-string-right-part " M1:=100" "=")   ;_Результат  "100"
(lispru-string-right-part " M= M1:=100" "=") ;_Результат  "100"
(lispru-string-right-part "просто строка" "=") ;_Результат   "просто строка"
(lispru-string-right-part "просто=" "=")  ;_ ""
(lispru-string-right-part "890" ".")  ;_Результат  ""
(lispru-string-right-part ".2" ".")  ;_Результат  2
(lispru-string-right-part "2" ".")  ;_Результат  "" 
(lispru-string-right-part "2.400" ".") ;_Результат  "400"
|;
    (_lispru-string-some-part string delim_char NIL)
) ;_ end of defun