decript string...

[sal21]

Based this string how to decript????

data=%5Bout%3Acsv%28comune%2C%20provincia%2C%20name%2C%20highway%2C%20%3A%3Alat%2C%3A%3Alon%3Btrue%3B%22%3B%22%29%5D%5Btimeout%3A600%5D%3B%0A%2F%2Fprovincia%20da%20cui%20estrarre%20i%20dati%0Aarea%5Bboundary%3Dadministrative%5D%5B%22admin_level%22%3D6%5D%5Bname~%22%5Epesaro%22%2Ci%5D-%3E.searchArea%3B%0Arelation%5Bboundary%3Dadministrative%5D%5B%22admin_level%22%3D8%5D%28area.searchArea%29%3B%0Aforeach%20%28%0A%20%20map_to_area-%3E.comune%3B%0A%20%20make%20stat%20comune%3Dcomune.set%28t%5B%22name%22%5D%29%2Cprovincia%3DsearchArea.set%28t%5B%22short_name%22%5D%29%3B%0A%20%20out%3B%0A%20%20way%5Bhighway~%22residential%7Cunclassified%7Ctertiary%7Csecondary%7Cprimary%22%5D%5Bname%5D%28area.comune%29%3B%0A%20%20out%20center%3B%0A%29%3B%0A"

[HansV]

You can replace the hexadecimal characters using the function

Code: Select all

Function ReplaceChars(ByVal s As String) As String
    Dim i As Long
    Do
        i = InStrRev(s, "%")
        If i = 0 Then Exit Do
        s = Left(s, i - 1) & Chr("&H" & Mid(s, i + 1, 2)) & Mid(s, i + 3)
    Loop
    ReplaceChars = s
End Function

but what you do with the result is up to you...

[snb]

Code: Select all

Sub M_snb()
  c00 = "%5Bout%3Acsv%28comune%2C%20provincia%2C%20name%2C%20highway%2C%20%3A%3Alat%2C%3A%3Alon%3Btrue%3B%22%3B%22%29%5D%5Btimeout%3A600%5D%3B%0A%2F%2Fprovincia%20da%20cui%20estrarre%20i%20dati%0Aarea%5Bboundary%3Dadministrative%5D%5B%22admin_level%22%3D6%5D%5Bname~%22%5Epesaro%22%2Ci%5D-%3E.searchArea%3B%0Arelation%5Bboundary%3Dadministrative%5D%5B%22admin_level%22%3D8%5D%28area.searchArea%29%3B%0Aforeach%20%28%0A%20%20map_to_area-%3E.comune%3B%0A%20%20make%20stat%20comune%3Dcomune.set%28t%5B%22name%22%5D%29%2Cprovincia%3DsearchArea.set%28t%5B%22short_name%22%5D%29%3B%0A%20%20out%3B%0A%20%20way%5Bhighway~%22residential%7Cunclassified%7Ctertiary%7Csecondary%7Cprimary%22%5D%5Bname%5D%28area.comune%29%3B%0A%20%20out%20center%3B%0A%29%3B%0A"

  sn = Split(c00, "%")
  
  For j = 1 To UBound(sn)
    sn(j) = Mid(sn(j), 3)
  Next
  
  MsgBox Application.Trim(Join(sn))
End Sub

[sal21]

You can replace the hexadecimal characters using the function

Code: Select all

Function ReplaceChars(ByVal s As String) As String
    Dim i As Long
    Do
        i = InStrRev(s, "%")
        If i = 0 Then Exit Do
        s = Left(s, i - 1) & Chr("&H" & Mid(s, i + 1, 2)) & Mid(s, i + 3)
    Loop
    ReplaceChars = s
End Function

but what you do with the result is up to you...

really my code is:

Code: Select all

Sub TEST_JSON_PARSE()

'verificare
'https://data.opendatasoft.com/explore/dataset/rifter_civici_pt%40bologna/export/

    'myurl = "https://overpass-api.de/api/interpreter?data=%5Bout%3Acsv%28comune%2C%20provincia%2C%20name%2C%20highway%2C%20%3A%3Alat%2C%3A%3Alon%3Btrue%3B%22%3B%22%29%5D%5Btimeout%3A600%5D%3B%0A%2F%2Fprovincia%20da%20cui%20estrarre%20i%20dati%0Aarea%5Bboundary%3Dadministrative%5D%5B%22admin_level%22%3D6%5D%5Bname~%22%5Enapoli%22%2Ci%5D-%3E.searchArea%3B%0Arelation%5Bboundary%3Dadministrative%5D%5B%22admin_level%22%3D8%5D%28area.searchArea%29%3B%0Aforeach%20%28%0A%20%20map_to_area-%3E.comune%3B%0A%20%20make%20stat%20comune%3Dcomune.set%28t%5B%22name%22%5D%29%2Cprovincia%3DsearchArea.set%28t%5B%22short_name%22%5D%29%3B%0A%20%20out%3B%0A%20%20way%5Bhighway~%22residential%7Cunclassified%7Ctertiary%7Csecondary%7Cprimary%22%5D%5Bname%5D%28area.comune%29%3B%0A%20%20out%20center%3B%0A%29%3B%0A"

    
    Dim xmlhttp As New MSXML2.XMLHTTP60, myurl As String
    
    myurl = "https://overpass-api.de/api/interpreter?data=%5Bout%3Acsv%28comune%2C%20provincia%2C%20name%2C%20highway%2C%20%3A%3Alat%2C%3A%3Alon%3Btrue%3B%22%3B%22%29%5D%5Btimeout%3A600%5D%3B%0A%2F%2Fprovincia%20da%20cui%20estrarre%20i%20dati%0Aarea%5Bboundary%3Dadministrative%5D%5B%22admin_level%22%3D6%5D%5Bname~%22%5Epesaro%22%2Ci%5D-%3E.searchArea%3B%0Arelation%5Bboundary%3Dadministrative%5D%5B%22admin_level%22%3D8%5D%28area.searchArea%29%3B%0Aforeach%20%28%0A%20%20map_to_area-%3E.comune%3B%0A%20%20make%20stat%20comune%3Dcomune.set%28t%5B%22name%22%5D%29%2Cprovincia%3DsearchArea.set%28t%5B%22short_name%22%5D%29%3B%0A%20%20out%3B%0A%20%20way%5Bhighway~%22residential%7Cunclassified%7Ctertiary%7Csecondary%7Cprimary%22%5D%5Bname%5D%28area.comune%29%3B%0A%20%20out%20center%3B%0A%29%3B%0A"
    'oppure senza autorizzazione
    'https://samurai016.github.io/Comuni-ITA/#tag/comuni
    'myurl = "https://axqvoqvbfjpaamphztgd.functions.supabase.co/comuni"
    
    'ReplaceChars myurl
    
    With xmlhttp
        
        .Open "GET", myurl, False
        '.setRequestHeader "Authorization", "Bearer 6357ac75baecf33196160c21"
        .send
        Debug.Print .responseText
        
        Dim Handle As Integer
        Handle = FreeFile
        Open "C:\Lavori_Vb6\REST_API_OPENAPI\JSON_FILE\comuni.txt" For Output As #Handle
        Print #Handle, .responseText
        Close #Handle
        
        Call LEGGI_JSON_FILE
        
        'ReadFile "C:\Lavori_Vb6\REST_API_OPENAPI\JSON_FILE\PROVINCE.txt"
        
    End With
    
End Sub

whe i pass the myurl to the api rest in debug.print t .responseText have a correct result in csv.

but i need to replace the bologna city with other... similar napoli

[SpeakEasy]

Pretty sure there is an API call that can do this fairly simply, UrlUnescapeA. Sadly I'm currently on holiday, and nowhere near a PC so can't provide an example.

You could also leverage javascript's UnEscape function

[sal21]

Pretty sure there is an API call that can do this fairly simply, UrlUnescapeA. Sadly I'm currently on holiday, and nowhere near a PC so can't provide an example.

Ok

[snb]

@sal

Did you overlook https://eileenslounge.com/viewtopic.php ... 27#p310927

[SpeakEasy]

Ok, so here's a possible API solution...

Code: Select all

Option Explicit

Private Declare Function UrlUnescape Lib "shlwapi" Alias "UrlUnescapeA" (ByVal pszURL As String, ByVal pszUnescaped As String, pcchUnescaped As Long, ByVal dwFlags As Long) As Long
Private Const URL_DONT_ESCAPE_EXTRA_INFO As Long = &H2000000

Public Function Decode(strDecodeMe As String) As String
    Dim strResult As String
    Dim mychars As Long
    
    strResult = Space(Len(strDecodeMe))
    mychars = Len(strDecodeMe)
    If UrlUnescape(strDecodeMe, strResult, mychars, URL_DONT_ESCAPE_EXTRA_INFO) = 0 Then Decode = Left(strResult, mychars)
End Function

[sal21]

Ok, so here's a possible API solution...

Code: Select all

Option Explicit

Private Declare Function UrlUnescape Lib "shlwapi" Alias "UrlUnescapeA" (ByVal pszURL As String, ByVal pszUnescaped As String, pcchUnescaped As Long, ByVal dwFlags As Long) As Long
Private Const URL_DONT_ESCAPE_EXTRA_INFO As Long = &H2000000

