tester le contenu d'un fichier txt

Question

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

psykocrash · Answer

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 (. , ; : ! ...)

Tester le contenu d'un fichier txt

1 réponse

Discussions similaires