Comunidad Gambas-es

tincho 15-04-2021, 11:13

Esta la hizo Christof, de la lista internacional de Gambas, y yo la adapte.
Fue la que obtuvo la marca de velocidad mas alta (con FAST).

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

'' It removes the spaces at the beginning and the end of

'' a <b>s</b> and if there are repeated spaces, it converts them into one.

Static Public Function Trim(s As String) As String

  Dim sOut As String

  sOut = Trim(RTrim(s))

  While InStr(sOut, "  ")

    sOut = Replace(sOut, "  ", " ")

  Wend

  Return sOut

End

Saludos.

Aplicaciones/Fragmentos de Código Sin respuestas

Extendiendo la clase String - Title

tincho 15-04-2021, 11:11

Esta hace lo mismo que la función de Go que se llama igual.

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

'' Converts the first character of each word to upper case.

'' GO Package strings

Static Public Function Title(s As String) As String

  Dim sTmp As String

  Dim word As String

  Dim aOut As New String[]

  sTmp = Trim(RTrim(s))

  While InStr(sTmp, "  ")

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

  Wend

  For Each word In Split(sTmp, " ")

    aOut.Add(Upper(Mid(word, 1, 1)) & Mid(Lower(word), 2))

  Next

  Return aOut.Join(" ")

End

Saludos.

Aplicaciones/Fragmentos de Código Sin respuestas

Extendiendo la clase String - Flat

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.