Public Function Decode(strDecodeMe As String) As String
    Dim strResult As String
    Dim mychars As Long
    
    strResult = Space(Len(strDecodeMe))
    mychars = Len(strDecodeMe)
    If UrlUnescape(strDecodeMe, strResult, mychars, URL_DONT_ESCAPE_EXTRA_INFO) = 0 Then Decode = Left(strResult, mychars)
End Function

tks.
but i cannot test now.

[HansV]

You have asked other questions since the above post. Have you found time to test SpeakEasy's suggestion yet?

[sal21]

No. Sorry. Prob. In family

[sal21]

Ok, so here's a possible API solution...

Code: Select all

Option Explicit

Private Declare Function UrlUnescape Lib "shlwapi" Alias "UrlUnescapeA" (ByVal pszURL As String, ByVal pszUnescaped As String, pcchUnescaped As Long, ByVal dwFlags As Long) As Long
Private Const URL_DONT_ESCAPE_EXTRA_INFO As Long = &H2000000

Public Function Decode(strDecodeMe As String) As String
    Dim strResult As String
    Dim mychars As Long
    
    strResult = Space(Len(strDecodeMe))
    mychars = Len(strDecodeMe)
    If UrlUnescape(strDecodeMe, strResult, mychars, URL_DONT_ESCAPE_EXTRA_INFO) = 0 Then Decode = Left(strResult, mychars)
End Function

bro, is this code correct?

Code: Select all

Option Explicit
Private Declare Function UrlUnescape Lib "shlwapi" Alias "UrlUnescapeA" (ByVal pszURL As String, ByVal pszUnescaped As String, pcchUnescaped As Long, ByVal dwFlags As Long) As Long
Private Const URL_DONT_ESCAPE_EXTRA_INFO As Long = &H2000000
Public Function Decode(strDecodeMe As String) As String

    Dim strResult As String
    Dim mychars As Long
    
    strResult = Space(Len(strDecodeMe))
    mychars = Len(strDecodeMe)
    If UrlUnescape(strDecodeMe, strResult, mychars, URL_DONT_ESCAPE_EXTRA_INFO) = 0 Then Decode = Left(strResult, mychars)
    
    'Debug.Print strResult
    
End Function
Sub uno()

Dim strDecodeMe As String

strDecodeMe = "https://overpass-api.de/api/interpreter?data=%0A%5Bout%3Ajson%5D%5Btimeout%3A925%5D%3B%0A%28%0A%20%20area%5B%22name%22%3D%22Cesena%22%5D-%3E.boundaryarea%3B%0A%20%20node%5B%22addr%3Acity%22%5D%28area.boundaryarea%29%3B%0A%20%20way%5B%22highway%22%5D%28area.boundaryarea%29%3B%0A%20%0A%29%3B%0A%2F%2F%20print%20results%0Aout%20body%3B%0A%3E%3B%0Aout%20skel%20qt%3B"
Decode strDecodeMe

End Sub

i dont see in other case the result of decoded string...

[SpeakEasy]

You've changed your requirement slightly since your original post., and now you do want 'EXTRA_INFO'

So the function can be modified to:

Code: Select all

Public Function Decode(strDecodeMe As String) As String
    Dim strResult As String
    Dim mychars As Long
    
    strResult = Space(Len(strDecodeMe))
    mychars = Len(strDecodeMe)
    If UrlUnescape(strDecodeMe, strResult, mychars, 0&) = 0 Then Decode = Left(strResult, mychars)
End Function

and an example calling it using your latest current example string:

Code: Select all

Public Sub OneOhOne()
    Dim strDecodeMe As String
    strDecodeMe = "https://overpass-api.de/api/interpreter?data=%0A%5Bout%3Ajson%5D%5Btimeout%3A925%5D%3B%0A%28%0A%20%20area%5B%22name%22%3D%22Cesena%22%5D-%3E.boundaryarea%3B%0A%20%20node%5B%22addr%3Acity%22%5D%28area.boundaryarea%29%3B%0A%20%20way%5B%22highway%22%5D%28area.boundaryarea%29%3B%0A%20%0A%29%3B%0A%2F%2F%20print%20results%0Aout%20body%3B%0A%3E%3B%0Aout%20skel%20qt%3B"
    MsgBox Decode(strDecodeMe)
End Sub

[sal21]

You've changed your requirement slightly since your original post., and now you do want 'EXTRA_INFO'

So the function can be modified to:

Code: Select all

Public Function Decode(strDecodeMe As String) As String
    Dim strResult As String
    Dim mychars As Long
    
    strResult = Space(Len(strDecodeMe))
    mychars = Len(strDecodeMe)
    If UrlUnescape(strDecodeMe, strResult, mychars, 0&) = 0 Then Decode = Left(strResult, mychars)
End Function

and an example calling it using your latest current example string:

Code: Select all

