Tester le contenu d'un fichier txt

sadnotrue Messages postés 42 Date d'inscription jeudi 4 juillet 2002 Statut Membre Dernière intervention 31 mai 2005 - 14 juin 2004 à 09:50
psykocrash Messages postés 240 Date d'inscription vendredi 14 juin 2002 Statut Membre Dernière intervention 17 mars 2009 - 7 août 2004 à 21:39
Bonjour à vous qui lirez ce message !!!

Voilà mon pb :
j'ai un fichier que j'ai récupéré sur une disquette déféctueuse, qui contenait un fichier xls.

J'ai récupéré ce fichier sous format texte mais bien sur, il est crypté mais les informations qui m'interesse sont encore visible.

J'aimerais savoir s'il existait un moyen en vb de vérifier que les différents caractères de ce fichier, à savoir si c'est une lettre de l'alphabet, un ; , . ! ou un chiffre je l'enregistre dans un autre fichier.

Si qq1 a une idée faîtes moi signe !!

Merci

Sadnotrue

1 réponse

psykocrash Messages postés 240 Date d'inscription vendredi 14 juin 2002 Statut Membre Dernière intervention 17 mars 2009
7 août 2004 à 21:39
C'est tres simple :
Dim Buffer as String * 1
Dim PositionSource as long
Dim PositionDest as long
Open FichierSource For Binary as #1
Open Fichier Dest For Binary as #2
PositionSource = 1
PositionDest = 1
Seek #1, 1
Seek #2, 1
While Not EOF(1)
Doevents
get #1, PositionSource, buffer
if asc(buffer) >= asc("a") AND asc(buffer) <= asc("z") then
Put #2, PositionDest, buffer
PositionDest = PositionDest + 1
end if
if asc(buffer) >= asc("A") AND asc(buffer) <= asc("Z") then
Put #2, PositionDest, buffer
PositionDest = PositionDest + 1
end if
if asc(buffer) >= asc("0") AND asc(buffer) <= asc("9") then
Put #2, PositionDest, buffer
PositionDest = PositionDest + 1
end if
PositionSource = PositionSource + 1
Wend

Ce code ne gere que les letrtes et les numéros, a toi d'y ajouter les caractères spéciaux dont tu a besoin (. , ; : ! ...)
0