Discussion :

[XylonAkau]

___Ia ora na.
1)

pourquoi on a utilisé les caractères $ et & avant et aprés les variable de cette instruction

___Vieille habitude datant du siècle dernier ;

Code :

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

1
2
3
Dim A$, I%
' est la même chose que
Dim A As String, I As Integer

Comme ça marche encore, j'en profite ; n'en tenez pas compte.
2)

j'ai utilisé encore cette instruction :
For i = 1 To Len(a)
Mid(b, i, 1) = Mid(a, i, 1)
Next i
il m'a afficher l'eurreur :
"Run time error 5:
invalid procedure call or argument"

___Avez-vous remplacé, à la ligne 13,

Code :

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

1
2
3
4
b = ""
' par
b = Space(Len(a))
' ?

3) Par acquit de conscience, j'ai exécuté votre programme en choisissant un fichier de taille moyenne : Explorer.exe (environ un mégaoctet : 1.037.824 octets, précisément) ; avec successivement, à la ligne 15,
a}

Code :

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

b = b & Mid(a, i, 1)

>>> Il a fallu 454,39 secondes (environ sept minutes et demie) pour arriver au bout du travail ;
b} à la place,

Code :

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

Mid(b, i, 1) = Mid(a ,i, 1)

>>> Il a fallu 0,15625 seconde (sans message d'erreur) ; bien sûr, le fichier n.exe obtenu est bien identique à Explorer.exe .
___Comme le temps demandé croît de façon exponentielle, il doit falloir entre une demi-heure et une heure pour exécuter complètement la boucle

Code :

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

b = b & Mid(a, i, 1)

avec un fichier de 4 Mo.
___Bonne poursuite de votre projet.

[sohaieb]

___Ia ora na.
1)
___Vieille habitude datant du siècle dernier ;

Code :

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

1
2
3
Dim A$, I%
' est la même chose que
Dim A As String, I As Integer

Comme ça marche encore, j'en profite ; n'en tenez pas compte.
2) ___Avez-vous remplacé, à la ligne 13,

Code :

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

1
2
3
4
b = ""
' par
b = Space(Len(a))
' ?

3) Par acquit de conscience, j'ai exécuté votre programme en choisissant un fichier de taille moyenne : Explorer.exe (environ un mégaoctet : 1.037.824 octets, précisément) ; avec successivement, à la ligne 15,
a}

Code :

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

b = b & Mid(a, i, 1)

>>> Il a fallu 454,39 secondes (environ sept minutes et demie) pour arriver au bout du travail ;
b} à la place,

Code :

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

Mid(b, i, 1) = Mid(a ,i, 1)

>>> Il a fallu 0,15625 seconde (sans message d'erreur) ; bien sûr, le fichier n.exe obtenu est bien identique à Explorer.exe .
___Comme le temps demandé croît de façon exponentielle, il doit falloir entre une demi-heure et une heure pour exécuter complètement la boucle

Code :

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

b = b & Mid(a, i, 1)

avec un fichier de 4 Mo.
___Bonne poursuite de votre projet.

vraiment vous m'avez sauvé !!!!! merciiiiiiiiiiiiiiiiiiii infiniment !!!! j'étais vraiment trop stressé et enfin je suis tréés heureux de votre aide !! merciii merciii infiniment !!! et mercii à tous les autres amis qui ont essayé à m'aider c'est trés gentil de votre part !

[XylonAkau]

___Ia ora na.
___C'est une bonne chose que vous ayez pu résoudre votre problème. Souhaitons que la suite de votre travail n'en rencontre pas trop d'autres.
___Bon courage, en tous cas.