这个函数有什么作用？

Smile cop · 发表于 2014-4-6 10:38:42

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

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

×

  下面这个函数有哪些作用？用在哪的？
(defun find( str1 str2 / pos len found ret len1 )
      (setq pos 1 found 0)
      (setq len (strlen str1) )
   (setq len1 (strlen str2) )
   (while ( <= pos len )
   (if (= str2 (substr str1 pos len1 ) )
(progn
( setq found pos )
( setq pos len ) ) )
( setq pos (1+ pos ) ) )
( setq ret found ))

Lisphk · 发表于 2014-4-7 00:48:14

看来是字符串查找的，查找str2是否在str1,如果找到，返回字符位置。

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

[求助] 这个函数有什么作用？

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