I can add a homeseer command for waitsecs if you need one
If this is not what you want give me an example of you are trying to do
If this is not what you want give me an example of you are trying to do
If this is your first visit, be sure to check out the FAQ. You must register before you can post.
IMPORTANT: Your first post will be checked for appropriate content. This may take a bit of time.
Sub Main(ByVal eventName As String) Dim splitArray As String() = eventName.Trim.Split(" ") If splitArray.Length = 3 Then Dim reservationNumber As String = splitArray(0).Trim Dim userName As String = splitArray(1).Trim & " " & splitArray(2).Trim reservationNumber = reservationNumber.Replace("R", "") Dim lockCode As String = reservationNumber.Substring(reservationNumber.Length - 4) If IsNumeric(lockCode) Then hs.PluginFunction("BLLock", "", "AddUserCodePin", New Object(){660,1,Integer.Parse(lockCode),userName}) End If lockCode = Nothing userName = Nothing reservationNumber = Nothing End If splitArray = Nothing End Sub
R\d{7}
/R\d{7}/g
R\d{7}
Comment