[求助]：请问如何提取指定字符串中的子字符串？

clhclh · 发表于 2009-2-22 21:21:32

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

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

×

我想把这个"F:\\亚克力制品\\AB-309正方形高脚托盘\\"中的"AB-309正方形高脚托盘"截取出来，并赋给一个变量，用lisp怎么编写呀？谢谢

Underway · 发表于 2009-2-23 09:56:38

(setq str "F:\\亚克力制品\\AB-309正方形高脚托盘\\"
strss  nil
   nn  3
)
(while (/= (setq str (substr str (1+ nn))) "")
  (setq nn (1+ (vl-string-position 92 str)))
  (setq strss (cons  str strss))
)
(setq MyDir (substr (car strss) 1 (1- nn)))

=============================================
Command: !mydir
"AB-309正方形高脚托盘"

fflsnow · 发表于 2009-2-24 13:03:40

这里的同志们都很好啊!有问必答啊

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

[求助] [求助]：请问如何提取指定字符串中的子字符串？

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

相关帖子