Get

Question

Ich brauche den ID-Parameter in einer URL zu erhalten, zum Beispiel ich habe

http://apps/inventory/others.aspx?ID=8678 

Wie extrahieren wir die 8678, ich habe WinHttp.WinHttpRequest.5.1 bei der Methode des Objekts gesucht, aber ich habe nichts gefunden. Könnte das mit einer einfachen Teilkette möglich sein? Die URL ist immer gleich und es gibt immer einen GET-Parameter,

Dank

Answer 1

Versuchen wie folgt aus:

Option Explicit 

Public Sub TestMe() 

    Debug.Print ExtractAfter("http://apps/inventory/others.aspx?ID=8678", "ID=") 
    Debug.Print ExtractAfter("http://apps/inventory/others.aspx?ID=867843", "ID=") 

End Sub 

Public Function ExtractAfter(strInput As String, strAfter As String) As String 

    ExtractAfter = Mid(strInput, InStr(strInput, strAfter) + Len(strAfter)) 

End Function 

Dies ist, was Sie in der unmittelbaren Fenster:

8678 
867843 

Answer 2

In VBA, vorausgesetzt, Sie die URL in einer Variablen url haben:

Debug.Print Mid(url, InStr(url, "ID=") + 3) 

funktioniert jedoch nur dann richtig, wenn die Der ID-Parameter ist immer vorhanden und immer der einzige Parameter, sonst benötigen Sie eine komplexere String-Behandlung.