Discussion :

[Esmax]

Bonjour,

J essaye de faire une fonction recherche sur un fichier binaire mais je ne sais pas comment faire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Call VerifER(Tableau de variable, "C:\Copie de Fichier test.txt")
Private Function VerifER(sMotrecherche As String, sFile As String) As Boolean
    If Dir(sFile, vbSystem Or vbHidden) = vbNullString Then
'       fichier existe?
        ChangeWords = False
    Else
        Dim FF As Integer, sBuffer As String, sBuffer2 As String
        FF = FreeFile
        sBuffer = Space$(FileLen(sFile)) ' sBuffer fait exactement la taille du fichier
        Open sFile For Binary As #FF
            Get #FF, 1, sBuffer
        Close #FF
   ' et ensuite je voudrais mettre un code du genre: If search(sBuffer,Tableau de variable) = True then
         then sBuffer2= sFile & "contient une erreur"

Donc mon but du programme serait d ouvrir un fichier binaire et de verifier son contenu. Si le contenu contient l'une des mots contenu dans mon tableau de variable. alors j'inscris un message d'erreur dans sbuffer2 pour ensuite le remettre dans un fichier .txt


Le problelme est:

Comment faire un recherche sur un ensemble de variable? Et comment realiser un dictionnaire qui contient cette ensemble de variable ?



Avez vous une idee ?

Merci

[DAUDET78]

Il faut que tu testes successivement, avec Instr, toutes les chaines de ton tableau

[Esmax666]

Merci pour la reponse mais je ne comprends pas trop...
en realité je ne sais connais pas la methode( le code) pour realiser ce type de programme. pourrais tu me donner un extrait de code qui contient la fonction "recherche" sur un "tableau"
je ne sais vraiment pas comment on fait cela


merci

[DAUDET78]

Je vais pas faire ton boulot !

1. Tu balayes ton tableau
2. Tu extraits un texte
3. Tu cherches avec Instr si c'est dans ton fichier
4. Si non, tu recommences en 2.