visual studio + metodo split

[darksteel-]

  saludos.

bueno estoy haciendo una aplicacion en ambiente visual studio 2005, la cual lee un archivo txt.

el problema es que guardo los datos asi.

Código [Seleccionar] Expandir

nombre,apellido,edad,pais



el problema es al leerlo y meterlo en un arreglo(array) llamado strNombre.

he tratado de usar la funcion de split, colocando como delimitador la ",", pero no me funciona . alguna sugerencia?

[naderST]

Código [Seleccionar] Expandir


Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strNombre As String

        strNombre = "Juan,Moreno,15"

        MsgBox(Split(strNombre, ",")(1))
    End Sub
End Class


Te devolveria el apellido.

0 = Nombre
1 = Apellido
2 = Edad

[darksteel-]

muchisimas gracias, eso me funciona a la perfeccion, pero al ponerle el arreglo da error:

Código [Seleccionar] Expandir


Dim strNombre() As String
        Dim inputfile As StreamReader
        Dim lines As String
        inputfile = File.OpenText("participantes.txt")
        Do While inputfile.Peek <> -1

            lines = inputfile.ReadLine
            strNombre = Split(lines, ",")(1)

        Loop

        inputfile.Close()

Error   1   Value of type 'String' cannot be converted to '1-dimensional array of String'.   G:\---

Gracias

[naderST]

Mira aca te dejo un ejemplo

Código [Seleccionar] Expandir


Imports System
Imports System.IO

Public Class Form1
    Dim inputfile As StreamReader
    Dim lines As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        inputfile = System.IO.File.OpenText("C:\test.txt")

        Do While inputfile.Peek <> -1
            lines = inputfile.ReadLine
            TextBox1.Text = Split(lines, ",")(0) 'Nombre
            TextBox2.Text = Split(lines, ",")(1) 'Apellido
            TextBox3.Text = Split(lines, ",")(2) 'Edad
        Loop
    End Sub
End Class


C:\test.txt

Código [Seleccionar] Expandir


jose,moreno,15


[darksteel-]

heyy ya lo logree asi:

Código [Seleccionar] Expandir

Dim inputfile As StreamReader
        Dim lines As String
        inputfile = File.OpenText("participantes.txt")
        For i As Integer = 0 To (strNombre.Length - 1)
            lines = inputfile.ReadLine
            strNombre(i) = Split(lines, ",")(i)
        Next

        inputfile.Close()

muchas gracias por tu ayuda deverdad!