A few months ago I was given a project to maintain a corporate website. This website was previously hosted in a CMS in remote site. When I received the CD containing the project files, it was already in ‘offline’ website format. It means all files are now static HTML. I suspect that it generated using those website downloaders (Offline Explorer, etc.).

The problem with static HTML website is there are many duplicates of information. One news article will show up as many files that located in different folders. It could be under News folder, News Archive folder, Tags folder, etc.

It means my task will become a boring headache, since I will need to add content, add it to the respective folders, and manually update all the linkage regularly.

So I came out with a simple program to help me generating the content, upload the attachment and to update the linkage. This is when I hit the problem. Because most of the time, a news article will contain attachments. The attachments will be stored under Attachments folder, but the pages that linked to that attachment are scattered all over the place. I also need to update the ‘index’ files of each category (Archive by Year, Archive by Tag, Archive by Category, etc.)

Solution

Instead of reinventing the wheel, I asked Google to find me the wheel David M. Howard has solved this problem 9 years ago Thank You David!

His solution was written in Java, I just need to convert it to .NET and tweaked it a little without any difficulties.

Result

The output of the test program are as follows:

Source Code

'Filename: MyPath.vb
Imports System.IO
Imports System.Collections

Public Class MyPath
    Public Shared Function getRelativePath(ByVal home As String, ByVal remote As String) As String
        Return getRelativePath(New FileInfo(home), New FileInfo(remote))
    End Function
    Public Shared Function getRelativepath(ByVal home As String, ByRef remote As FileInfo) As String
        Return getRelativepath(New FileInfo(home), remote)
    End Function
    Public Shared Function getRelativePath(ByRef home As FileInfo, ByVal remote As String) As String
        Return getRelativePath(home, New FileInfo(remote))
    End Function

    Public Shared Function getRelativePath(ByRef home As FileInfo, ByRef remote As FileInfo) As String
        Dim homepathList As New ArrayList
        Dim remotePathList As New ArrayList
        Dim result As String = ""

        If ((home.Exists And remote.Exists) Or home.Directory.Exists Or remote.Directory.Exists) Then
            'initialize the paths
            initPathList(home.Directory, homepathList)

            If remote.Attributes = FileAttributes.Directory Then
                initPathList(remote.Directory, remotePathList)
            Else
                initPathList(remote, remotePathList)
            End If

            Dim ihome As Integer = homepathList.Count - 1
            Dim iremote As Integer = remotePathList.Count - 1

            'Do we have common parent
            If Not homepathList(ihome).Equals(remotePathList(iremote)) Then
                Return remote.FullName
            End If

            'remove common parent
            While (ihome >= 0 And iremote >= 0)
                If homepathList(ihome).Equals(remotePathList(iremote)) Then
                    ihome -= 1
                    iremote -= 1
                Else
                    Exit While
                End If
            End While

            'Add relative path
            While ihome >= 0
                result &= ".." & System.IO.Path.DirectorySeparatorChar.ToString()
                ihome -= 1
            End While

            'Combine relative path result with the remote 

            While iremote > 0
                result &= remotePathList(iremote).ToString() & System.IO.Path.DirectorySeparatorChar.ToString()
                iremote -= 1
            End While
            result &= remotePathList(iremote).ToString()
        Else
            If Not home.Exists Then
                Throw New Exception(home.FullName & " is not exist!")
            End If
            If Not remote.Exists Then
                Throw New Exception(remote.FullName & " is not exist!")
            End If
        End If
        Return result
    End Function
    Public Shared Sub initPathList(ByRef f As FileInfo, ByRef ar As ArrayList)
        ar.Add(f.Name)
        initPathList(f.Directory, ar)
    End Sub
    Public Shared Sub initPathList(ByRef dir As DirectoryInfo, ByRef ar As ArrayList)
        ar.Add(dir.Name)
        While Not dir.Parent Is Nothing
            dir = dir.Parent
            ar.Add(dir.Name)
        End While
    End Sub
End Class

'Filename: testMyPath.vb
Imports System.IO

Module Module1

    Sub Main()
        While True
            Console.Write("Home: ")
            Dim homePath As String = Console.ReadLine()
            Console.Write("Remote: ")
            Dim remotePath As String = Console.ReadLine()
            Try
                Console.WriteLine("Relative Path: " & MyIO.MyPath.getRelativePath(homePath, remotePath))
            Catch ex As Exception
                Console.WriteLine("ERROR: " & ex.ToString())
            End Try
            Console.WriteLine()
        End While
    End Sub

End Module

 

Possibly Related Posts

• Create Drag-and-Drog File Path Locator
• Using Serialization To Measure .NET DataSet Size
• MS SQL version of MySQL’s Group_Concat
• How To Draw Diamond Recursively
• Reading CSV File with .NET

 

what directory is acpitable dat in (2), vb net relative path (2), vb net get relative path (2), get relative path visual basic (2), vb net relative directory functin (2), writing relative directory in vb enet (1), vb net relative file path (1), vb net relative directory (1), vb net io path get relative (1), vb net how to make relative path (1), vb net find relative path path of 2 paths (1), vb dotnet relative pfade (1), vb net relative pathing to string (1), vb net remote path (1), wordpress relative dir (1), wordpress get relative path attachment (1), wordpress create relative path to category (1), what is c$ in asp net remote path directory (1), vba string extract directory relative path (1), visual basic virtualbox relative path (1), visual basic relative path of a file in project (1), visual basic net create relateive path (1), virtualbox path relative (1), system io path getrelativepath (1), relative path net console (1), getrelativepath function in c (1), get relative path io path (1), generic path of file in vb net (1), fileinfo relative path (1), code to find the remote path exists or not in vb net (1)

Advertise Here