Regex extract time from string

[AutID]

Hello,

 

I have a string where I need to extract the time from it. I am currently doing it with StringSplit but I'd love to see other versions.  Here is my way.

Local $sText = '2016/10/14 07:31:09">07:31'
Local $sSplit = StringSplit($sText, ':')
MsgBox(0, "", StringRight($sSplit[1], 2) & ":" & $sSplit[2] & ":" & StringLeft($sSplit[3], 2))

Anyone who has time to share some other knowledge is welcome.

 

Edit: I would like to see some regex version of it, not StringSplit versions

 

Edit2: Another way here:

Local $sText = '2016/10/14 07:31:09">07:31'
Local $sSplit = _StringBetween($sText, ' ', '"')[0]
MsgBox(0, "", $sSplit)

 

Edited October 14, 2016 by AutID

[UEZ]

As I'm not a regex expert:

Local $sText = '2016/10/14 07:31:09">07:31'
MsgBox(0, "", StringRegExpReplace($sText, '.*\h(.+?)".*', "$1"))

 

[Danyfirex]

Hello. another example from a no regexp expert.

 

Local $sText = '2016/10/14 07:31:09">07:31'

MsgBox(0, "", _GetTime($sText))


Func _GetTime($String)
    Local $aReg = StringRegExp($String, '([0-9]+):([0-5][0-9]):([0-5][0-9])', 2)
    Return UBound($aReg) ? $aReg[0] : ""
EndFunc   ;==>_GetTime

Saludos

Edited October 14, 2016 by Danyfirex

[iamtheky]

one more, no regexp

Local $sText = '2016/10/14 07:31:09">07:31'
msgbox(0, '' , stringsplit(StringSplit($sText, ' ' , 2)[1] , '"' , 2)[0]))

 

[Muhammad_Awais_Sharif]

here is my version  
 

Local $sText = '2016/10/14 07:31:09">07:31'
Local $Time = StringRegExp($sText, '\d{1,2}\:\d{1,2}\:\d{1,2}',1);
MsgBox(0, "", $Time[0])

 

[genius257]

#include <Array.au3>
Local $sText = '2016/10/14 07:31:09">07:31'
$aArray = StringRegExp($sText, "([0-9]{4})/([0-9]{2})/([0-9]{2})[\s]+([0-9]{2}):([0-9]{2}):([0-9]{2})", 1)
_ArrayDisplay($aArray)
MsgBox(0, "", "DD/MM/YYYY:"&@TAB&$aArray[2]&"/"&$aArray[1]&"/"&$aArray[0]&@CRLF&"HH:MM:SS:"&@TAB&$aArray[3]&":"&$aArray[4]&":"&$aArray[5])

 

[mikell]

So many ways to skin this cat ...

Local $sText = '2016/10/14 07:31:09">07:31'

Local $s = StringRegExp($sText, '\H+(?=")', 1)
MsgBox(0, "", $s[0])

 

[Gianni]

Local $sText = '2016/10/14 07:31:09">07:31'
MsgBox(0, "", StringMid($sText, 12, 8))

 

[corgano]

I'm totally going to flog Regexr.com here. This tool is absolutely brilliant for learning / testing regex. See this example: http://regexr.com/3efm3

Edited October 19, 2016 by corgano