xyhqqaa 发表于 2012-7-4 15:06:37

求助关于正则获取时间返回值问题

求助关于获取系统时间返回值，比如现在时间是15:04:32如何得到的时间显示为1504
大菲狼哥说   查找^([^:]*):([^:]*).*   替换$1$2，但是听不懂他的意思。。。
囧。正则不懂。。。求教育，求爆菊

49666684 发表于 2012-7-4 15:06:38

#include <Date.au3>
$TIME = StringSplit(_NowTime(),":")
MsgBox(0,'',$TIME&$TIME)

风行者 发表于 2012-7-4 15:18:53

Dim $timeStr = "15:04:23"
MsgBox(0,"",StringRegExpReplace($timeStr,'^([^:]*):([^:]*).*','$1$2'))

xyhqqaa 发表于 2012-7-4 15:35:40

谢谢2楼3楼的大哥、。、、、又学到新东西了。。。。想多加评分，但是系统提示请求来路不明。。擦。。谢谢。。。

user3000 发表于 2012-7-4 16:00:53

回复 4# xyhqqaa
这是比较简单的字符处理, 可以不用正则, 还可以这样:
#include <Date.au3>
$str = StringLeft(StringReplace(_NowTime(),":", ''), 4)
MsgBox(0,'',$str)

lixiaolong 发表于 2012-7-4 19:01:29

练习练习~
#include <Date.au3>

Local $TIME = _NowTime()
Local $Test = StringRegExpReplace($TIME, ':\d+$|:', '')
MsgBox(0, '', $Test)

xms77 发表于 2012-7-4 20:13:48

回复 1# xyhqqaa
正则替换不熟，光正则还能搞一下，楼上才都是正则高手，献丑一下！
#include <Date.au3>
Local $time = StringRegExp(_NowTime(),'(\d{2}):',3)
If Not @error Then MsgBox(0,_nowtime(),$time&$time)

xx44t10 发表于 2012-7-4 21:05:41

^([^:]*):([^:]*).*
匹配：前的字符*　正如15:04:32　所有符合这种字符串的都匹配　
得到的$TIME&$TIME就是
15:04:32
$TIME:$TIME:$TIME
好了。好好利用^和[]吧。

chamlien 发表于 2013-8-18 14:51:08

先收藏，学习了

hollandmfq 发表于 2014-5-13 13:41:27

雷锋精神传天下！谢谢分享！
页: [1]
查看完整版本: 求助关于正则获取时间返回值问题