CLR: .Net / Mono / Boo / Otros CLR > ASP .NET

 Paginar Data Set En Asp .net !!!

<< < (5/7) > >>

nenaely:
ok, pero esta un pokitin largo.
aki esta
‘ leer fichero (boton 1)
Dim oFD As New OpenFileDialog
        With oFD
            .Title = "Seleccionar fichero"
            .Filter = "Ficheros de texto (*.txt;*.ini)|*.txt;*.ini" & _
                      "|Todos los ficheros (*.*)|*.*"
            .FileName = Me.txtfichero.Text
            If .ShowDialog = System.Windows.Forms.DialogResult.OK Then
                Me.txtfichero.Text = .FileName
            End If
        End With

“pasar al datagrid  (boton2)
Dim Obj As New List(Of Ren)
        Dim ob As Ren
        Dim f As Integer
        Dim palabra As String
        Dim columnas() As String
        f = FreeFile()
        FileOpen(f, txtfichero.Text, OpenMode.Input)
        While Not EOF(f)
            palabra = LineInput(f)
            columnas = Split(palabra, Chr(9))
            ob = New Ren
            ob.Col1 = columna(1)
            ob.Col2 = columna(2)
            ob.Col3 = columna(3)
            ob.Col4 = columna(4)
       End While
        FileClose(f)
        DataGridView1.DataSource = Objetos


ese es codigo que utilizo, para que me digas donde tengo el error
plissss ayudame estoy deseperada  :( .
si gustas pasarme tu mail para explicarte mejor (claro si kieres)

Javier Santamaria:
Hola, vamos a ver:

Me voy a centrar en el boton de cargar los datos, ya que si los carga descolocados quiere decir que el fichero lo lees.

Este es el codigo que has puesto:

Tu codigo va en morado, mis aclaraciones en rojo y el codigo propuesto en negro

Dim Obj As New List(Of Ren) - Supongo que tendras definido un objeto de tipo ren que sera algo asi como un registro con 4 campos que son las columnas
Dim ob As Ren
Dim f As Integer
Dim palabra As String
Dim columnas() As String
Si sabes que vas a tener cuatro columnas, como muestras mas abajo, yo pondria esto:
Redim columnas(3) 'Ten en cuenta que los arrays empiezan el indice en 0
f = FreeFile()
FileOpen(f, txtfichero.Text, OpenMode.Input)
While Not EOF(f)
palabra = LineInput(f)
columnas = Split(palabra, Chr(9)) - Yo esto no se si funcionara, es decir, columnas es un array. Si no funciona metiendo las columans en el array yo probaria con un bucle while y una variable entera que hiciera de indice, algo asi:
dim i as integer = 0
dim palabraindex as integer = 0
dim salir as boolean = false
while not salir
columnas(i) = palabra(palabraindex, palabraindex+8)
i = i + 1
palabraindex=palabraindex+9
if palabraindex = palabra.length then salir = true
end while
ob = New Ren
ob.Col1 = columna(1) - En estas cuatro asignaciones supongo que te refieres al array columnas, te vuelo a repetir lo del primer indice del array que es un 0
ob.Col2 = columna(2)
ob.Col3 = columna(3)
ob.Col4 = columna(4)
Yo aqui supongo que deberias meter ese ob en la lista obj, algo como:
obj.add(ob)
End While
FileClose(f)
DataGridView1.DataSource = Objetos - Supongo que con objetos te refieres a la lista obj

PD: Puedo haberme equivocado en algo, si te marca fallos intenta investigar alrededor del codigo que yo escribi en negro para que cumpla las normas.

Espero que te sirva.

Saludos

nenaely:
hola ya no entendi   :( osea kito mi codigo y pongo el tuyo? o agrego el tuyo asi como lo pusiste?

porque ya lo intnete y no me sale
si no es mucha molestia dime como quedaria con tus recomendaciones que ya no entendi

Javier Santamaria:
Prueba asi:


--- Código: Text --- Dim Obj As New List(Of Ren) Dim ob As RenDim f As IntegerDim palabra As StringDim columnas() As StringRedim columnas(3) 'Ten en cuenta que los arrays empiezan el indice en 0f = FreeFile()FileOpen(f, txtfichero.Text, OpenMode.Input)While Not EOF(f)palabra = LineInput(f)dim i as integer = 0dim palabraindex as integer = 0dim salir as boolean = falsewhile not salircolumnas(i) = palabra(palabraindex, palabraindex+8)i = i + 1palabraindex=palabraindex+9if palabraindex = palabra.length then salir = trueend whileob = New Renob.Col1 = columnas(0)ob.Col2 = columnas(1)ob.Col3 = columnas(2)ob.Col4 = columnas(3)obj.add(ob) 'Esto puede ser de alguna otra formaEnd WhileFileClose(f)DataGridView1.DataSource = Obj  
Si te da algun fallo comentalo y vemos que puede ser.

Saludos

nenaely:
hola ya lo cheque y si me da un error en palabaindex+8:

columnas(i) = palabra(palabraindex, palabraindex+8) 'Error   1   Too many arguments to 'Public ReadOnly Default Property Chars(index As Integer) As Char'.

es el unico error que me da

saludos

Navegación

[0] Índice de Mensajes

[#] Página Siguiente

[*] Página Anterior