版主及各位高手，实用函数求助！

baozhiliang

我在明经实用函数里找到一个如下函数，但不知为什么用不了？好象也是类似于上一次的问题，里面缺少其他辅助函数文件，能否帮忙补充一下？谢谢！

baozhiliang

里面的rat函数不知怎么写？
由全路径和文件名返回不带扩展名的文件名

  

;;;==================================================================
;;; (JustStem cFileName)
;;;                由全路径和文件名返回不带扩展名的文件名。
;;;------------------------------------------------------------------
;;; 参数:
;;;                cFileName                str 要检查的完整路径
;;;------------------------------------------------------------------
;;;        返回:
;;;                [STR]       
;;;                示例:         (setq a "C:\\MyFolder\\MyFile.txt")
;;;                                        (JustStem a) ; 返回 "MyFile"
;;;------------------------------------------------------------------
(defun JustStem        (cFileName / fName DotLoc)
        (setq fName (justFName cFileName))
        (setq DotLoc (rat "." fName))
        (if        (> DotLoc 0)
                (substr fName 1 (1- DotLoc))
                fName
        ) ;_ end of if
) ;_ end of defun

陈伯雄

mccad

http://www.mjtd.com/function/alisp/037.htm

baozhiliang

baozhiliang

baozhiliang

程序是写完了，但实现的办法太笨拙了吧？

(defun c:nnn()
  (setq a "C:\\MyFolder\\MyFile.txt")
  (setq kk (JustFName a))
  (setq l (strlen kk))
  (setq ll (- l 4))
  (setq st (substr kk 1 ll))
  (setq dri (strcat "md " "f:\\mm\\" st))
  (md))
(defun JustFName (cFileName / bsLoc ColonLoc)
        ;; Check for BackSlash
        (setq bsLoc (rat "\\" cfileName))
        (if        (> bsLoc 0)
                (substr cFilename (1+ bsLoc))
                (progn
                        ;; 检查盘号 ":"
                        (setq ColonLoc (rat ":" cfileName))
                        (if        (> ColonLoc 0)
                                (substr cFilename (1+ ColonLoc))
                                cFileName
                        ) ;_ end of if
                ) ;_ end of progn
        ) ;_ end of if
) ;_ end of defun

;;;==================================================================
;;; (Rat cSearchExpression cExpressionSearched)
;;;                返回指定字符串出现在另一字符串最右边的位置的数字。
;;;------------------------------------------------------------------
;;; 参数:
;;;                cSearchExpression        [STR] - 要搜索的字符串
;;;                cExpressionSearched        [STR] - 被搜索的字符串
;;;------------------------------------------------------------------
;;;        返回:
;;;                [INT] - 字符串的位置
;;;                示例:         (setq a "A Lot of Text.")
;;;                                        (Rat "Text" a) ; 返回 10
;;;------------------------------------------------------------------
(defun Rat (cSearch cSearchIn / return SearchFor cont n)
        ;; 避开特殊字符
        (cond
                (
                 (= cSearch "\\")
                 (setq SearchFor "*`\\*")
                )
                (
                 (= cSearch ".")
                 (setq SearchFor "*`.*")
                )
                (
                 (= cSearch "#")
                 (setq SearchFor "*`#*")
                )
                (
                 (= cSearch "*")
                 (setq SearchFor "*`**")
                )
                (
                 (= cSearch "~")
                 (setq SearchFor "*`~*")
                )
                (
                 (= cSearch "-")
                 (setq SearchFor "*`-*")
                )
                (
                 (= cSearch ",")
                 (setq SearchFor "*`,*")
                )
                (
                 (= cSearch "`")
                 (setq SearchFor "*``*")
                )
                (

                 T
                 (setq SearchFor (strcat "*" cSearch "*"))
                )
        ) ;_ end of cond
       
        (cond
                (
                 ;; 确定是否匹配
                 (not (wcmatch cSearchIn SearchFor))
                 (setq return 0)
                )
                (
                 T
                 (setq n (strlen cSearchIn))
                 (setq TestStr (substr cSearchIn n))
                 (setq cont T)
                 (while        Cont
                         (if (wcmatch TestStr SearchFor)
                                 (progn
                                         (setq Cont nil)
                                         (setq return n)
                                 ) ;_ end of progn
                                 (progn
                                         (setq n (1- n))
                                         (setq TestStr (substr cSearchIn n))



                                 ) ;_ end of progn
                         ) ;_ end of if
                 ) ;_ end of while
                )
        ) ;_ end of cond
        return
) ;_ end of defun

(defun md()
  
  (command "sh" dri)
  )

龙龙仔

;;;FOR R14
;;;usage: (mm "c:\\file.txt")
;;;usage: (mm "c:\\folder")
(defun MM (A / N1 N2 N3 AA)
  (defun DO_IT (BB /)
    (setq N2 BB)
    (while (/= "\\" (substr A N2 1))
      (setq N2 (1- N2))
    )
    (setq AA (substr A (+ N2 1) (- BB N2)))
  )
  (setq N1 (strlen A))
  (setq N3 N1)
  (while (and (/= N1 0) (/= "." (substr A N1 1)))
    (setq N1 (1- N1))
  )
  (if (/= N1 0)
    (DO_IT (- N1 1))
    (DO_IT N3)
  )
)

baozhiliang

龙航运

我是一个LISP新手，请问能否给我解释一下：ASC码。有什么作用，在编程时如何用？？多谢！