Estoy haciendo un programa en Visual Basic, he de mencionar que nunca habia menjado Visual Basic ni C#, pero sé un poco de C++ y Java.
Lo que quiero hacer es leer un .txt que tiene una serie de datos separados por ":", cuando lea el primer dato, realizar una función, después leer el siguiente dato y realizar otra función, ya habiendo leido la primera linea, antes de pasar a la siguiente, realizar otra función.
El contenido del txt está organizado así:
Pedro:Gomez
Camila:Suarez
Juan:Molina
Traté de crear dos label's para obtener cada dato que quiero usar, el primer label contendría el valor del primer dato (Pedro) y el segundo label contendría el segundo Label (Gomez), al tener esos datos guardados en un label, sólo llamaría al texto que tienen para darles uso, pero el código directamente lee todos los datos y a los dos label's les da el último valor (Molina).
De antemano gracias por la(s) respuesta(s).
El código que utilizo para leer el txt y leer los datos separados por ":" es el siguiente (No los desarrollé yo):
Private Sub ingresar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ingresar.Click
Dim OpenFileDialog1 As New OpenFileDialog
OpenFileDialog1.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
OpenFileDialog1.Filter = "Text files|*.txt"
'Abrir documento.
If (OpenFileDialog1.ShowDialog() = DialogResult.OK) Then
Dim FileName As String = OpenFileDialog1.FileName
Me.RichTextBox1.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.PlainText)
End If
Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser(OpenFileDialog1.FileName)
MyReader.TextFieldType = FileIO.FieldType.Delimited
MyReader.SetDelimiters(":")
Dim currentRow As String()
While Not MyReader.EndOfData
Try
currentRow = MyReader.ReadFields()
Dim currentField As String
For Each currentField In currentRow
cuenta.Text = currentField
password.Text = currentField
Next
Catch ex As Microsoft.VisualBasic.
FileIO.MalformedLineException
MsgBox("Line " & ex.Message &
"is not valid and will be skipped.")
End Try
End While
End Using
End Sub
currentField
será ´Molina` y, por tanto, la que recibirán ambosLabels
.