qq3475534 发表于 2011-4-23 02:05:05

请教个自动到期的问题，ROS3.3

本帖最后由 qq3475534 于 2011-4-23 02:05 编辑

:global aabb {{"jan";"01"};{"feb";"02"};{"mar";"03"};{"apr";"04"};{"may";"05"};{"jun";"06"};{"jul";"07"};{"aug";"08"};{"sep";"09"};{"oct";"10"};{"nov";"11"};{"dec";"12"}};
:global aa [:pick 0 3];
:global bb [:pick 4 6];
:global cc [:pick 7 11];
:foreach i in=$aabb do={ :if ([:pick $i 0] = $aa) do={ :set aabb ($cc . [:pick $i 1] . $bb); }}
/ppp secret;
:foreach p in do={
:local pcom ;
:local pnam ;
:if ([:len $pcom] != 8) do={ :set pcom 20010101; } else={
:set pcom [:pick $pcom 0 8];
:if ($aabb>=$pcom) do={
/ppp active remove ;
/ppp secret disable ;
/ppp secret set profile="dq";
:log error ("用户" . $pnam ."已过期");
}}}
以上代码是8位日期的。。
我想改变下，比如备注是 二楼用户301{20110520}


就是前面字体我任意加，最后尾数是括起来的{8位日期格式}


另外在论坛搜索了下，发现这段代码可以，但是不知道如何更改#scheduler处理开始
/system scheduler
:foreach i in= do={
:set Ccomment ;:set lc [:find $Ccomment "["];:set rc [:find $Ccomment "]"]
:if ([:typeof $lc]="num" && [:typeof $rc]="num" && ($lc+1+$Week)<$rc) do={
:set Exp [:pick $Ccomment ($lc+1+$Week)]
:if ($Exp="e"||$Exp="E"||$Exp="1") do={:if () do={enable $i}}
:if ($Exp="d"||$Exp="D"||$Exp="0") do={:if (!) do={disable $i}}
}}

qq3475534 发表于 2011-4-23 02:06:00

懂的人麻烦了哈，

kyer2012 发表于 2011-4-23 10:14:37

哪位高手告诉下！ 也不是很懂！

jiangyufu 发表于 2011-4-23 20:57:23

你是真的小凯还是假的小凯，不懂脚本吗?

jiangyufu 发表于 2011-4-23 20:59:18

都是通过备注来判断，重要的就是对备注的处理，常用的几个“函数” pick find len get等，把这几个弄熟了你就会了，哈哈

9939781 发表于 2011-4-23 21:27:14

纯路过打酱油

jt00278 发表于 2011-4-28 11:46:15

路过，看看……

zhanhm 发表于 2011-12-4 22:59:01

去看看
:handshake

yjcsw 发表于 2012-3-17 10:15:54

我想要，可是不知怎么用呀

小玉 发表于 2012-3-30 13:10:46

我也想要，可是不知怎么用呀

风轻 发表于 2012-3-30 20:06:03

打瓶酱油回去
页: [1]
查看完整版本: 请教个自动到期的问题，ROS3.3