[Yuzer]

Доброго времени всем.
Наверное многие сталкывались с ситуацией, когда МТекст банально взорван и приходится его заново восстанавливать.
Через экспрессы это легко делается.
Но во время редактирования содержимого очень много лишних пробелов (нумерацией не все пользуются и о чудесных свойствах Tab и Shift+Tab тоже не все догадываются), особенно когда хотят наделать отступы.
Или подобная ситуация при копировании текста из ворда....

Может укажете на лисп, который бы чистил лишние пробелы (оставлял по одному между словами)?

Заранее спасибо.

[Li6-D]

Долго не думая:

Код:

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

 (defun test (s)
  ;;Функция по удалению лишних пробелов из строки,
  ;;включая все пробелы в начале и в конце строки
  (vl-list->string
    (vl-remove-if '(lambda (s1) (= s (setq s s1) 32))
      (vl-string->list (vl-string-trim " " s))
) ) )

Код:

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

Команда: (test "      LISP.      Лисп,           удаляющий          лишнее           пробелы  ")
"LISP. Лисп, удаляющий лишнее пробелы"

[Yuzer]

Запустить его не получилось....

defun test ()<Чего-то делаем 2>) Можно будет вызывать только так: Команда : (test) И будут выполнены действия <Чего-то делаем 2>. С точки зрения AutoCAD'a это 2 разных модуля.

Исходя из статьи - нужно ввести в комстроку: (str / s0)?

Команда: (str / s0) ; ошибка: no function definition: STR

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

Yuzer, так ведь пример вызова показан же!

[Yuzer]

Все - теперь понял. Спасибо - получилось. Я так тож пробовал, только малость непривычно, что через Ф2 доставать нужно.
Я думал он будет работать по принципу выбора объекта и сразу себя на это настравивал..

[Yuzer]

Такой вопрос: у меня лист общих данных сделаный через МТекст, 3/4 А1 формата. С этим чего-то не получается...
Я правильно понимаю, делать нужно (test(содержимое МТекста))?

[Дима_]

Сообщение от Yuzer (test(содержимое МТекста))

После этого ты получешь содержимое текста без двойных пробелов, его еще надо записать в тот-же текст.
То есть что-то вроде ((lambda (obj) (vla-put-textstring obj (test(vla-get-textstring obj)))) (vlax-ename->vla-object ent))
где ent указатель на text/mtext.

[МишаИнженер]

Простая программа удаляющая все пробелы из строки:

Код:

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

 (defun StrTrim(str / i j NewStr SChr)
;Функция удадяет пробелы из строки
	(setq i 1 j (strlen str) NewStr "")
	(while (<= i j)
		(setq SChr (substr str i 1))
		(if (/= SChr " ")
		(setq NewStr (strcat NewStr SChr)))
		(setq i (+ i 1))
	)
	NewStr
) ;_ end of defun StrTrim

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

Сообщение от МишаИнженер Простая программа удаляющая все пробелы из строки: Код: [Выделить все] (defun StrTrim(str / i j NewStr SChr) ;Функция удадяет пробелы из строки (setq i 1 j (strlen str) NewStr "") (while (<= i j) (setq SChr (substr str i 1)) (if (/= SChr " ") (setq NewStr (strcat NewStr SChr))) (setq i (+ i 1)) ) NewStr ) ;_ end of defun StrTrim

У тебя тут сносятся вообще все пробелы, в отличии от #2. Скорость работы тоже вызывает вопросы:

Код:

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

_$ (setq str "      LISP.      Лисп,           удаляющий          лишнее           пробелы  ")
"      LISP.      Лисп,           удаляющий          лишнее           пробелы  "
_$ (test str)
"LISP. Лисп, удаляющий лишнее пробелы"
_$ (strtrim str)
"LISP.Лисп,удаляющийлишнеепробелы"
_$ (BENCHMARK '((test str) (strtrim str)))
Benchmarking ................Elapsed milliseconds / relative speed for 8192 iteration(s):

    (TEST STR)........1813 / 2.14 <fastest>
    (STRTRIM STR).....3875 / 1 <slowest>
_$

[1958]

Сообщение от Кулик Алексей aka kpblc У тебя тут сносятся вообще все пробелы, в отличии от #2.

Ну, так он честно написал:

Сообщение от МишаИнженер Простая программа удаляющая все пробелы из строки

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

Ну а если посмотреть на стартовый пост темы?