Ver Mensaje Individual
  #7 (permalink)  
Antiguo 15/01/2004, 17:43
Avatar de RootK
RootK
Moderador
 
Fecha de Ingreso: febrero-2002
Ubicación: México D.F
Mensajes: 8.004
Antigüedad: 22 años, 9 meses
Puntos: 50
Hola... si tu archivo de texto siempre está en la forma:

Cita:
[Bird Hunter 2003]
1=Caza
2=Ingles
3=CD
4=Windows 95/98/ME/NT/2000/XP
'espacio
[Deer Hunter 2004]
1=Caza
2=Ingles
3=CD
4=Windows 95/98/ME/NT/2000/XP
'espacio
...
lo que se me ocurre rápidamente sería que utilices el el dataset, dataocolumn y la clase streamreader (system.io) para accesar al file..y un datagrid para mostrar los datos.

El código sería el siguiente:

Cita:
Dim r As StreamReader = File.OpenText("c:\tuarchivo.txt")
Dim rl As String 'variable donde guardaré el contenido
Dim count As Integer = 0

Dim ds As New DataSet
Dim dt As New DataTable("Category")
'Agrego las columnas
dt.Columns.Add("Nombre")
dt.Columns.Add("Genero")
dt.Columns.Add("Idioma")
dt.Columns.Add("Soporte")
dt.Columns.Add("S.0")

'Le asigno las columnas ya agregadas al dataset
ds.Tables.Add(dt)
Dim dr As DataRow = dt.NewRow

Do While r.Peek <> -1 'Navego por el archivo
rl = r.ReadLine
If count > 4 Then
count = 0
dt.Rows.Add(dr)
dr = dt.NewRow
Else
dr(count) = rl 'Guardo la primera línea
count += 1
End If

Loop

DataGrid1.DataSource = ds
DataGrid1.DataBind()
Espero que te sirva éste ejemplo.

Saludos y suerte
__________________
Nadie roba nada ya que en la vida todo se paga . . .

Exentrit - Soluciones SharePoint & Net