(progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))

(progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""org/@"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))

;; @lisp 函数库帮助与支持，查询的函数均以 ui:confirm1 为示例 (fun:list) ;; 列出所有@lisp函数 (fun:usage 'ui:confirm1) ;; 显示函数 ui:confirm1 用法 (fun:help 'ui:confirm1) ;; 显示函数 ui:confirm1 用法 (fun:src 'ui:confirm1) ;; 显示函数 ui:confirm1 的定义源码 (fun:search "ui:");; 搜索函数库中 ui: 相关的函数 (fun:run-example funname) ;; 如果函数有示例代码，则运行示例 (fun:e.g funname) ;; 如果函数有示例代码，则运行示例 ;; 调用示例 (require 'ui:confirm1) ;; 加载用户确认对话框函数 (ui:confirm1 '("你家门口有两双鞋。" "一双是你的。" "另一双也是你的。" ) "是-否")

用法及说明
源码

re:match

说明：正则表达式匹配索字串. pattern 为以/开头及以/+修饰符结尾的字串，\ 需写成 \\ 形式。

用法：

 (re:match pattern string)

参数：1 pattern : 未识别定义;2 string : 字符串;

返回值：List

示例：

(re:match "/ab/g" "cabcdabcd")

(defun re:match (pattern string / regex s pos len str l flags)
  "正则表达式匹配索字串. pattern 为以/开头及以/+修饰符结尾的字串，\\ 需写成 \\\\ 形式。"
  "List"
  "(re:match \"/ab/g\"
    \"cabcdabcd\")"
  (setq lst-p (string:to-list pattern "/"))
  (setq flags (strcase (last lst-p)
      t))
  (setq pattern (string:from-lst (reverse (cdr (reverse (cdr lst-p))))
      "/"))
  (setq regex (vlax-create-object "Vbscript.RegExp"))
  (mapcar (quote (lambda (x)
        (vlax-put-property regex x 0)))
    (quote ("Global"
        "IgnoreCase"
        "Multiline")))
  (foreach f (vl-string->list flags)
    (cond ((= f (ascii "g"))
        (vlax-put-property regex "Global"
          1))
      ((= f (ascii "i"))
        (vlax-put-property regex "IgnoreCase"
          1))
      ((= f (ascii "m"))
        (vlax-put-property regex "Multiline"
          1))))
  (vlax-put-property regex "Pattern"
    pattern)
  (setq s (vlax-invoke-method regex (quote execute)
      string))
  (vlax-for o s (setq str (vlax-get-property o "value"))
    (setq l (cons str l)))
  (vlax-release-object regex)
  (reverse l))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

re:match

上传记录