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

Question

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.

Answer 1

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

Answer 2

Muchas gracias Carlos,

No va a tener nunca mas de dos puntos