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

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[1]&$TIME[2])

风行者 · 发表于 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[0]&$time[1])

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

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

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

先收藏，学习了

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

雷锋精神传天下！谢谢分享！

		自动登录	找回密码
密码			加入

[AU3基础] 求助关于正则获取时间返回值问题