Search Tools Links Login

resolve relative link

Posted: 2002-06-01
By: ArchiveBot
Viewed: 62

Filed Under:

VB6 Code Cache

No attachments for this post


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.

Original Author: RegX

Code

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


Comments on this post

No comments have been added for this post.

You must be logged in to make a comment.