Discussion :

[aeled]

Bonjour,

J'avais une fonction qui calcule le checksum d'un fichier

En gros une boucle sur tous les caractères du fichier et j'additionne les codes ascii

Code :

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

iCompteur = iCompteur + Microsoft.VisualBasic.Asc(c)

Sur un pc particulier, il me sortait un checksum différent de tous les autres avec le même contenu. j'ai lu que ca pouvait dépendre du codepage de Windows. Du coup j'ai modifié ma fonction en :

Code :

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

iCompteur = iCompteur + System.Text.Encoding.GetEncoding(1252).GetBytes(c)(0)

Mais pareil. Et là.... je ne comprends pas !

Des idées ?

[KooKiz]

Je pense qu'il faut définir l'encodage en amont, au moment où tu lis le fichier. Tu peux montrer le code qui te permet de récupérer 'c' ?

[aeled]

C'pas bête du tout. Galère à chaque fois faut que je déploie en prod sur le seul pc qui plante pour tester

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
 Dim oStreamReader As StreamReader = Nothing
            Try
                oStreamReader = New StreamReader(sPath)
                Do
                    sLine = oStreamReader.ReadLine()
                    If Not String.IsNullOrEmpty(sLine) Then
                        If Not sLine.ToUpper.StartsWith("'CHECKSUM") Then
                            For Each c As Char In sLine
                                iCompteur = iCompteur + System.Text.Encoding.GetEncoding(1252).GetBytes(c)(0)
                                'iCompteur = iCompteur + Microsoft.VisualBasic.Asc(c)
                            Next
                        End If
                    End If
                Loop Until sLine Is Nothing
[...]

[KooKiz]

Essaie de remplacer ton :

Code :

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

oStreamReader = New StreamReader(sPath)

par :

Code :

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

oStreamReader = New StreamReader(sPath, System.Text.Encoding.ASCII)

Et je pense que ça devrait marcher

[aeled]

Well done

Avec

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 oStreamReader = New StreamReader(sPath, System.Text.Encoding.ASCII)
                Do
                    sLine = oStreamReader.ReadLine()
                    If Not String.IsNullOrEmpty(sLine) Then
                        If Not sLine.ToUpper.StartsWith("'CHECKSUM") Then
                            For Each c As Char In sLine
                                iCompteur = iCompteur + System.Text.Encoding.ASCII.GetBytes(c)(0)
                                'iCompteur = iCompteur + Microsoft.VisualBasic.Asc(c)
                            Next
                        End If
                    End If
                Loop Until sLine Is Nothing

Ca marche

Merci !