将英文格式的备注日期转成8位数字日期

webhelp

前些时做提前到期通知，但脚本中用的是20110310这类的数字备注，而旧路由中是使用的mar/10/2011这样的英文备注，有好几百个用户，手工改太累，所以根据网上脚本改了以下脚本。
:local pcom8 ""
:local pcom ""
:local pnam ""
:local ppof ""
/ppp secret
:foreach puse in [find disabled=no comment!="" comment!="admin"] do={
:set pcom [get $puse comment]
:set pnam [get $puse name]
:local yy ([:find jan,feb,mar,apr,may,jun,jul,aug,sep,oct,nov,dec [:pick $pcom 0 3]]+1)
:if ($yy<10) do={:set yy (0 . $yy)}
:set pcom ([:pick $pcom 7 11] . $yy . [:pick $pcom 4 6])
:set pcom8 [:tonum [:pick $pcom 0 8]]
:if ([:len $pcom8] = 8) do={
/ppp secret set [/ppp secret find name=$pnam] comment=($pcom)
}
}

host2318

收藏，谢谢分享了。

zooyo

恩，在阿湘技术上修改而来的，还是不错，能改能用就证明看懂了。

hispider

看到英文的就头疼，每次看到帖子说ros怎么怎么的时候想搞的试一哈，就被英文搞杯具了，我们这样的国产还是支持海蜘蛛去吧。杯具哦。。。。

zooyo

hispider 发表于 2011-3-11 10:26

                               
登录/注册后可看大图

看到英文的就头疼，每次看到帖子说ros怎么怎么的时候想搞的试一哈，就被英文搞杯具了，我们这样的国产还是支 ...

一直都不能克服这个心理障碍就一直无法得到提升，或许你早前就开始积累，到现在已经能运用自如了。这就是个态度问题。

SXWJL6330

这个真不错，还想过几天手动改呢，真是太感谢了。

hispider

回复 zooyo 的帖子

那是一个长时间的积累过程，不是一哈就能行的。