Visualizzazione dei risultati da 1 a 8 su 8

Visualizzazione discussione

  1. #4
    Grazie per le risposte ragazzi.
    Io sto leggendo i CSV in questo modo (magari è anche sbagliato), il problema è che non so come continuare...
    So che non è abitudine del forum dare codici belli e pronti, però riga di codice sarebbe di aiuto...
    Please!

    Dopo averlo selezionato con una comunissima OpenDialog, lo leggo:
    codice:
            Dim TextFileReader As New Microsoft.VisualBasic.FileIO.TextFieldParser(TextBox1.Text)
    
    
            TextFileReader.TextFieldType = FileIO.FieldType.Delimited
            TextFileReader.SetDelimiters(";")
    
    
            Dim TextFileTable As DataTable = Nothing
    
    
            Dim Column As DataColumn
            Dim Row As DataRow
            Dim UpperBound As Int32
            Dim ColumnCount As Int32
            Dim CurrentRow As String()
    
    
            While Not TextFileReader.EndOfData
                Try
                    CurrentRow = TextFileReader.ReadFields()
                    If Not CurrentRow Is Nothing Then
                        ''# Check if DataTable has been created
                        If TextFileTable Is Nothing Then
                            TextFileTable = New DataTable("TextFileTable")
                            ''# Get number of columns
                            UpperBound = CurrentRow.GetUpperBound(0)
                            ''# Create new DataTable
                            For ColumnCount = 0 To UpperBound
                                Column = New DataColumn()
                                Column.DataType = System.Type.GetType("System.String")
                                Column.ColumnName = "Column" & ColumnCount
                                Column.Caption = "Column" & ColumnCount
                                Column.ReadOnly = True
                                Column.Unique = False
                                TextFileTable.Columns.Add(Column)
                            Next
                        End If
                        Row = TextFileTable.NewRow
                        For ColumnCount = 0 To UpperBound
                            Row("Column" & ColumnCount) = CurrentRow(ColumnCount).ToString
                        Next
                        TextFileTable.Rows.Add(Row)
                    End If
                Catch ex As  _
                Microsoft.VisualBasic.FileIO.MalformedLineException
                    MsgBox("riga" & ex.Message & _
                    "non valida.")
                End Try
            End While
            TextFileReader.Dispose()
            DataGridView1.DataSource = TextFileTable
    Ultima modifica di MItaly; 24-08-2014 a 18:19

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.