[讨论]：再次发如何删除“字符串”

cqxt00

如何删除空格字符串：如
“       晓东CAD” 删除后得到“晓东CAD”
“           晓东CAD空间” 删除后得到“晓东CAD空间”
“   晓东CAD空间家园” 删除后得到“晓东CAD空间家园”

注意：
空格字符串的长度不知道 后面要保留的字符长度也是不定的

eachy

Removes the specified characters from the beginning and end of a string

(vl-string-trim char-set str)

Arguments

char-set

A string listing the characters to be removed.

str

The string to be trimmed of char-set.

Return Values

The value of str, after any characters have been trimmed.

Examples

_$ (vl-string-trim " \t\n" " \t\n STR \n\t ")
"STR"
_$ (vl-string-trim "this is junk" "this is junk Don't call this junk! this is junk")
"Don't call this junk!"
_$ (vl-string-trim " " "      Leave me alone        ")
"Leave me alone"

xyp1964

老大说得没错：
[php]
(vl-string-trim " “”" string)
[/php]

ll_j

ai_utils.lsp中有相关的函数：
[php];;;
;;; (ai_strtrim <string> )
;;;
;;; Trims leading and trailing spaces from strings.
(defun ai_strtrim (s)
  (cond
    ((/= (type s) 'str) nil)
    (t (ai_strltrim (ai_strrtrim s)))
  )
)
(defun ai_strltrim (s)
  (cond
    ((eq s "") s)
    ((/= " " (substr s 1 1)) s)
    (t (ai_strltrim (substr s 2)))
  )
)
(defun ai_strrtrim (s)
  (cond
    ((eq s "") s)
    ((/= " " (substr s (strlen s) 1)) s)
    (t (ai_strrtrim (substr s 1 (1- (strlen s)))))
  )
)
[/php]

自由的鱼

Sub tt()
Dim ent As AcadText
For Each ent In ThisDrawing.ModelSpace
    ent.TextString = Trim(ent.TextString)
Next

End Sub