7

相対 URL を絶対パスに解決するチュートリアルをたくさん見てきましたが、逆のことをしたいと思います。システムの絶対ファイルパスを相対 URL に解決します。

ファイルパスc:\my_website_root\images\picture_a.jpg をimages/picture_a.jpg

私は見てきましたがUri.MakeRelative()、この場合に役立つとは思いません。

編集：私はこのように実装しましたが、まだハックしているようです（特に行＃2）

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

2 に答える 2

1

IIS で、仮想ディレクトリimagesをセットアップし、それを にポイントしc:\my_website_root\images\ます。

Web サイトがすでに に向けている場合c:\my_website_root\は、何もする必要はありません。

于 2010-02-01T10:57:14.703 に答える
0

すべての相対 URL を絶対 URL に変換する必要がある場合は、次の関数を使用します。

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
于 2014-02-20T19:50:14.663 に答える