Attribute VB_Name = "tutorial_cachedObject" Option Explicit '/** ' * Extrahiert die ID aus einem String ' * @example: extractId("user=c123,id=34,name=erb") ' * @param String ' * @return String ' */ Public Function extractId(ByVal iString As String) As Integer extractId = CInt(rxId.execute(iString)(0).subMatches(0)) End Function '/** ' * Cache für das RegExp-Object um die ID zu extrahieren ' * @return RegExp ' */ Private Property Get rxId() As Object Static rxCached As Object If rxCached Is Nothing Then Set rxCached = CreateObject("VBScript.RegExp") rxCached.pattern = "id=(\d+)" rxCached.Global = False rxCached.IgnoreCase = True rxCached.MultiLine = False End If Set rxId = rxCached End Property