Guardar datos de un listview En un Archivo de texto ( .dat o .txt )
Publicado por MrCarlosSnow (1 intervención) el 17/05/2011 15:39:50
Uso Windows Xp, Visual Basic 6.0 , Y Archivos de texto (.dat o .txt)
Tengo Un Listview donde muestran los datos del siguiente archivo CR.dat
Tengo Un boton con la funcion para mostrar los registros del .dat en el listview
(Los muestra perfecto alli no tengo problema..)
este es el codigo fuente de el boton de mostrar los registros.
-----------------------------------------------------------
Private Sub Command1_Click()
On Error GoTo NOarchivo:
Dim Linea As String
Dim Campo1, Campo2, Campo3, Campo4, Campo5, Campo6 As String
Dim Posicion1, Posicion2, Posicion3, Posicion4, Posicion5, Posicion6 As Integer
Dim dato
Dim Encontro As Integer
Encontro = 0
Open "C:\AGENDA\CR.dat" For Input As #1
While Not EOF(1)
Line Input #1, Linea
If Len(Trim(Linea)) > 0 Then
Posicion1 = InStr(1, Linea, ";", vbTextCompare)
Posicion2 = InStr(Posicion1 + 1, Linea, ";", vbTextCompare)
Posicion3 = InStr(Posicion2 + 1, Linea, ";", vbTextCompare)
Posicion4 = InStr(Posicion3 + 1, Linea, ";", vbTextCompare)
Posicion5 = InStr(Posicion4 + 1, Linea, ";", vbTextCompare)
Posicion6 = InStr(Posicion5 + 1, Linea, ";", vbTextCompare)
Campo1 = Mid(Linea, 1, Posicion1 - 1)
Campo2 = Mid(Linea, Posicion1 + 1, Posicion2 - 1 - Posicion1)
Campo3 = Mid(Linea, Posicion2 + 1, Posicion3 - 1 - Posicion2)
Campo4 = Mid(Linea, Posicion3 + 1, Posicion4 - 1 - Posicion3)
Campo5 = Mid(Linea, Posicion4 + 1, Posicion5 - 1 - Posicion3)
Campo6 = Mid(Linea, Posicion5 + 1, Len(Linea))
Set dato = ListView1.ListItems.Add(, , Campo1)
dato.SubItems(1) = Campo2
dato.SubItems(2) = Campo3
dato.SubItems(3) = Campo4
dato.SubItems(4) = Campo5
dato.SubItems(5) = Campo6
Encontro = 1
End If
Wend
Close #1
If Encontro = 0 Then
MsgBox ("La base de datos esta vacía"), 64, "¡Inventario de Software Banesco!"
End If
Exit Sub
NOarchivo:
MsgBox ("La base de datos no se encuentra."), 64, "¡Inventario de Software Banesco!"
End Sub
----------------------------------------------------------------------------------------------------------
Ahora Necesito un boton que permita editar cualquier registro que seleccione y luego guardarlos en el . dat..
Si te sirve de algo los campos del.dat
Son los Siguientes
Nombre De La Aplicacion
Idioma
Nro de Estante
Nro de Carpeta
Cantidad Existente
Status
Porfa Ayudenme Soy novato en esto.. :(
Gracias..
Tengo Un Listview donde muestran los datos del siguiente archivo CR.dat
Tengo Un boton con la funcion para mostrar los registros del .dat en el listview
(Los muestra perfecto alli no tengo problema..)
este es el codigo fuente de el boton de mostrar los registros.
-----------------------------------------------------------
Private Sub Command1_Click()
On Error GoTo NOarchivo:
Dim Linea As String
Dim Campo1, Campo2, Campo3, Campo4, Campo5, Campo6 As String
Dim Posicion1, Posicion2, Posicion3, Posicion4, Posicion5, Posicion6 As Integer
Dim dato
Dim Encontro As Integer
Encontro = 0
Open "C:\AGENDA\CR.dat" For Input As #1
While Not EOF(1)
Line Input #1, Linea
If Len(Trim(Linea)) > 0 Then
Posicion1 = InStr(1, Linea, ";", vbTextCompare)
Posicion2 = InStr(Posicion1 + 1, Linea, ";", vbTextCompare)
Posicion3 = InStr(Posicion2 + 1, Linea, ";", vbTextCompare)
Posicion4 = InStr(Posicion3 + 1, Linea, ";", vbTextCompare)
Posicion5 = InStr(Posicion4 + 1, Linea, ";", vbTextCompare)
Posicion6 = InStr(Posicion5 + 1, Linea, ";", vbTextCompare)
Campo1 = Mid(Linea, 1, Posicion1 - 1)
Campo2 = Mid(Linea, Posicion1 + 1, Posicion2 - 1 - Posicion1)
Campo3 = Mid(Linea, Posicion2 + 1, Posicion3 - 1 - Posicion2)
Campo4 = Mid(Linea, Posicion3 + 1, Posicion4 - 1 - Posicion3)
Campo5 = Mid(Linea, Posicion4 + 1, Posicion5 - 1 - Posicion3)
Campo6 = Mid(Linea, Posicion5 + 1, Len(Linea))
Set dato = ListView1.ListItems.Add(, , Campo1)
dato.SubItems(1) = Campo2
dato.SubItems(2) = Campo3
dato.SubItems(3) = Campo4
dato.SubItems(4) = Campo5
dato.SubItems(5) = Campo6
Encontro = 1
End If
Wend
Close #1
If Encontro = 0 Then
MsgBox ("La base de datos esta vacía"), 64, "¡Inventario de Software Banesco!"
End If
Exit Sub
NOarchivo:
MsgBox ("La base de datos no se encuentra."), 64, "¡Inventario de Software Banesco!"
End Sub
----------------------------------------------------------------------------------------------------------
Ahora Necesito un boton que permita editar cualquier registro que seleccione y luego guardarlos en el . dat..
Si te sirve de algo los campos del.dat
Son los Siguientes
Nombre De La Aplicacion
Idioma
Nro de Estante
Nro de Carpeta
Cantidad Existente
Status
Porfa Ayudenme Soy novato en esto.. :(
Gracias..
Valora esta pregunta
0