преобразование URI

[Dmitriy Solomnikov]

есть путь к файлу в URI формате. Как можно получить путь в простом (человеческом ) виде (ничего не парся)

[Sebas]

непонял, есть http://site:12345/asd

что нужно получить?

[Dmitriy Solomnikov]

ну...там может быть что-то типа "http://www.vbstreets.ru", а может и "file:///C:/text.txt"

когда я вызываю System.IO.File.Exist(...) - ругается пишет, что не работает с URI. Собственно интересует есть штатгые средства преобразование URI к др. виду?

[Ramzes]

Dmitriy Solomnikov

да, есть... ToString

[Dmitriy Solomnikov]

Dmitriy Solomnikov

да, есть... ToString

у какого объекта?

пока я это делаю руками, вот так:

Код: Выделить всё

Public Shared Function ParceURI(ByVal URI As String)
        If URI.IndexOf("file:///") = -1 Then
            Return Nothing
        End If

        Dim s As String = Microsoft.VisualBasic.Right(URI, URI.Length - 8)
        s = Microsoft.VisualBasic.Replace(s, "/", "")

        If System.IO.File.Exists(s) = False Then
            s = Nothing
        End If
        Return s
    End Function

и получаю для URI file:///C:/h.xml
вот такое представление: c:\h.xml

[tyomitch]

тогда ещё %20 заменяй на пробелы...

[Dmitriy Solomnikov]

тогда ещё %20 заменяй на пробелы...

а %20 - это что такое?

[GSerg]

Это пробел...

[Maitris]

Dmitriy Solomnikov
%20 это пробел в шеснадцатеричном коде

[skiperski]

Код: Выделить всё

Option Explicit

Public Const MAX_PATH = 260

'Takes a file URL and converts it to a Microsoft MS-DOS path
'http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/shlwapi/path/pathcreatefromurl.asp
Public Declare Function PathCreateFromUrlA _
Lib "shlwapi.dll" ( _
        ByVal pszUrl As String, _
        ByVal pszPath As String, _
        ByRef pcchPath As Long, _
        ByVal dwReserved As Long _
    ) As Long

Public Function PathCreateFromUrl(ByVal URL As String) As String
   
    Dim res As Long
    Dim Path As String
    Dim PathLen As Long
   
    Path = Space$(MAX_PATH)
    PathLen = MAX_PATH
    res = PathCreateFromUrlA(URL, Path, PathLen, 0)
   
    If (res = 0) Then PathCreateFromUrl = Left$(Path, PathLen)
   
End Function

Immediate:

Код: Выделить всё

?PathCreateFromUrl("file:///C:/h%20x.xml")
C:\h x.xml

PS: Снова проглядел раздел . Это, конечно же, для VB6. А в NET'е API работают?

[GSerg]

Угу... работают...

Тока это...

Код: Выделить всё

Dim u As New Uri("file:///C:/h%20x.xml")
Console.WriteLine(u.LocalPath)

[Dmitriy Solomnikov]

чего не так?

Код: Выделить всё

..................
Dim res As IntPtr
res = PathCreateFromUrlA("file:///C:/h.xml", Path, PathLen, 0)


HRESULT - это в какой тип преобразуется (и что из себя представляет)?

[GSerg]

HRESULT - это в какой тип преобразуется (и что из себя представляет)?

.net strikes again...


Не знаешь, так посмотри на один пост выше.

[Dmitriy Solomnikov]

тогда вот это почему вылезает:
PInvoke restriction: can not return variants.


вот импорт
<System.Runtime.InteropServices.DllImportAttribute("shlwapi.dll")> Public Function PathCreateFromUrlA(ByVal url As String, ByVal path As String, ByVal maxpath As String, ByVal res As String)
End Function


вот сам код
Dim res As Long
Dim Path As String
Dim PathLen As Long

Path = Space$(255)
PathLen = 255
res = PathCreateFromUrlA("file:///C:/h.xml", Path, PathLen, 0)
Console.WriteLine(Path)
Console.ReadLine()

[GSerg]

Dmitriy Solomnikov
Ты вообще сказанное как-то воспринимаешь и анализируешь или нет?

http://bbs.vbstreets.ru/viewtopic.php?p=6587172#6587172