Discussion :

[jboss38]

Bonjour,

Je développe un petit bout de code qui permet de lire un ficher byte par byte puis de l’écrire dans un nouveau fichier créé préalablement.
Je voulais savoir si je pouvais optimiser ce code pour que le traitement soit plus rapide, en effet il faut bien 5 minutes au-delà de 20Mo de fichier.

Voici mon bout de code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Using file As New IO.FileStream(SrcFile, IO.FileMode.Open)
Using fileCrpt As New IO.FileStream(cryptName, IO.FileMode.Open)
For i As Integer = 0 To dataArray.Length - 1
                        dataArray(i) = file.ReadByte()
                        HexResult = dataArray(i).ToString("X2")
                        cryptHex = crypt(HexResult)
                        fileCrpt.WriteByte(CByte(Conversion.Val("&H" & cryptHex)))
                        EndOfCryptBar.Value = i
                    Next i
 
End Using
End Using

Comme vous l'avez vu il y a une conversion mais cela n'affecte pas la durée, j'ai essayé sans c'est pareil.
Voilà j’espère que vous pourrez m'aider à optimiser ce code (si c'est possible)

Ce qui me prend beaucoup de ressources c'est le tableau dataArray qui prend la même taille que le fichier source j'ai essayé de la purger au fur et à mesure mais je n'y arrive pas, je mets juste la valeur du tableau en empty.
( dataArray(i - 1) = vbEmpty )

Merci d'avance !

[jboss38]

Ok j'ai gagner un peu de vitesse, c'était a cause de mon comptage I.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Do Until file.Position >= file.Length
                        If FilesrcLen < 4095 Then
                            DataLeng = FilesrcLen - 1
                        Else
                            DataLeng = "4095"
                            FilesrcLen = FilesrcLen - 4096
                        End If
                        Dim dataArray(DataLeng) As Byte
                        For i As Integer = 0 To dataArray.Length - 1
                            dataArray(i) = file.ReadByte()
                            HexResult = dataArray(i).ToString("X2")
                            cryptHex = crypt(HexResult)
                            fileCrpt.WriteByte(CByte(Conversion.Val("&H" & cryptHex)))
                            'vCount = vCount + 1
                        Next i
                        EndOfCryptBar.Value = file.Position
                    Loop

J'ai fait autrement c'est beaucoup plus rapide, mais je sens que ce n'est pas encore la meilleur façon de faire !