https://foro.gambas-es.org/viewtopic.php?f=1&t=5491&p=32567#p32567
-----------------------------------
vuott
Lunes, 23 May 2016, 22:28

Re: Caracteres De Url [SOLUCIONADO]
-----------------------------------
Letras con acento estás constituidas por 2 numeros.

[i]Exemplum litterae " [color=#BF0000][size=14]á[/size][/color] " numeros ad inveniendos[/i]:
[code linenumbers=false syntax=gambas]Public Sub Main()

  Dim b As Byte

   For Each b In Byte[].FromString("á")
     Print b, Hex(b);
   Next

End[/code]


Ejemplo de simil-url:
[code linenumbers=false syntax=gambas]Public Sub Main()

  Dim b As Byte
  Dim i As Integer
  Dim url, s As String
  
  url = "ab%C3%A1cd%20ef%C3%A9gh%20il%C3%81%20mn%C3%B1op%20qr%C3%B3"
 
  While i < Len(url)   ' Leemos cada caracter
    Inc i
' Si el caracter es "%"...
    If Mid(url, i, 1) = "%" Then
'...pues tomamos el 1° y el 2° caracter sucesivo, y convertimos ambos a una unica rapresentación (numero) decimal.
      b = Val("&" & Mid(url, i + 1, 2))
' Convertimos la rapresentación decimal a un caracter:
      s &= Chr(b)
      i += 2
    Else
      s &= Mid(url, i, 1)
    Endif
  Wend
  
  Print s

End[/code]


