resolve relative link
This is a simple function to resolve a relative link. ie turns www.a/b/c/../e.htm into www.a/b/e.htm Made this for a web crawler I am working on. Hope you find this usefull.
AI
Tóm tắt bởi AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Mã nguồn
Public Function cleanurl(url As String) Dim x As Long Dim y As Long check: x = InStr(1, url, "../", vbBinaryCompare) If x = 1 Then url = Mid(url, 4) ElseIf x > 1 Then y = InStrRev(url, "/", x - 2, vbBinaryCompare) If y > 0 Then url = Mid(url, 1, y) & Mid(url, x + 3) Else url = Mid(url, 4) Debug.Print url End If GoTo check: End If cleanurl = url End Function
Bình luận gốc (3)
Được khôi phục từ Wayback Machine