No guardar datos repetidos
Publicado por Maick (35 intervenciones) el 22/03/2017 17:37:13
Muy buen día a todos, estoy elaborando un programa con un botón Guardar y Abrir, ya los termine, el problema es que cuando guarde el contenido de 4 textbox en un txt, pero no quiero que se repita el contenido, ni que lo sobre escriba .
Adjunto el Código
Espero me puedan alludar
Adjunto el Código
1
2
3
4
5
6
7
8
9
10
11
12
13
'Boton Guardar
If TextBox1.Text <> "" And TextBox2.Text <> "" And TextBox3.Text <> "" And TextBox4.Text <> "" Then
Dim Lineadetexto As String = TextBox1.Text & ";" & TextBox2.Text & ";" & TextBox3.Text & ";" & TextBox4.Text & ";" & TextBox4.Text & vbCrLf
My.Computer.FileSystem.WriteAllText(ruta, Lineadetexto, True)
MessageBox.Show("datos almacenados")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
Else
MsgBox("Es Ebligatorio llenar los campos")
End If
1
2
3
4
5
6
7
8
9
10
11
12
13
Botón Abrir
Dim FileReader As System.IO.StreamReader
FileReader = My.Computer.FileSystem.OpenTextFileReader(ruta)
Dim linea As String
While (Not FileReader.EndOfStream)
linea = FileReader.ReadLine()
Dim Registro As String() = linea.Split(";")
If Registro(0) = TextBox1.Text Then
TextBox2.Text = Registro(1)
TextBox3.Text = Registro(2)
TextBox4.Text = Registro(3)
End If
End While
Espero me puedan alludar
Valora esta pregunta
0