asp中獲取字符串中的時間字符串

由於時間在字符串中的值不一致性，會出現以下幾中格式的字符串，沒有辦法用left,right,mid直接來獲取，所以想到用正則表達式來實現這個功能（只要將這個功能改一下，就可以獲取其他格式的字符串。
<%
'str = "2007-01-01 12:12:12 問題 1234"
'str="sdfd 01-01 12:12:12 問題" 
'str="2007-01-01 12:12sdfdf" 
'str="QQwq 01-01 13:14dddd"
str="a2007-01-01sdddd"

patrn="(\d+[-\:\s])+\d+"
Response.Write(RegExpTest(patrn,str))


Function RegExpTest(patrn, strng)
Dim regEx, Match, Matches   ' 建立變量。
Set regEx = New RegExp   ' 建立正則表達式。
regEx.Pattern = patrn   ' 設置模式。
regEx.IgnoreCase = True   ' 設置是否區分大小寫。
regEx.Global = True   ' 設置全局替換。
Set Matches = regEx.Execute(strng)   ' 執行搜索。
For Each Match in Matches   ' 遍歷 Matches 集合。
RetStr = Match.Value
Next
RegExpTest = RetStr
end Function
%>