Este foro usa cookies
Este foro utiliza cookies para almacenar su información de inicio de sesión si está registrado y su última visita si no lo está. Las cookies son pequeños documentos de texto almacenados en su computadora; las cookies establecidas por este foro solo se pueden usar en este sitio web y no representan ningún riesgo de seguridad. Las cookies en este foro también rastrean los temas específicos que ha leído y la última vez que los leyó. Si Ud. continúa navegando, entenderemos que acepta todas las cookies.

Se almacenará una cookie en su navegador, independientemente de la elección, para evitar que se le vuelva a hacer esta pregunta. Podrá cambiar la configuración de sus cookies en cualquier momento utilizando el enlace en el pie de página.

El foro antiguo se encuentra accesible desde https://foro.gambas-es.org en modo de solo lectura.

Calificación:
  • 0 voto(s) - 0 Media
  • 1
  • 2
  • 3
  • 4
  • 5

Extendiendo la clase String - Flat
#1

Esta función la hice porque al leer datos de planos dwg, con la librería LibreDWG, algunos textos no se representaban correctamente debido a errores de codificación.
Tal vez luego pueda evolucionar a una versión mas general y amplia que abarque mas casos.
GAMBAS
  1. '' <b>RAD Extension.</b><br>
  2. '' Returns a string with all its characters converted to ascii or utf-8 when bad codification ocurr.
  3.  
  4.  
  5.   Dim k As Integer = 1
  6.  
  7.   Dim uni As String
  8.   Dim stx As New String[]
  9.   Dim rep As String
  10.  
  11.     q = InStr(s, "\\U+", k)
  12.     If q > 0 Then
  13.       Inc r
  14.       uni = String.Mid(s, q, 7)
  15.       stx.Add(uni)
  16.       k = q + String.Len("\\U+")
  17.     Endif
  18.   Until InStr(s, "\\U+", k) = 0 Or k > String.Len(s)
  19.  
  20.   For Each u In stx
  21.     i = Val("&h" & String.Mid(u, 4, 4) & "&")
  22.     rep = String.Chr(i)
  23.     s = Replace(s, u, rep)
  24.   Next
  25.  
  26.   Return s
  27.  


Saludos.
    ¡Gracias!


Mensajes en este tema
Extendiendo la clase String - Flat - por tincho - 15-04-2021, 11:07

Posibles temas similares…
Tema / Autor Respuestas Vistas Último mensaje

Salto de foro:


Usuarios navegando en este tema: 1 invitado(s)