Question

我发现在常见的lisp中没有类似Java SimpleDateFormat的强大工具。

我很难理解SimpleDateFormat的原则，所以我必须这样做自己写。我写了一个函数'date-formatter'，但我觉得它太难看了，并且存在一些错误。

你能解释SimpleDateFormat如何实现或提供强大的功能

(defparameter *pattern-char* "yMdhHmsS")

功能DATE-FORMATTER：

(defun date-formatter (pattern str)
  (let ((year nil)
        (month nil)
        (day nil)
        (hour nil)
        (minite nil)
        (second nil)
        (index nil))
    (do* ((index 0 (+ 1 index))
          (c (subseq *pattern-char* index (+ 1 index))
             (subseq *pattern-char* index (1+ index)))
          (p  (concatenate 'string c "+")
              (concatenate 'string c "+"))
          (m (cl-ppcre:scan-to-strings p pattern)
             (cl-ppcre:scan-to-strings p pattern)))
         ((= index (1- (length *pattern-char*))))
      (if m
          (let* ((i (subseq str (search m pattern)
                            (+ (length m) (search m pattern)))))
            (cond ((< 0 (length (cl-ppcre:scan-to-strings "y+" m)))
                   (setf year (parse-integer i)))
                  ((< 0 (length (cl-ppcre:scan-to-strings "M*" m)))
                   (setf month (parse-integer i)))
                  ((< 0 (length (cl-ppcre:scan-to-strings "d*" m)))
                   (setf day (parse-integer i)))
                  ((< 0 (length (cl-ppcre:scan-to-strings "H*" m)))
                   (setf hour (parse-integer i)))
                  ((< 0 (length (cl-ppcre:scan-to-strings "m*" m)))
                   (setf minite (parse-integer i)))
                  ((< 0 (length (cl-ppcre:scan-to-strings "s*" m)))
                   (setf second (parse-integer i)))
                  (t (print "error!!"))))))
    (values year month day hour minite second)))

示例：

(declaim (optimize (speed 0) (safety 3) (debug 3)))

(defun f ()
  (multiple-value-bind (year month day hour minute second)
      (date-formatter "yyyy-MM-dd HH:mm:ss" "2013-05-12 23:22:11")
    (list year month day hour minute second )))

Answer 1

local-time是一个日期和时间的图书馆，doco是here，并且最近在2个月前正在积极开发。

您可以通过在lisp shell中键入（ql：quickload：local-time）并点击return（假设您安装了quicklisp）来安装它。

这是谷歌搜索“常见的lisp日期和时间”的第3个结果，第一个结果是this link to the common lisp cookbook page on dates & times

希望他们帮忙！

<强> [编辑]

更多信息！图书馆非常酷，所以我想发布这个附录：

local-time：parse-timestring非常好，因为您可以准确指定日期时间字符串的布局方式。默认情况下，它期望日期分隔符是＃\ - 而时间分隔符是＃\：它们都是正确的（记住＃\用于指定字符），但是我必须将date-time-seperator设置为是＃\ space因为我的输入在日期和时间之间有空格。见下文！。

CL-USER> (local-time:parse-timestring "2013-01-23 12:12:12" :date-time-separator #\space) 
 @2013-01-23T12:12:12.000000Z

使用Common Lisp在Java中创建类似SimpleDateFormat的函数

1 个答案: