Chemin de fichier absolu vers l'URL relative

Question

J'ai vu beaucoup de tutoriels sur la résolution d'un URL relatif à un chemin absolu, mais je veux faire le contraire: résoudre un chemin de fichier absolu du système dans une URL relative.

Y at-il une belle façon sans hack pour transformer un filepath comme c:\my_website_root\images\picture_a.jpg dans images/picture_a.jpg

J'ai eu un coup d'œil à Uri.MakeRelative() mais je ne pense pas qu'il sera utile dans ce cas.

Edit: J'ai mis comme ça, semble encore hacky (ligne esp # 2)

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

Answer 1

Cela devrait vous aider, Absolute path back to web-relative path

Answer 2

Dans IIS, la configuration d'un répertoire virtuel images et le point à c:\my_website_root\images\.

Si votre site web est déjà orienté vers c:\my_website_root\, vous n'avez rien à faire.

Answer 3

Si vous avez besoin de convertir toutes les urls relatives à urls absolues utilisent ce 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