Visual Basic.NET - COMO LEER UN ARCHIVO

HOLA AMIGOS:

TENGO UN SISTEMA EN VBASIC 6 Y ME SOLICITAN MIGRARLO A .NET

ALGUNAS COSAS ENTIENDO, PERO TENGO EL SGTE PROBLEMA:

COM LEER UN ARCHIVO SECUENCIAL, MI ARCHIVO ES MURDOCH.DAT Y CONTIENE ALGO PARECIDO A:

0110048083100014-06-050010721B
0110045021200014-06-050010731B
0110045021200014-06-050010731E
0110055061700014-06-050010819B
0110002876600014-06-050011300E
0110069041100014-06-050011307E

MI CODIGO EN VB6 ERA:

Do
Line Input #1, variable
cad1 = Mid(variable, 1, 30)
fotoch = Mid(cad1, 6, 6)
fec = Mid(cad1, 15, 8)
TIP = Mid(cad1, 30, 1)
hr = Mid(cad1, 26, 2) & ":" & Mid(cad1, 28, 2)
DataReloj.Recordset.AddNew
DataReloj.Recordset.Fields("FOTOCHECK") = fotoch
DataReloj.Recordset.Fields("FECHA") = fec
DataReloj.Recordset.Fields("TIPO") = TIP
DataReloj.Recordset.Fields("HORA") = hr
DataReloj.Recordset.Fields("FLAG") = 0
DataReloj.Recordset.Update
Loop Until EOF(1)
Close #1
DataReloj.Refresh

MUCHAS GRACIAS AMIGOS.

EDUARDO

HOLA AMIGOS:

TENGO UN SISTEMA EN VBASIC 6 Y ME SOLICITAN MIGRARLO A .NET

ALGUNAS COSAS ENTIENDO, PERO TENGO EL SGTE PROBLEMA:

COM LEER UN ARCHIVO SECUENCIAL, MI ARCHIVO ES MURDOCH.DAT Y CONTIENE ALGO PARECIDO A:

0110048083100014-06-050010721B
0110045021200014-06-050010731B
0110045021200014-06-050010731E
0110055061700014-06-050010819B
0110002876600014-06-050011300E
0110069041100014-06-050011307E

MI CODIGO EN VB6 ERA:

Do
Line Input #1, variable
cad1 = Mid(variable, 1, 30)
fotoch = Mid(cad1, 6, 6)
fec = Mid(cad1, 15, 8)
TIP = Mid(cad1, 30, 1)
hr = Mid(cad1, 26, 2) & ":" & Mid(cad1, 28, 2)
DataReloj.Recordset.AddNew
DataReloj.Recordset.Fields("FOTOCHECK") = fotoch
DataReloj.Recordset.Fields("FECHA") = fec
DataReloj.Recordset.Fields("TIPO") = TIP
DataReloj.Recordset.Fields("HORA") = hr
DataReloj.Recordset.Fields("FLAG") = 0
DataReloj.Recordset.Update
Loop Until EOF(1)
Close #1
DataReloj.Refresh

MUCHAS GRACIAS AMIGOS.

EDUARDO

HAY QUE AGREGAR LA LINEA

Open App.Path & "\dat\Murdoch.dat" For Input As #1

ANTES DEL DO

HOLA AMIGOS:

TENGO UN SISTEMA EN VBASIC 6 Y ME SOLICITAN MIGRARLO A .NET

ALGUNAS COSAS ENTIENDO, PERO TENGO EL SGTE PROBLEMA:

COM LEER UN ARCHIVO SECUENCIAL, MI ARCHIVO ES MURDOCH.DAT Y CONTIENE ALGO PARECIDO A:

0110048083100014-06-050010721B
0110045021200014-06-050010731B
0110045021200014-06-050010731E
0110055061700014-06-050010819B
0110002876600014-06-050011300E
0110069041100014-06-050011307E

MI CODIGO EN VB6 ERA:

Do
Line Input #1, variable
cad1 = Mid(variable, 1, 30)
fotoch = Mid(cad1, 6, 6)
fec = Mid(cad1, 15, 8)
TIP = Mid(cad1, 30, 1)
hr = Mid(cad1, 26, 2) & ":" & Mid(cad1, 28, 2)
DataReloj.Recordset.AddNew
DataReloj.Recordset.Fields("FOTOCHECK") = fotoch
DataReloj.Recordset.Fields("FECHA") = fec
DataReloj.Recordset.Fields("TIPO") = TIP
DataReloj.Recordset.Fields("HORA") = hr
DataReloj.Recordset.Fields("FLAG") = 0
DataReloj.Recordset.Update
Loop Until EOF(1)
Close #1
DataReloj.Refresh

MUCHAS GRACIAS AMIGOS.

EDUARDO

No se si te sirva este código

Dim srfRenta As StreamReader = File.OpenText("\My Documents\periodo.txt")

Dim strLineaRenta As String

strLineaRenta = srfRenta.ReadLine

While Not strLineaRenta Is Nothing

strLineaRenta = srfRenta.ReadLine

MsgBox("strLineaRenta " + strLineaRenta)

insert = New SqlCeCommand("INSERT INTO periodo VALUES (strLineaRenta)", cn)

'insert.Connection.Open()

insert.ExecuteNonQuery()

End While

Saludos
Marlen