Wie ist das möglich?
Function GetIdFromLink(ByVal sLink As String) As Integer Dim oRegExp As Object Dim aMatches As Object Set oRegExp = CreateObject("VbScript.Regexp") oRegExp.Pattern = "ID=([0-9])+" oRegExp.IgnoreCase = False oRegExp.Global = True Set aMatches = oRegExp.Execute() If aMatches.Count > 0 Then GetIdFromLink = aMatches(0).Submatches(0) Else GetIdFromLink = -1 End Function
Debug.Print GetIdFromLink("http://localhost:3057/web/link.aspx?ID=1")
Ich wollte das im HTML teil hinterlegen. Ansonsten arbeite ich mit VB
oRegExp.Pattern = "ID=([0-9]+)"
58.4k Fragen
249k Antworten
7k Nutzer