2

Soy nuevo en Visual Basic .NET necesito saber que código podría usar para eliminar de un textbox caracteres específicos que tengo encerrados entre caracteres especiales.

Ejemplo:

$% esto es un comentario %$

Código


'Eliminar Espacios
        Dim Borrar As String = Trim(TextBox1.Text)
        While Borrar.Contains(" ")
            Borrar = Borrar.Replace(" ", "")
        End While



        'Eliminar saltos de linea
        While Borrar.Contains(vbCrLf)
            Borrar = Borrar.Replace(vbCrLf, "")
        End While



        Lexico.Show()

        'Eliminar comentarios

        Dim pattern As String = System.Text.RegularExpressions.Regex.Escape("$") & "%.+%" & System.Text.RegularExpressions.Regex.Escape("$")
        Dim rgx As New System.Text.RegularExpressions.Regex(pattern)
        Dim result As String = rgx.Replace(TextBox1.Text, "")

        Lexico.TextBox3.Text = result
0

3 respuestas 3

1

Con expresiones regulares podrías conseguir el patron de búsqueda para remplazar

Dim texto As String = "texto_1 $% esto es un comentario %$ texto_2 $% otro comentario %$ texto_3"

Dim regex As new Regex("\$%.*?%\$")
Dim result As String = regex.Replace(texto, "")
5
  • Disculpa mi poco conocimiento, no se si tendria que hacer un for para que haga un recorrido por toda la cadena para que almacene todo lo que se escribio en el textbox y asi elimine los comentarios. Commented el 17 feb. 2016 a las 12:32
  • En principio una cadena es un texto simple, salvo que ese textbox sea multiline, pero en principio si usas TextBox1.Text el texto es una simple cadena a la cual el aplicas las expresion regular Commented el 17 feb. 2016 a las 12:51
  • Si, es multiline lo utilizo como un editor de texto. Commented el 17 feb. 2016 a las 12:56
  • Pero es un textbox o un RichTextBox ? si es un textbox podrias ver si usando el .Text toma todo el texto escrito o sino podrias hacer un for con la propiedad Lines msdn.microsoft.com/en-us/library/… Commented el 17 feb. 2016 a las 13:04
  • es un textbox, si lo toma multilines sin utilizar esa propiedad. gracias Commented el 17 feb. 2016 a las 13:35
0

Function QuitarCaracteres(sInput As String) As String Dim sSpecChar As String Dim i As Long Dim letra As String sSpecChar = "" Dim Cont As Integer For i = 1 To Len(sInput) sInput = Replace$(sInput, Mid$(sSpecChar, i, 1), "") Cont = Cont + 1 If (Mid$(sInput, i, 1) = ".") Then Exit For Else letra = Mid$(sInput, 1, Cont) End If Next QuitarCaracteres = letra

End Function

2
  • 1
    Gracias por tu contribución, recuerda que es importante agregar una explicación del código, ¿Cómo ayudaría a solucionar el problema planteado en la pregunta?, revisar Cómo responder, saludos.
    – Jorgesys
    Commented el 5 oct. 2022 a las 16:34
  • Tu respuesta podría mejorarse con información de apoyo adicional. Por favor, pulsa en editar para añadir más detalles, como citas o documentación, para que otros puedan confirmar que tu respuesta es correcta. Puedes encontrar más información sobre cómo escribir buenas respuestas en el centro de ayuda.
    – Comunidad Bot
    Commented el 5 oct. 2022 a las 17:28
-1

Puedes usar expresiones regulares. Ejemplo

Dim pattern As String = Regex.Escape("$") & "%.+%" & Regex.Escape("$")
Dim rgx As New Regex(pattern)
Borrar = rgx.Replace(Borrar, "") 
Lexico.TextBox3.Text = Borrar

Tengo que usar Regex.Escape debido a que el caracter $ tiene un significado especial dentro de una expresión regular. Por eso debe usarse una secuencia de escape.

7
  • Disculpa mi poco conocimiento, no se si tendria que hacer un for para que haga un recorrido por toda la cadena para que almacene todo lo que se escribio en el textbox y asi elimine los comentarios. Commented el 17 feb. 2016 a las 12:33
  • @Jose95Madrid: no necesitas ningun for. Solo usa la propiedad textboc.Text en lugar de input en rgx.Replace(input, "") Commented el 17 feb. 2016 a las 12:51
  • Gracias entiendo lo que me dices, si funciona pero creo que no me exprese correctamente el programa hace varias cosas una de ellas es eliminar los espacios que hay entre las palabras que se escriben ejemplo : hola como estas. escribes eso y luego en otro textbox te sale eso mismo pero sin espacios asi holacomoestas. entonces utilice ese codigo que me diste y ahora quita los comentarios pero ahora no hace lo otro. no se si es porque me falta un for. y disculpa. Commented el 17 feb. 2016 a las 13:06
  • Tenes que asignar result al otro textbox. Podriamos ayudar mejor si mostras tu codigo para saber que te falta. Commented el 17 feb. 2016 a las 13:29
  • puse el codigo. Commented el 17 feb. 2016 a las 13:41

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.