Absoluter Dateipfad zur relativen URL

Question

Ich habe viele Tutorials zum Auflösen einer relativen URL auf einen absoluten Pfad gesehen, aber ich möchte das Gegenteil tun: einen absoluten Systemdateipfad in eine relative URL auflösen.

Gibt es eine nette Hack freie Art und Weise eine Filepath wie c:\my_website_root\images\picture_a.jpg in images/picture_a.jpg

zu drehen Ich habe einen Blick auf Uri.MakeRelative() habe, aber ich glaube nicht, dass es von Nutzen in diesem Fall sein wird.

Edit: Ich es so implementiert haben, scheint immer noch Hacky (va Linie # 2)

var urlPath = new Uri(@"c:\mywebfolder\images\picture1.jpg"); 
var urlRoot = new Uri(Server.MapPath("~")+"/"); 
string relative = urlRoot.MakeRelativeUri(urlPath).ToString(); 

Answer 1

Dies soll Ihnen helfen, Absolute path back to web-relative path

Answer 2

In IIS Setup ein virtuelles Verzeichnis images und Punkt es zu c:\my_website_root\images\.

Wenn Ihre Website bereits auf c:\my_website_root\ verweist, müssen Sie nichts tun.

Answer 3

Wenn Sie benötigen, um alle relativen URLs in absolute URLs konvertieren verwenden diese fucntion:

Private Function ConvertALLrelativeLinksToAbsoluteUri(ByVal html As String, ByVal PageURL As String) 
    Dim result As String = Nothing 

    ' Getting all Href 
    Dim opt As New RegexOptions 

    Dim XpHref As New Regex("(href="".*?"")", RegexOptions.IgnoreCase) 

    Dim i As Integer 
    Dim NewSTR As String = html 
    For i = 0 To XpHref.Matches(html).Count - 1 
     Application.DoEvents() 
     Dim Oldurl As String = Nothing 
     Dim OldHREF As String = Nothing 
     Dim MainURL As New Uri(PageURL) 
     OldHREF = XpHref.Matches(html).Item(i).Value 
     Oldurl = OldHREF.Replace("href=", "").Replace("HREF=", "").Replace("""", "") 
     Dim NEWURL As New Uri(MainURL, Oldurl) 
     Dim NewHREF As String = "href=""" & NEWURL.AbsoluteUri & """" 
     NewSTR = NewSTR.Replace(OldHREF, NewHREF) 


    Next 

    html = NewSTR 

    Dim XpSRC As New Regex("(src="".*?"")", RegexOptions.IgnoreCase) 

    For i = 0 To XpSRC.Matches(html).Count - 1 
     Application.DoEvents() 
     Dim Oldurl As String = Nothing 
     Dim OldHREF As String = Nothing 
     Dim MainURL As New Uri(PageURL) 
     OldHREF = XpSRC.Matches(html).Item(i).Value 
     Oldurl = OldHREF.Replace("src=", "").Replace("src=", "").Replace("""", "") 
     Dim NEWURL As New Uri(MainURL, Oldurl) 
     Dim NewHREF As String = "src=""" & NEWURL.AbsoluteUri & """" 
     NewSTR = NewSTR.Replace(OldHREF, NewHREF) 


    Next 


    Return NewSTR 


End Function