https://foro.gambas-es.org/viewtopic.php?f=5&t=8040
-----------------------------------
tincho
Martes, 12 May 2020, 03:23

Texto Con Caracter Unicode Escrito De Forma Expllicita.
-----------------------------------
Hola a todos.
Alguien sabe como reemplazar los textos que incluyen la definicion de un caracter unicode, por ejemplo 180\U+00B0 para que quede el caracter, por ejejemplo 180°??
Estoy buscando la forma general, ya que por supuesto que Replace funcionaria para el caso particular.
Por ejemplo:
Unicode Character “°” (U+00B0)
[code linenumbers=false syntax=gambas]s = Replace(s, "\\U+00B0", "°")[/code]

SAludos.


-----------------------------------
razaAztk
Martes, 12 May 2020, 14:36

Re: Texto Con Caracter Unicode Escrito De Forma Expllicita.
-----------------------------------
Espero te sirva la siguiente línea

Print "180" & String.Chr(&h00B0&)

Aunque pienso que debe haber ya alguna función en algún componente que actúe en toda la cadena.


-----------------------------------
tincho
Martes, 12 May 2020, 14:47

Re: Texto Con Caracter Unicode Escrito De Forma Expllicita.
-----------------------------------
[quote user="razaAztk" post="48460"]...Aunque pienso que debe haber ya alguna función en algún componente que actúe en toda la cadena.[/quote]
Si, eso es lo que intento saber.
Saludos.


-----------------------------------
vuott
Martes, 12 May 2020, 15:08

Re: Texto Con Caracter Unicode Escrito De Forma Expllicita.
-----------------------------------
[quote user="tincho" post="48461"]Si, eso es lo que intento saber.[/quote]

Perdona, la solución de  razaAztk no te parece bien?  :| 
No comprendo, [i]scusami ![/i]


-----------------------------------
tincho
Martes, 12 May 2020, 15:41

Re: Texto Con Caracter Unicode Escrito De Forma Expllicita.
-----------------------------------
[quote user="vuott" post="48462"][quote user="tincho" post="48461"]Si, eso es lo que intento saber.[/quote]
Perdona, la solución de  razaAztk no te parece bien?  :| 
No comprendo, [i]scusami ![/i][/quote]
Si Vuott, la propuesta de convertir como dice razaAztk me parece bien, de hecho es mejor que la que uso yo ahora, que es similar.
El problema que no resuelvo de momento es detectar cuando aparece un caracter de estos. Pero no reviste complicaciones lo haré con algo de:
[code linenumbers=false syntax=gambas]InStr("\U+")[/code]
Pero intento saber si existe en gambas algo mas general como por ejemplo.
[code linenumbers=false syntax=gambas]s = Conv$(s, "ISO-8859-1", "UTF-8")[/code]
Que funciona para algunos caracteres del estilo "[b]\D1[/b]" pero no para los del estilo unicode, es decir "[b]\U+AAAA[/b]"
Saludos.


-----------------------------------
tincho
Martes, 12 May 2020, 16:38

Re: Texto Con Caracter Unicode Escrito De Forma Expllicita.
-----------------------------------
[quote user="razaAztk" post="48460"]Espero te sirva la siguiente línea
Print "180" & String.Chr(&h00B0&)
Aunque pienso que debe haber ya alguna función en algún componente que actúe en toda la cadena.[/quote]
Bueno, en base a tu propuesta hice esta función general que pondre en la lista de agregados a [b]String[/b]
[code linenumbers=false syntax=gambas]
'' This function replace unicode like \U+0023 by # the character

Public Function Flat(s As String) As String

  Dim k As Integer = 1
  Dim q As Integer
  Dim r As Integer

  Dim uni As String
  Dim stx As New String[]
  Dim u As String
  Dim rep As String
  Dim i As Integer

  Repeat
    q = InStr(s, "\\U+", k)
    If q > 0 Then
      Inc r
      uni = String.Mid(s, q, 7)
      stx.Add(uni)
      k = q + String.Len("\\U+")
    Endif
  Until InStr(s, "\\U+", k) = 0 Or k > String.Len(s)

  For Each u In stx
    i = Val("&h" & String.Mid(u, 4, 4) & "&")
    rep = String.Chr(i)
    s = Replace(s, u, rep)
  Next

  Return s

End
[/code]
Gracias razaAztk
Saludos.


-----------------------------------
razaAztk
Martes, 12 May 2020, 18:00

Re: Texto Con Caracter Unicode Escrito De Forma Expllicita.
-----------------------------------
Bueno, aquí está mi implementación:

[code linenumbers=false syntax=gambas]
USE "gb.pcre"

Public Function decodeUnicode(s As String) As String
  
  Dim rMatch As New RegExp
  Dim tmp As String
  Dim sx As String
  
  rMatch.Compile("\\\\U\\+[0-9a-fA-F]{4}", RegExp.MultiLine)
  rMatch.Exec(s)
   
  tmp = s
  sx = s
  do while rMatch.text <> ""
    sx = Replace$(sx, rMatch.text, String.Chr(Val(Replace$(rMatch.text, "\\U+", "&h"))))
    tmp = mid(tmp, rMatch.offset + 2)
    rMatch.Exec(tmp)
  loop

  Return sx
End



Dim xString As String

xString = "The slyly jumped over \\U+00FFAAA 0xFFFF the 180\\U+00B0 lazy dog \\U+00A9"
Print xString
Print decodeUnicode(xString) 'The slyly jumped over ÿAAA 0xFFFF the 180° lazy dog ©

[/code]


-----------------------------------
tincho
Martes, 12 May 2020, 18:08

Re: Texto Con Caracter Unicode Escrito De Forma Expllicita.
-----------------------------------
[quote user="razaAztk" post="48465"]Bueno, aquí está mi implementación:...[/quote]
Si señor, muy bien, seguro es mas rápido con gb.pcre
Saludos.


