[DEMOGOG]

Дублирование темы (случайно)

[E-degtyarev]

Поиграйся функциями STRLEN, SUBSTR, STRCAT и циклом REPEAT или WHILE.
А вообще-то есть команда _find.

[Nike]

http://www.caduser.ru/forum/index.ph...D=44&TID=46551

[Дима_]

А еще лучше vl-string->list, vl-list->string и mapcar '(lambda ...

Код:

[Выделить все]

(defun change (a b str)
(apply 'strcat (mapcar '(lambda (x) (if (= x a) b x)) (mapcar 'chr (vl-string->list str))))
);end of change

(change "а" "A" "проверочная строка")
"проверочнAя строкA"

[DEMOGOG]

-> E-degtyarev
STRLEN, SUBSTR, STRCAT - вариант, но долго и муторно.
Команда _find - для текста в рисунке, а я речь веду про промежуточные строки, которые сидят в переменных и их нужно обработать соответствующим образом

[Кулик Алексей aka kpblc]

http://forum.dwg.ru/showthread.php?t=15661

[VVA]

Другие реализации предложения из #4:
trans-from-rus-to-translit и trans-from-en-to-rus

[DEMOGOG]

-> Nike и Дима_
с приставкой vl- в инфрасофткад не работает ((

-> kpblc
интересная ветка, пока разбираюсь, спасибо

[Дима_]

ну вместо vl-string->list подойдет

Код:

[Выделить все]

(defun strtolist (str)
(if (/= str "") (cons (ascii (substr str 1 1)) (strtolist (substr str 2 (strlen str)))))
);end of defun

[E-degtyarev]

Вот набросок на скорую руку без vl, vla, vlax.
Естественно это "болван", требующий доработки.

Код:

[Выделить все]

(defun C:ss ()
(setq pref "")
(setq stroka "ПРИВЕТ")
(setq stroka_old "И")
(setq stroka_new "Ю")
(setq dlina (strlen stroka))
(setq suff stroka)
(setq i 0)
(repeat	dlina
  (setq telo (substr suff 1 1))
  (setq suff (substr suff 2))
  (setq pref (substr stroka 1 i))
  (if (= telo stroka_old)
    (setq stroka1 (strcat pref stroka_new suff))
  )
  (setq i (+ 1 i))
)
(print stroka)
(print stroka1)
)

[CB]

Код:

[Выделить все]

(defun replace_str (x y str / symb new-str)
 (setq new-str "")
 (while (not (equal str ""))
  (setq symb (substr str 1 1)
        str  (substr str 2)
  ) ;_  setq
  (if (equal symb x)
   (setq new-str (strcat new-str y))
   (setq new-str (strcat new-str symb))
  ) ;_  if
 ) ;_  while
) ;_  defun
(replace_str "о" "О" "проверочная строка")
->"прОверОчная стрОка"