Visual Basic - Como recupero datos de un txt a visual basic 6.0

Life is soft - evento anual de software empresarial
 
Vista:

Como recupero datos de un txt a visual basic 6.0

Publicado por Urabus (12 intervenciones) el 29/10/2010 15:33:30
Como recupero datos de un txt (Bloc de notas), y que luego al leerlo en visual basic 6.0 pueda guardarlos y que luego podria ser desplegados en una grilla.
Mi tema es la marcacion horaria de entrada y salida de empleados.

Ejemplo. Nro. documento, Fecha de marcaacion, Hora de marcacion.

01, 28/10/2010, 07:00
02, 28/10/2010, 07:05
03, 28/10/2010, 07:02
04, 28/10/2010, 07:00
05, 28/10/2010, 07:30
02, 28/10/2010, 14:10
01, 28/10/2010, 14:02
04, 28/10/2010, 14:00
05, 28/10/2010, 14:05
03, 28/10/2010, 14:01

Muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Como recupero datos de un txt a visual basic 6.

Publicado por Javier (44 intervenciones) el 29/10/2010 17:47:41
Buenas, pon 3 text , 1 boton y 1 commondialog

los text mulilinea y pega el codigo.

--
Private Sub Command1_Click()
Dim Texto As String
Dim Partes() As String
CommonDialog1.CancelError = True
On Error GoTo errcancela
CommonDialog1.Filter = "Todos los Archivos de texto(*.txt)|*.txt"

CommonDialog1.ShowOpen
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""

Open CommonDialog1.FileName For Input As 1 ' abrimos el archivo de texto
Do While Not EOF(1)
Line Input #1, Texto
Partes = Split(Texto, ",")
Text1.Text = Text1 & Partes(0) & vbNewLine
Text2.Text = Text2 & Partes(1) & vbNewLine
Text3.Text = Text3 & Partes(2) & vbNewLine

Loop
Close #1

errcancela:
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Como recupero datos de un txt a visual basic 6.

Publicado por Urabus (12 intervenciones) el 29/10/2010 18:30:37
Muchas gracias Javier, voy a probar..agradezco tu colaboracion.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar