| Comentarios |
|---|
 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.
|
|
razaAztk [ Martes, 12 May 2020, 14:36 ]
|
 |
Re: Texto Con Caracter Unicode Escrito De Forma Expllicita. |
razaAztk escribió: ...Aunque pienso que debe haber ya alguna función en algún componente que actúe en toda la cadena.
Si, eso es lo que intento saber.
Saludos.
|
|
tincho [ Martes, 12 May 2020, 14:47 ]
|
|
Re: Texto Con Caracter Unicode Escrito De Forma Expllicita. |
tincho escribió: Si, eso es lo que intento saber.
Perdona, la solución de razaAztk no te parece bien? 
No comprendo, scusami !
|
|
vuott [ Martes, 12 May 2020, 15:08 ]
|
|
Re: Texto Con Caracter Unicode Escrito De Forma Expllicita. |
vuott escribió: tincho escribió: Si, eso es lo que intento saber.
Perdona, la solución de razaAztk no te parece bien?
No comprendo, scusami !
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:
Pero intento saber si existe en gambas algo mas general como por ejemplo.
s = Conv$(s, "ISO-8859-1", "UTF-8")
Que funciona para algunos caracteres del estilo " \D1" pero no para los del estilo unicode, es decir " \U+AAAA"
Saludos.
|
|
tincho [ Martes, 12 May 2020, 15:41 ]
|
|
Re: Texto Con Caracter Unicode Escrito De Forma Expllicita. |
razaAztk escribió: 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.
Bueno, en base a tu propuesta hice esta función general que pondre en la lista de agregados a String
'' 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
Gracias razaAztk
Saludos.
|
|
tincho [ Martes, 12 May 2020, 16:38 ]
|
|
Re: Texto Con Caracter Unicode Escrito De Forma Expllicita. |
Bueno, aquí está mi implementación:
|
|
razaAztk [ Martes, 12 May 2020, 18:00 ]
|
|
Re: Texto Con Caracter Unicode Escrito De Forma Expllicita. |
razaAztk escribió: Bueno, aquí está mi implementación:...
Si señor, muy bien, seguro es mas rápido con gb.pcre
Saludos.
|
|
tincho [ Martes, 12 May 2020, 18:08 ]
|
|
|
|
