Discussion :

[AsmCode]

Je voudrais lire le contenu de 2 fichiers binaire pour placer leur octets dans un array() byte pour ensuite comparer 2 fichiers de taille identique octet par octer.

Voici mon code actuel:

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
18
19
20
21
22
23
24
25
26
 
 
    Dim File1() as byte
    Dim File2() as byte
    Dim iFileport As Integer
    Dim x As Long
 
    iFileport = FreeFile()
 
    Open Text1.Text For Binary As #iFileport
    File1() = Space(LOF(iFileport))
    Get #iFileport, , File1()
    Close iFileport
 
    iFileport = FreeFile()
 
    Open Text2.Text For Binary As #iFileport
    File2() = Space(LOF(iFileport))
    Get #iFileport, , File2()
    Close iFileport
 
    For x = 0 To UBound(File1())
 
        List1.AddItem Chr(File1(x))
 
    Next x

Le problème que j'ai c'est que Space double mon array alors quand je le parcours il y a la moitié du array qui n'a rien. J'ai essayé avec Redim File1(lof(ifileport)) as byte mais quand je fais mon get, mon array est vide il n'a que des 0

Comment faire ça correctement ?

[Megaxel]

Il me semble bien qu'il existe une commande DOS pour comparer 2 fichiers octet par octet. Alors tu pourrais l'utiliser dans un Shell( ), non?
Il faut que je retrouve le nom de cette commande...
: : : : :

[ouskel'n'or]

Comp

[ouskel'n'or]

Non non, ce n'était pas une injure, Megaxel...

[AsmCode]

Oui bien c'est que je voulais faire ma propre fonction pour pouvoir afficher les résultats comme je veux

[Megaxel]

Sache, petit poulet marcheur, que j'étais entrain (tchou tchou...) de jouer avec comp... Et je suis franchement déçu par le résultat: j'ai beau modifier les options, il ne me dit pas grand-chose, à part s'ils sont pareils ou différents... Il ne me donne pas les différences, ni où elles se trouvent...
Et si, AsmCode, tu arrives à le faire marcher comme tu veux, après, tu peux récupérer la sortie la sortie pour personnaliser ton affichage.

[SfJ5Rpw8]

Je voudrais lire le contenu de 2 fichiers binaire pour placer leur octets dans un array() byte pour ensuite comparer 2 fichiers de taille identique octet par octer.

Voici mon code actuel:

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
18
19
20
21
22
23
24
25
26
 
 
    Dim File1() as byte
    Dim File2() as byte
    Dim iFileport As Integer
    Dim x As Long
 
    iFileport = FreeFile()
 
    Open Text1.Text For Binary As #iFileport
    File1() = Space(LOF(iFileport))
    Get #iFileport, , File1()
    Close iFileport
 
    iFileport = FreeFile()
 
    Open Text2.Text For Binary As #iFileport
    File2() = Space(LOF(iFileport))
    Get #iFileport, , File2()
    Close iFileport
 
    For x = 0 To UBound(File1())
 
        List1.AddItem Chr(File1(x))
 
    Next x

Le problème que j'ai c'est que Space double mon array alors quand je le parcours il y a la moitié du array qui n'a rien. J'ai essayé avec Redim File1(lof(ifileport)) as byte mais quand je fais mon get, mon array est vide il n'a que des 0

Comment faire ça correctement ?

ton code fonctionne chez moi avec :

Code :

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

1
2
3
4
5
 ...
      ReDim File1(LOF(iFileport) - 1)
       Get #iFileport, , File1()
    Close iFileport
...

..?


sinon pour les 2 volatiles ... en plus de comp vous avez aussi la commande fc pour jouer...

[leroissejp]

Bonsoir,
Tu dois indiquer le chemin de ton répertoire.

Open "C:\TonFichier1.txt" For Binary As #iFileport
etc....
etc.....
Open "C:\TonFichier2.txt" For Binary As #iFileport

jpleroisse

[AsmCode]

Oui je sais, ça marche aussi de mon côté comme je disais, mais avec cette ligne: File1() = space(lof(ifileport)) il me met le double de la grosseur du fichier

j'ai testé avec un fichier de 200 octets et le erray file1() avait 399 élément ..

Je crois que c'est à cause de l'unicode, mais comment fixer ce problème ?

[SfJ5Rpw8]

Oui je sais, ça marche aussi de mon côté comme je disais, mais avec cette ligne: File1() = space(lof(ifileport)) il me met le double de la grosseur du fichier

j'ai testé avec un fichier de 200 octets et le erray file1() avait 399 élément ..

Je crois que c'est à cause de l'unicode, mais comment fixer ce problème ?

en utilisant le redim ça ne marche vraiment pas chez toi ?

[AsmCode]

Avec redim il met bien la bonne taille au tableau de byte, mais quand il fait son get, au lieu d'avoir les octets il met tout à zéro

[AlainTech]

Je viens de tester ça en VBA Excel:

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
18
19
Sub test()
  Dim File1() As Byte
  Dim iFileport As Integer
  Dim x As Long
 
  iFileport = FreeFile()
 
  Open "C:\BOOT.INI" For Binary As #iFileport
  ReDim File1(LOF(iFileport) - 1)
  Get #iFileport, , File1()
  Close iFileport
 
  For x = 0 To UBound(File1())
 
    [A1] = [A1] & Chr(File1(x))
 
  Next x
 
End Sub

Et ça fonctionne très bien.
Je retrouve bien le contenu de mon BOOT.INI dans ma cellule A1.

[AlainTech]

Je crois que c'est à cause de l'unicode, mais comment fixer ce problème ?

Ca, ça m'étonnerait fort.

LOF est une longueur en bytes. Quel que soit le contenu.

[AlainTech]

Par contre, je constate que cette instruction:

Code :

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

    File1() = Space(LOF(iFileport))

Crée une array d'une taille double de la longueur du fichier et composée d'une alternance de valeurs 32 et 0.
A mon avis, il ne faut pas utiliser la fonction Space pour ce cas.