Ouvertures de fichiers

Question

Comment on fait pour savoir les caractères manquant dans un fichier à un débit assez élevé.
C' est pour faire un programme de compression mais quand je le fais j' ai un débit dans les 2ko/s.
J' avais fais:

dim CaractèresManquants (0 to 255) as booléen
Dim I as long
dim Caractère as string
open fichier for binary as #1
for i = 1 to filelen(fichier)
    caractère = " "
    get#1,i,caractère
    caractèresmanquants(asc(caractère) = true
next I
close #1


Il y a une solution + rapide ?
Merci d' avance.
 8-)

NitRic · Answer

Dim CaractèresManquants(255) As Boolean
Dim Caractère as string
Dim lFile As Long

lFile = FreeFile

Open "C:\Mon fichier.123" For Binary As #lFile

Do

    Caractère = String$(1, " ")
    Get #lFile, , Caractère

    CaractèresManquants(Asc(Caractère)) = True

Loop Until EOF(lFile)

Close #lFile

C'est une facon de faire...

Ouvertures de fichiers

1 réponse

Discussions similaires