Comunidad Gambas-es

tincho 15-04-2021, 11:07

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.

Código:
'' <b>RAD Extension.</b><br>

'' Returns a string with all its characters converted to ascii or utf-8 when bad codification ocurr.

Static 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

Saludos.

Aplicaciones/Fragmentos de Código Sin respuestas

Extendiendo la clase String - Fields

tincho 15-04-2021, 11:03

Esta función esta interesante porque permite lograr una lista de "Campos" a partir de una cadena de texto separada por espacios o tabuladores.

Código:
'' <b>RAD Extension.</b><br>

'' Fields splits the string s around each instance of one or more consecutive white space characters returning a string[] of substrings of s or an empty string[] if s contains only white space.

'' GO Package strings

Static Public Function Fields(s As String) As String[]

  Dim sTmp As String

  Dim word As String

  Dim aOut As New String[]

  While InStr(sTmp, "\t")

    sTmp = Replace(sTmp, "\t", " ")

  Wend

  sTmp = Trim(RTrim(s))

  While InStr(sTmp, "  ")

    sTmp = Replace(sTmp, "  ", " ")

  Wend

  For Each word In Split(sTmp, " ")

    aOut.Add(word)

  Next

  Return aOut

End

Saludos.

Aplicaciones/Fragmentos de Código Sin respuestas

Extendiendo la clase String - Count

tincho 15-04-2021, 10:59

Esta es la versión "gambosa" de Count de Go.

Código:
'' <b>RAD Extension.</b><br>

'' Counts how much times some string apear in other

Static Public Function Count(sWhere As String, sWhich As String) As Integer

  Dim k As Integer = 1

  Dim q As Integer

  Dim r As Integer

  Repeat

    q = InStr(sWhere, sWhich, k)

    If q > 0 Then

      Inc r

      k = q + String.Len(sWhich)

    Endif

  Until InStr(sWhere, sWhich, k) = 0 Or k > String.Len(sWhere)

  Return r

End

Saludos.