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...
-------------------------------
Réponse au message :
-------------------------------
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.