Public Sub OneOhOne()
    Dim strDecodeMe As String
    strDecodeMe = "https://overpass-api.de/api/interpreter?data=%0A%5Bout%3Ajson%5D%5Btimeout%3A925%5D%3B%0A%28%0A%20%20area%5B%22name%22%3D%22Cesena%22%5D-%3E.boundaryarea%3B%0A%20%20node%5B%22addr%3Acity%22%5D%28area.boundaryarea%29%3B%0A%20%20way%5B%22highway%22%5D%28area.boundaryarea%29%3B%0A%20%0A%29%3B%0A%2F%2F%20print%20results%0Aout%20body%3B%0A%3E%3B%0Aout%20skel%20qt%3B"
    MsgBox Decode(strDecodeMe)
End Sub

NO COMMENT!!!!
EXACTLY WHAT I NEEDED

Tks for patience.

[snb]

Alternative ?

Code: Select all

Sub M_snb()
    c00 = "https://overpass-api.de/api/interpreter?data=%5Bout%3Acsv%28comune%2C%20provincia%2C%20name%2C%20highway%2C%20%3A%3Alat%2C%3A%3Alon%3Btrue%3B%22%3B%22%29%5D%5Btimeout%3A600%5D%3B%0A%2F%2Fprovincia%20da%20cui%20estrarre%20i%20dati%0Aarea%5Bboundary%3Dadministrative%5D%5B%22admin_level%22%3D6%5D%5Bname~%22%5Enapoli%22%2Ci%5D-%3E.searchArea%3B%0Arelation%5Bboundary%3Dadministrative%5D%5B%22admin_level%22%3D8%5D%28area.searchArea%29%3B%0Aforeach%20%28%0A%20%20map_to_area-%3E.comune%3B%0A%20%20make%20stat%20comune%3Dcomune.set%28t%5B%22name%22%5D%29%2Cprovincia%3DsearchArea.set%28t%5B%22short_name%22%5D%29%3B%0A%20%20out%3B%0A%20%20way%5Bhighway~%22residential%7Cunclassified%7Ctertiary%7Csecondary%7Cprimary%22%5D%5Bname%5D%28area.comune%29%3B%0A%20%20out%20center%3B%0A%29%3B%0A"
    sn = Split(c00, "%")
    For j = 1 To UBound(sn)
       sn(j) = Chr(Application.Hex2Dec(Left(sn(j), 2))) & Mid(sn(j), 3)
    Next
    MsgBox Join(sn, "")
End Sub

[SpeakEasy]

Yep, works, but dramatically slower than the API solution - but it seems unlikely that the OP will be dealing with the thousands of URLs that might make that an important differentiator!

[snb]

Maybe faster (?):

Code: Select all

Sub M_tst()
  c00 = "123456789ABCDEFG"

  sn = Split("https://overpass-api.de/api/interpreter?data=%5Bout%3Acsv%28comune%2C%20provincia%2C%20name%2C%20highway%2C%20%3A%3Alat%2C%3A%3Alon%3Btrue%3B%22%3B%22%29%5D%5Btimeout%3A600%5D%3B%0A%2F%2Fprovincia%20da%20cui%20estrarre%20i%20dati%0Aarea%5Bboundary%3Dadministrative%5D%5B%22admin_level%22%3D6%5D%5Bname~%22%5Enapoli%22%2Ci%5D-%3E.searchArea%3B%0Arelation%5Bboundary%3Dadministrative%5D%5B%22admin_level%22%3D8%5D%28area.searchArea%29%3B%0Aforeach%20%28%0A%20%20map_to_area-%3E.comune%3B%0A%20%20make%20stat%20comune%3Dcomune.set%28t%5B%22name%22%5D%29%2Cprovincia%3DsearchArea.set%28t%5B%22short_name%22%5D%29%3B%0A%20%20out%3B%0A%20%20way%5Bhighway~%22residential%7Cunclassified%7Ctertiary%7Csecondary%7Cprimary%22%5D%5Bname%5D%28area.comune%29%3B%0A%20%20out%20center%3B%0A%29%3B%0A", "%")
    
  For j = 1 To UBound(sn)
    c01 = Left(sn(j), 2)
    sn(j) = Chr(16 * InStr(c00, Left(c01, 1)) + InStr(c00, Right(c01, 1))) & Mid(sn(j), 3)
  Next

  MsgBox Join(sn, "")
End Sub

[SpeakEasy]

Yep, that's faster! But, when sticking this into a timing rig I noticed that the original - M_snb - uses Excel's Hex2Dec function. That a) really slows things down, and b) Sal21 uses VB6, which doesn't have Hex2Dec. Simply replacing that with CLng("&h" & Left(sn(j), 2)) makes M_snb fractionally faster than M_tst

But as I say, unless the OP is handling thousands of urls in one go, any of these are suitable solutions