Ver Mensaje Individual
  #1 (permalink)  
Antiguo 05/03/2011, 12:24
buddyk9
 
Fecha de Ingreso: septiembre-2008
Mensajes: 113
Antigüedad: 15 años, 8 meses
Puntos: 1
leer archivo de texto

Tengo problemas para "leer" un archivo de texto, y posteriormente, asignar los valores entre cada separador (un tabulador) una variable (que sería lo semejante a un campo de una base de datos tipo acces), para cada fila (registro).

¿me podrían ayudar? Muchas gracias

Mi código es el siguiente y no se lo que está mal

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser("C:\D ocuments\hola.txt")
MyReader.TextFieldType = FileIO.FieldType.Delimited
MyReader.SetDelimiters("vbTAb")
Dim well, sample_name, detector, task, ct, StdDev_Ct, Qty_Mean, Qty As Long



While Not MyReader.EndOfData
Try
Dim line As String = MyReader.ReadLine
Dim value() As String = line.Split("vbTab")


well = value(1)
sample_name = value(2)
detector = value(3)
task = value(4)
ct = value(5)
StdDev_Ct = value(6)
Qty_Mean = value(7)
Qty = value(8)


Dim salida2 As String = well & "," & sample_name & "," & Qty & vbNewLine

My.Computer.FileSystem.WriteAllText("C:\Documents\ adios.txt", salida2, True)




Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineExceptio n
MsgBox("Linea " & ex.Message & "no es valida y se va a saltar.")
End Try
End While
End Using

End Sub
__________________
Genética animal y veterinaria