Ciclo su datatable troppo lungo

[zampa28]

                With DS.Tables("TblResult")
                    For Each c As DataColumn In .Columns
                        StrRecordset &= c.ColumnName
                        If c.Ordinal < .Columns.Count - 1 Then
                            StrRecordset &= vbTab
                        End If
                    Next
                    StrRecordset &= "{NL}"
                    For Each r As DataRow In .Rows
                        For Each c As DataColumn In .Columns
                            StrRecordset &= r(c)
                            If c.Ordinal < .Columns.Count - 1 Then
                                StrRecordset &= vbTab
                            End If
                        Next
                        StrRecordset &= "{NL}"
                    Next
                End With

questo ciclo (contenuto in un webservice), fatto su di un datatable con 1000 righe e 20 colonne ci impiega all'inirca 4 minuti...

c'è secondo voi un modo per velocizzare il tutto?

[pietro09]

38 secondi contro 0.2 secondi

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim t As New TempoOperazione
        t.Start()
        Dim dt As DataTable = Libreria.GetDataTable(StringaConnessioneSITAE, "SELECT * FROM PROTOCOLLO")

        Dim StrRecorset$ = ""
        For Each c As DataColumn In dt.Columns
            StrRecorset &= c.ColumnName
            If c.Ordinal < dt.Columns.Count - 1 Then
                StrRecorset &= ControlChars.Tab
            End If
        Next
        StrRecorset &= "{NL}"
        For Each r As DataRow In dt.Rows
            For Each c As DataColumn In dt.Columns
                StrRecorset &= Libreria.NullToString(r(c))
                If c.Ordinal < dt.Columns.Count - 1 Then
                    StrRecorset &= ControlChars.Tab
                End If
            Next
            StrRecorset &= "{NL}"
        Next


        t.End()
        PrintLn(t.Secondi)
        PrintLn(StrRecorset)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim t As New TempoOperazione
        t.Start()
        Dim dt As DataTable = Libreria.GetDataTable(StringaConnessioneSITAE, "SELECT * FROM PROTOCOLLO")

        Dim StrRecorset As New StringBuilder(10000)
        For Each c As DataColumn In dt.Columns
            StrRecorset.Append(c.ColumnName)
            If c.Ordinal < dt.Columns.Count - 1 Then
                StrRecorset.Append(ControlChars.Tab)
            End If
        Next
        StrRecorset.Append("{NL}")
        For Each r As DataRow In dt.Rows
            For Each c As DataColumn In dt.Columns
                StrRecorset.Append(Libreria.NullToString(r(c)))
                If c.Ordinal < dt.Columns.Count - 1 Then
                    StrRecorset.Append(ControlChars.Tab)
                End If
            Next
            StrRecorset.Append("{NL}")
        Next


        t.End()
        PrintLn(t.Secondi)
        PrintLn(StrRecorset.ToString)

    End Sub

[zampa28]

miticooooooooo!

[djciko]

Quindi, la dritta è usare la classe StringBuilder col suo metodo .Append invece di una Stringa normale ?

Davvero velocizza così tanto ?

Noto poi che Pietro usa direttamente un DataTable ...
PS : Ora però ci posti anche la classe TempoOperazione

[pietro09]

Originariamente inviato da djciko
Quindi, la dritta è usare la classe StringBuilder col suo metodo .Append invece di una Stringa normale ?

Davvero velocizza così tanto ?

Noto poi che Pietro usa direttamente un DataTable ...
PS : Ora però ci posti anche la classe TempoOperazione

allora, ho provato con una tabella di 1000 record di circa 35 campi. E i tempi sono quelli

Per quanto riguarda la classe TempoOperazione:

se( non sai fare 1+1=2)
{
non la mando tanto non la capiresti
}
altrimenti se (sai fare 1+1=2)
{
non la mando perchè tanto la sai fare da solo
}
altrimenti se(usi o credi di usare c#)
{
non te la mando così impari a farti le classi
}
altrimenti se (usi il basic)
{
sei simpatico e te la mando
}

[zampa28]

io sono passato da 4 minuti a 2 secondi...

[pietro09]

Originariamente inviato da zampa28
io sono passato da 4 minuti a 2 secondi...

cioè, in propozione, da circa 24 secondi a 0.2 secondi e più o meno la proporzione ritorna.

Adesso sono inquriosito se si ottiene qualche miglioramento precalcolando il numero di righe e il numero di colonne e usando nei cicli qualcosa del genere:
for i=0 to NumeroRighe - 1
***

oppure utilizzando qualcosa come:

dim e as IEnumerator = v.GetEnumerator()
While (e.MoveNext())
****

[Legnetto]

Originariamente inviato da djciko
Quindi, la dritta è usare la classe StringBuilder col suo metodo .Append invece di una Stringa normale ?

Davvero velocizza così tanto ?

Noto poi che Pietro usa direttamente un DataTable ...
PS : Ora però ci posti anche la classe TempoOperazione

Quando usi una stringa normale ogni volta che aggiungi o togli qualcosa, viene creata una nuova istanza della stessa, la classe stringbuilder è nata proprio per ovviare a questo problema.
Io lo uso moltissimo per creare quando mi serve l'html di una pagina.
Ciao

[djciko]

Originariamente inviato da Legnetto
Quando usi una stringa normale ogni volta che aggiungi o togli qualcosa, viene creata una nuova istanza della stessa, la classe stringbuilder è nata proprio per ovviare a questo problema.
Io lo uso moltissimo per creare quando mi serve l'html di una pagina.
Ciao

infatti, dal reference:

L'oggetto String non è modificabile. 
Ogni volta che si utilizza uno dei metodi 
nella classe System.String si crea un nuovo 
oggetto Stringa in memoria, che richiede 
una nuova allocazione di spazio. 
In situazioni nelle quali è 
necessario modificare ripetutamente 
una stringa, la creazione di un nuovo 
oggetto String può causare un overhead. 
Per modificare una stringa senza creare 
un nuovo oggetto si può utilizzare la classe System.Text.StringBuilder. Utilizzando 
ad esempio la classe StringBuilder è 
possibile migliorare le prestazioni 
in caso di concatenamento di più stringhe 
in un ciclo.