none
Remplazar un punto por vació si una cadena tiene dos puntos. RRS feed

  • Pregunta

  • Buenos días a todos,

    ¿Sabría alguien decirme como puedo saber si una cadena tiene dos puntos y si es así remplazar el primer punto de la cadena?

    La cadena es esta 1.500.27  y debería quedar así 1500.27

    Gracias.

    martes, 16 de octubre de 2018 7:28

Respuestas

  • Hola:
    En un Form como el de la imagen

    Copia y pega el siguiente código

    Public Class Form1
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Dim lCadenas As String() = Me.txtCadena.Text.Split(CChar("."))
            If lCadenas.Length = 3 Then     'Tiene 2 puntos
                Me.txtResultado.Text = lCadenas(0) & lCadenas(1) & "." & lCadenas(2)
            End If
        End Sub
    End Class

    P.D.
    Que pasa si tiene mas de 2 puntos

    Un saludo desde Bilbo
    Carlos
    • Marcado como respuesta Juan Martinez F martes, 16 de octubre de 2018 8:16
    martes, 16 de octubre de 2018 8:00

Todas las respuestas

  • Hola:
    En un Form como el de la imagen

    Copia y pega el siguiente código

    Public Class Form1
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Dim lCadenas As String() = Me.txtCadena.Text.Split(CChar("."))
            If lCadenas.Length = 3 Then     'Tiene 2 puntos
                Me.txtResultado.Text = lCadenas(0) & lCadenas(1) & "." & lCadenas(2)
            End If
        End Sub
    End Class

    P.D.
    Que pasa si tiene mas de 2 puntos

    Un saludo desde Bilbo
    Carlos
    • Marcado como respuesta Juan Martinez F martes, 16 de octubre de 2018 8:16
    martes, 16 de octubre de 2018 8:00
  • Muchas gracias Carlos,

    No va a tener nunca mas de dos puntos

    martes, 16 de octubre de 2018 8:16