[原创]：去字符串内半角空格及全角空格

yuer0103 · 发表于 2005-11-3 10:57:27

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本段代码可以去除一字符串内半角空格及全角空格
(defun del_space(tex /  sub_text l_tex tex1);;;去字符串内半角空格及全角空格　
  (setq l_tex (strlen tex) tex1 "")
  (repeat l_tex
(setq sub_text (substr tex 1 1) tex (substr tex 2))
(if (and(/= sub_text " ")(/= sub_text (chr 161))) (setq tex1 (strcat tex1 sub_text)))
  )
  tex1
)

这样是否可读性更强？

[FONT=courier new]
;;;去字符串内半角空格及全角空格　
(defun del_space (tex / sub_text l_tex tex1)
(setq l_tex (strlen tex)
tex1 ""
)
(repeat l_tex
(setq sub_text (substr tex 1 1)
tex (substr tex 2)
)
(if (and (/= sub_text " ") (/= sub_text (chr 161)))
(setq tex1 (strcat tex1 sub_text))
)
)
tex1
)
[/FONT]

狂刀 · 发表于 2005-11-3 12:53:21

[php]
(defun delspace (str)
(vl-string-trim "　" (vl-string-trim " " str))
)[/php]

yuer0103 · 发表于 2005-11-3 14:24:31

在下衷心向狂刀先生致敬！但在下偏向于纯LISP方向，它具有兼容性好的特点，适合版本多！虽然它的速度欠慢，除非它不能解决问题了，则另当别论。。。。

yshf · 发表于 2005-11-3 21:11:04

狂刀先生：
为何(delspace "1 2 3 4 5　6　7　8")，会得到"1 2 3 4 5　6　7　8"，
而不是“1234578”呢？

xyp1964 · 发表于 2005-11-3 21:30:12

[FONT=courier new]
;;去字符串内半角空格及全角空格
(defun delspace (string)
(while (vl-string-search " " string)
(setq string (vl-string-subst "" " " string))
)
(while (vl-string-search "　" string)
(setq string (vl-string-subst "" "　" string))
)
string
)
[/FONT]

yuer0103 · 发表于 2005-11-3 21:35:34

命令: (del_space "1 2 3 4 5　6　7　8")
"12345678"

狂刀 · 发表于 2005-11-3 22:04:22

不好意思，我前面发的那个只是去掉前后空格：）xixi

yuer0103 · 发表于 2005-11-3 22:24:44

感谢xyp1964的鼓励，只是在下暂时还没学会怎样把代码发得更适合读一些。以后我会更加多学习！致敬！

狂刀 · 发表于 2005-11-3 23:43:10

最初由 yuer0103 发布
[B]命令: (del_space "1 2 3 4 5　6　7　8")
"12345678" [/B]

(del_space " 〈〈〈 ") -> "创?

ll_j · 发表于 2005-11-4 07:24:50

最初由 yuer0103 发布
[B]本段代码可以去除一字符串内半角空格及全角空格
(defun del_space(tex /  sub_text l_tex tex1);;;去字符串内半角空格及全角空格　
  (setq l_tex (strlen tex) tex1 "")
  (repeat l_tex
(setq sub_text (s... [/B]

全角空格的字符代码为“A1A1”，你的代码中逢“A1”即删除，会删除所有包含“A1”代码的“半个汉字”。例：
命令: (del_space "痢　选 ")          ;代码“C1A1 A1A1 D1A1 20”
"裂"                                                 ;代码“C1D1”

可以这样：[php](defun del_space (tex / sub_text l_tex tex1)
  (setq l_tex (strlen tex)
tex1  ""
  )
  (repeat l_tex
(setq sub_text (substr tex 1 1)
   tex    (substr tex 2)
)
(if (not
      (or (= sub_text " ")
            (and (= sub_text (chr 161))
               (= (ascii tex) 161)
            )
      )
      )
   (setq tex1 (strcat tex1 sub_text))
)
  )
  tex1
)[/php]
例：命令: (del_space "痢　选 ")          ;代码“C1A1 A1A1 D1A1 20”
"痢选"                                                    ;代码“C1A1 D1A1”

yuer0103 · 发表于 2005-11-4 08:31:04

非常高兴，感谢ll_j [和狂刀二位先生!以后还请多多赐教！

lintaozhou · 发表于 2008-6-30 09:25:27

太高深了，没看明白

beam_523 · 发表于 2008-7-1 19:10:50

顶，看看~

hcgg · 发表于 2008-7-3 15:55:49

学习中

userzhluserzhl · 发表于 2008-7-9 16:22:00

哪个高手搞个完整的程序出来呀，可以选取MTEXT和TEXT的

账号		自动登录	找回密码
密码			立即注册

[原创]：去字符串内半角空格及全角空格

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [原创]：去字符串内半角空格及全角空格