Encoding / Codepage windows problème

Version imprimable

19/10/2010, 12h01
aeled

Encoding / Codepage windows problème

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:

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:

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

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

Des idées ? :?
19/10/2010, 13h00
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' ?

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 :lol:

Code:

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
[...]

19/10/2010, 14h05
KooKiz

Essaie de remplacer ton :

Code:

oStreamReader = New StreamReader(sPath)

par :

Code:

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

Et je pense que ça devrait marcher :)

Well done

Avec

Code:

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 !