[求助]：菜鸟求助提出字符

bingtwo · 发表于 2005-8-10 14:22:09

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

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

×

在autoliap中,setq s (getvar "cDATE"))得到系统的日期:20050810.14180358(只读)
可否有有命令像car那样,从左到右一个一个字的提取到不同的变量中

qjcpj · 发表于 2005-8-10 14:38:13

请查看substr函数的帮助文件。

yshf · 发表于 2005-8-10 14:48:07

;用此行: (setq s (mapcar '(lambda(x)(chr x)) (vl-string->list (rtos (getvar "cdate") 2 20)))) 可达到目的
;Command: (setq s (mapcar '(lambda(x)(chr x)) (vl-string->list (rtos (getvar "cdate") 2 20))))
;("2" "0" "0" "5" "0" "8" "1" "0" "." "1" "4" "4" "4" "2" "2" "3" "4")

网络水手 · 发表于 2005-8-11 10:03:16

不错!

bingtwo · 发表于 2005-8-11 10:27:01

好强啊,就是看不大懂

Underway · 发表于 2005-8-11 13:48:41

Command: (menucmd "M=$(edtime,$(getvar,date),YY-MO-DD)")
"05-08-11"

Command: (menucmd "M=$(edtime,$(getvar,date),YY/MO/DD)")
"05/08/11"

Command: (menucmd "M=$(edtime,$(getvar,date),YY MO DD)")
"05 08 11"

Command: (menucmd "M=$(edtime,$(getvar,date),YYYY MO DD)")
"2005 08 11"

Command: (menucmd "M=$(edtime,$(getvar,date),YYYY)")
"2005"

Command: (menucmd "M=$(edtime,$(getvar,date),Mo)")
"08"

Command: (menucmd "M=$(edtime,$(getvar,date),DD)")
"11"

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

[求助] [求助]：菜鸟求助提出字符

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

相关帖子