[молодой человек]

Здравствуйте! Подскажите, пожалуйста.
Есть переменные :
(setq rr "5\\Pшаг 250")
(setq n "1")
Конечный результат:
(setq kon "1\\Pшаг 250").
Заранее спасибо

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

Код:

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

(setq kon (strcat n rr))

[молодой человек]

Спасибо за ответ, но мне надо не соединить, а заменить первый символ ограниченный знаком -"\\" на переменную n. То есть:
(setq rr "100\\Pшаг 250")
(setq n "10")
Конечный результат:
(setq kon "10\\Pшаг 250").

или
(setq rr "кк\\Pшаг 250")
(setq n "1")
Конечный результат:
(setq kon "1\\Pшаг 250").

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

В таком случае надо либо четко знать, сколько символов сначала строки заменять, либо четко определять "разделитель". Для варианта "разделителя" = "\\":

Код:

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

(strcat n (substr rr (1+ (vl-string-search "\\" rr))))

[молодой человек]

То что надо!!! Большое Вам спасибо!

[ALFMario]

А если такая ситуация
(setq text "asdf_fgh_hjk")
надо заменить все "_" на пробел что бы получилось "asdf fgh hjk"

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

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

[motor-serg]

Offtop: не фигасе темы

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

motor-serg, :?:

[motor-serg]

это хоть к чему относиться?

[ALFMario]

я сделал так
(while (VL-STRING-SEARCH "_" text) (setq text (VL-STRING-SUBST " " "_" text)))

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

ALFMario, а если надо заменить "_" на "_123" ?

[Елпанов Евгений]

для замены единичных символов, те. одни символ на другой, лучше использовать встроенную функцию:

Код:

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

(setq text (vl-string-translate "_" " " text))

Из плюсов, можно заменить сразу весь алфавит на другой, не говоря уже о отдельном знаке...

Код:

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

(setq text (vl-string-translate "123" "abc" text))

заменит 1 на a, 2 на b, 3 на c.

[Дима_]

Я посоветую для строк использовать 2 функци vl-string->list, vl-list->string, а все остальное стандартными функциями для списков.