none
Remplazar caracteres en una cadena de caracteres RRS feed

  • Pregunta

  • Saludos, me gustaría saber como hacer para  elegir un carácter de una cadena de caracteres y que la ultima vez que aparezca, tener la opción de remplazarlo con otro carácter. Algo así: con la ", " (Comilla Simple + espacio)

    (Nombre, Apellidos, Curso, 

    La ultima comilla simple + espacio quisiera remplazarla por un paréntesis. Así:

    (Nombre, Apellidos, Curso)

    Como podría hacer esto? Gracias.



    • Editado Renzo20 lunes, 17 de julio de 2017 8:20
    lunes, 17 de julio de 2017 8:07

Respuestas

  • Puedes hacerlo así:

    Dim Cadena As String = "(Nombre, Apellidos, Curso,"

    Dim Pos As Integer = Cadena.LastIndexOf(",")

    If Pos > 0 Then
        MsgBox(Cadena.Substring(0, Pos) & ")")
    End If


    Saludos, Javier J

    • Marcado como respuesta Renzo20 lunes, 17 de julio de 2017 11:37
    lunes, 17 de julio de 2017 10:51
  • Usado tu ejemplo y suponiendo que la cadena empieza de esa manera

      Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            Dim cadena As String = TextBox1.Text
            Dim Sep() As String = Split(cadena, ",")
            cadena = Sep(0) & "," & Sep(1) & "," & Sep(2) & ")"
            MsgBox(cadena)
        End Sub
    TextBox1.Text contiene la supuesta cadena


    • Editado Marcelo PF lunes, 17 de julio de 2017 10:01
    • Marcado como respuesta Renzo20 lunes, 17 de julio de 2017 11:37
    lunes, 17 de julio de 2017 9:52

Todas las respuestas

  • Usado tu ejemplo y suponiendo que la cadena empieza de esa manera

      Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            Dim cadena As String = TextBox1.Text
            Dim Sep() As String = Split(cadena, ",")
            cadena = Sep(0) & "," & Sep(1) & "," & Sep(2) & ")"
            MsgBox(cadena)
        End Sub
    TextBox1.Text contiene la supuesta cadena


    • Editado Marcelo PF lunes, 17 de julio de 2017 10:01
    • Marcado como respuesta Renzo20 lunes, 17 de julio de 2017 11:37
    lunes, 17 de julio de 2017 9:52
  • Hola, tendría que repetir el código: cadena = Sep(0) & "," & Sep(1) & "," & Sep(2) & ")"

    para cada vez que aparece la "," ?

    si es así creo que no me funciona por que obtengo la cadena en tiempo de ejecución

    y los campos siempre varían. No existe otra forma de hacerlo mas generar? que la ultima vez que

    aparezca el "," lo remplace por un ")" solo eso quiero. Gracias



    • Editado Renzo20 lunes, 17 de julio de 2017 10:38
    lunes, 17 de julio de 2017 10:37
  • Puedes hacerlo así:

    Dim Cadena As String = "(Nombre, Apellidos, Curso,"

    Dim Pos As Integer = Cadena.LastIndexOf(",")

    If Pos > 0 Then
        MsgBox(Cadena.Substring(0, Pos) & ")")
    End If


    Saludos, Javier J

    • Marcado como respuesta Renzo20 lunes, 17 de julio de 2017 11:37
    lunes, 17 de julio de 2017 10:51
  • Ahore te entiedo, pensé que querías la cadena tal cual lo expusiste, el ejemplo de Javier cumple con lo requerido

    Saludos


    • Editado Marcelo PF lunes, 17 de julio de 2017 11:16
    lunes, 17 de julio de 2017 11:15
  • Muchas Gracias justo lo que buscaba.
    lunes, 17 de julio de 2017 11:39