Exportar datos
Como puedo exportar los datos de un listbox a un archivo de texto desde visual basic 6 en tiempo de ejecución
1 respuesta
Respuesta de ifrancoz
1
Puedes hacerlo de la siguiente forma :
Dim Linea As String
Dim Arch As String
Dim I As Integer
Private Sub Exportar_Click()
Arch = "C:\Mitexto.txt"
Open Arch For Output Access Write As #1
For I = 0 To List1.ListCount
Linea = ""
Linea = Linea & List1.List(I)
Print #1, Linea
Next I
Close #1
End Sub
Private Sub Form_Load()
List1. Clear
List1. AddItem "Juan"
List1. AddItem "Carlos"
List1. AddItem "Maria"
List1. AddItem "Rosa"
List1. AddItem "Pedro"
End Sub
Suerte !
Dim Linea As String
Dim Arch As String
Dim I As Integer
Private Sub Exportar_Click()
Arch = "C:\Mitexto.txt"
Open Arch For Output Access Write As #1
For I = 0 To List1.ListCount
Linea = ""
Linea = Linea & List1.List(I)
Print #1, Linea
Next I
Close #1
End Sub
Private Sub Form_Load()
List1. Clear
List1. AddItem "Juan"
List1. AddItem "Carlos"
List1. AddItem "Maria"
List1. AddItem "Rosa"
List1. AddItem "Pedro"
End Sub
Suerte !
