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.
Saludos.
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
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.
Saludos.
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
tincho 15-04-2021, 10:59
Esta es la versión "gambosa" de Count de Go.
Saludos.
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
Bienvenido, Invitado
Últimos temas
Problemas con las interru...
Foro: GeneralÚltimo mensaje por: guizans, 14-12-2025, 18:40
Respuestas: 5 - Vistas: 195
Scrolling un ScrollArea
Foro: Controles/Librerías/ComponentesÚltimo mensaje por: Shordi, 12-12-2025, 07:24
Respuestas: 5 - Vistas: 207
Ordenar en un TableView
Foro: GeneralÚltimo mensaje por: guizans, 08-12-2025, 23:06
Respuestas: 9 - Vistas: 896
Resultados dispares según...
Foro: Bases de DatosÚltimo mensaje por: guizans, 04-12-2025, 22:49
Respuestas: 6 - Vistas: 364
Mover un Result a una pos...
Foro: Bases de DatosÚltimo mensaje por: guizans, 30-11-2025, 19:25
Respuestas: 2 - Vistas: 203