字符串反转

王鹏_pBZlo · 发表于 2019-4-26 10:17:49

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

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

×

本帖最后由王鹏_pBZlo 于 2019-4-26 12:45 编辑

(defun stringback(o_str / new_)
(setq new_ "")
(while (/= "" o_str)
      (if (> (ascii (substr o_str 1 1)) 128)
(setq new_ (strcat (substr o_str 1 2) new_) o_str (substr o_str 3))
(setq new_ (strcat (substr o_str 1 1) new_) o_str (substr o_str 2))
      )
) new_
)

(stringback "1234")  返回"4321"
(stringback "我们")  返回"们我"

snigefqb · 发表于 2021-4-16 09:30:30

中文到底是大于127,还是大于128啊

wzjck01 · 发表于 2021-4-30 15:53:11

学习，学习。

dyjwyqz5221 · 发表于 2021-5-13 11:54:01

(xdrx-string-reverse "sdfg120")

命令: (xdrx-string-reverse "sdfg120")
"021gfds"

dyjwyqz5221 · 发表于 2021-5-13 11:58:00

自己设计的话，下面这句可能最简洁吧

(apply 'strcat (reverse (xdrx-string-regexps "." "abcd12.0东北青岛45.67")))

命令: (apply 'strcat (reverse (xdrx-string-regexps "." "abcd12.0东北青岛45.67")))
"76.54岛青北东0.21dcba"

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

[字符串] 字符串反转

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