Question

我需要在URL中获取ID参数，例如我有

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

如何提取8678，我查看了对象WinHttp.WinHttpRequest.5.1的方法，但我没有找到任何内容。用简单的子字符串可以做到这一点吗？ URL始终相同，并且始终有一个GET参数

由于

Answer 1

在VBA中，假设您在变量url中有网址：

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

但是，只有ID参数始终存在并且始终是唯一的参数才能正常工作，否则您需要更复杂的字符串处理。

Answer 2

试试这样：

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

这就是您在即时窗口中获得的内容：

8678
867843

在VBA

2 个答案: