Extendiendo la clase String - Paragraph
tincho 12-08-2021, 11:07
Hola a todos.
Aquí les propongo una función que formatea un texto en párrafos, opcionalmente se puede indicar "html5" para que agregue los tags <p></p>.
Por favor si alguien tiene una mejor idea por favor no dude en compartirla.
Saludos.
Aquí les propongo una función que formatea un texto en párrafos, opcionalmente se puede indicar "html5" para que agregue los tags <p></p>.
Por favor si alguien tiene una mejor idea por favor no dude en compartirla.
Código:
'' Paragraph validation, double space NO, Space at the beginning and/or at the end NO, line breaks at the beginning and/or at the end NO etc.
Public Function Paragraph(strInput As String, Optional strMod As String) As String
Dim strOut As String
Dim strTmp As String
Dim int As Integer
Dim stxLines As New String[] ' List of lines as they come in txt
Dim str As String
Dim strCap As String
Dim strParagraph As String
Dim stxParagraph As New String[]
'
strTmp = Replace(strInput, "\n ", "\n")
strTmp = Replace(strInput, "\n\n", "\n")
strTmp = Replace(strInput, "\t\n", "\n")
strTmp = Replace(strInput, "\n\t", "\n")
' Work by paragraph
strParagraph = ""
For int = 0 To stxLines.Max
If stxLines[int] <> "" Then
str = String.Trim(stxLines[int])
strCap = String.Left(str)
Select int
Case 0
stxParagraph.Add(str)
Case Else
If String.UCase(strCap) = strCap Then
stxParagraph.Add(str)
Else
stxParagraph[stxParagraph.Max] = stxParagraph[stxParagraph.Max] & " " & str
Endif
End Select
Endif
Next
Select String.LCase(strMod)
Case "html", "html5"
For int = 0 To stxParagraph.Max
' Proceed to validate the characters, in this case for XHTML 1.0
strParagraph = XmlValidate(stxParagraph[int], "utf8")
strParagraph = ReTager(strParagraph)
If InStr(strParagraph, "<h") > 0 Then
stxParagraph[int] = "\n" & strParagraph & "\n"
Else
stxParagraph[int] = "<p>" & strParagraph & "</p>"
Endif
Next
End Select
strOut = stxParagraph.Join("\n")
Return strOut
End
tincho 12-08-2021, 10:59
Hola a todos.
Aquí les propongo una función que adecua un texto para que sea posible usarlo en una consulta SQL si que esta de error.
Por favor si alguien tiene una mejor idea por favor no dude en compartirla.
Saludos.
Aquí les propongo una función que adecua un texto para que sea posible usarlo en una consulta SQL si que esta de error.
Por favor si alguien tiene una mejor idea por favor no dude en compartirla.
Código:
'' Returns a text suitable for SQL queries, removes line breaks and characters not compatible with SQL statements.
Static Public Function Chek4SQL(strInput As String) As String
Dim strOutput As String
strOutput = Replace(strInput, Chr(92) & Chr(110), ":")
strOutput = Replace(strOutput, Chr(34), "")
strOutput = Replace(strOutput, "\n", " ")
strOutput = Replace(strOutput, "\r", "")
strOutput = Replace(strOutput, "\x00", "")
strOutput = Replace(strOutput, Chr(39), Chr(46))
strOutput = Replace(strOutput, Chr(44), Chr(46))
Return strOutput
End
AlfredoSC 11-08-2021, 20:48
Planteo un proyecto:
Tengo la idea de hacer una aplicación con Gambas3, la cual contendrá un navegador WEB. Cada vez que cargue una página, la convertirá en un archivo de texto plano. Buscará las cadenas que comiencen con <script> y terminen con </script> y la borrará, guardando el documento final, con la misma extensión que traía al bajar de la web. Así la mostrará en nuestro navegador con Gambas3 y libre de los molestos y odiosos anuncios comerciales y otros no tan comerciales, sino peligrosos.
Por cierto que eso ya debería existir y realmente ser una opción de los navegadores mas convencionales: Chrome. Firefox, Opera, Chromium, Edge, Safari, etc.
Que opinan??
Saludos..
Tengo la idea de hacer una aplicación con Gambas3, la cual contendrá un navegador WEB. Cada vez que cargue una página, la convertirá en un archivo de texto plano. Buscará las cadenas que comiencen con <script> y terminen con </script> y la borrará, guardando el documento final, con la misma extensión que traía al bajar de la web. Así la mostrará en nuestro navegador con Gambas3 y libre de los molestos y odiosos anuncios comerciales y otros no tan comerciales, sino peligrosos.
Por cierto que eso ya debería existir y realmente ser una opción de los navegadores mas convencionales: Chrome. Firefox, Opera, Chromium, Edge, Safari, etc.
Que opinan??
Saludos..
Bienvenido, Invitado
Últimos temas
Problemas con las interru...
Foro: GeneralÚltimo mensaje por: guizans, 14-12-2025, 18:40
Respuestas: 5 - Vistas: 247
Scrolling un ScrollArea
Foro: Controles/Librerías/ComponentesÚltimo mensaje por: Shordi, 12-12-2025, 07:24
Respuestas: 5 - Vistas: 265
Ordenar en un TableView
Foro: GeneralÚltimo mensaje por: guizans, 08-12-2025, 23:06
Respuestas: 9 - Vistas: 947
Resultados dispares según...
Foro: Bases de DatosÚltimo mensaje por: guizans, 04-12-2025, 22:49
Respuestas: 6 - Vistas: 403
Mover un Result a una pos...
Foro: Bases de DatosÚltimo mensaje por: guizans, 30-11-2025, 19:25
Respuestas: 2 - Vistas: 230