Rechercher un mot dans une source binaire

Bonjour, voilà j'ai fait une petite fonction booléenne pour savoir si oui ou non un mot a été trouvé dans la source d'un fichier, je voulais savoir si il existe ou si vous connaissez une méthode plus rapide que celle que j'ai faite qui suit :

Peut être mon idée de tableau est pas bonne...

---
SearchStr = "Le mot"
---
Dim bContents() As Byte
ReDim bContents(LOF(oFile))
Get #oFile, , bContents
---

La partie de recherche que j'aimerai amélioré :

        For i = 0 To UBound(bContents)
            If bContents(i) = Asc(Left$(SearchStr, 1)) Then
                Found = 0
                For j = Len(SearchStr) - 1 To 1 Step -1
                    If bContents(i + j) <> Asc(Mid$(SearchStr, 1 + j, 1)) Then
                        Found = -1
                        Exit For
                    End If
                Next
                If Found = 0 Then
                    MSGBOX " TROUVER !"
                End If
            End If
        Next

Ps: Si vous ne comprenez rien dite le moi j'essayerai de mieux m'expliquer lol.

kakenette

salut,

à vérifier avec le fichier en question mais logiquement, "le mot" est alors entrecoupé de vbnullchar

dans quel cas on doit pouvoir accélérer la recherche avec (après la lecture vers le tableau de byte) :

dim s$
s=bContents
found = iif(instrb(1,s,strconv(SearchStr,vbunicode))=0,-1,0)


pas testé et juste tapé dans cette fenêtre, çà doit pas être bien loin de çà....
++

---

Prenez un instant pour répondre à ce sondage svp <

Hello, je comprend pas comment modifier avec se que tu ma donner...

kakenette

j'ai pourtant repris tes "-1" et "0" du la même manière que toi, justement....

SearchStr = "Le mot"
Dim bContents() As Byte
ReDim bContents(LOF(oFile))
Get #oFile, , bContents

dim s$
s= bContents
if instrb(1,s, strconv( SearchStr ,vbunicode) )>0 then MSGBOX "TROUVé !"

---

Prenez un instant pour répondre à ce sondage svp 

Et bien hélasse ça marche pas. ça ne me trouve pas le mot. :(

kakenette

j'ai remplacer toute ma boucle de recherche par se que tu ma mis mais ça fonctionne pas, ça me renvoie toujours -1

j'ai pas testé et c'est saisi ici.....
tu peux héberger un fichier?

hein ? j'ai pas compris se que tu veux me dire, tu veux que j'héberge quoi?

En réalité la fonction est asser simple, J'ouvre un fichier, je récupère la source binaire et je regarde si oui ou non un mot s'y trouve. Pour le moment j'ai pas trouver plus vite que ma boucle...

kakenette

si c'est un fichier "normal" (ascii ou ansi), pourquoi tu l'ouvres en binaire?
c'est pourquoi je demandais un exemple de fichier

et dans ce cas :

Private Sub  Form_Load()
    Dim FF As Integer, sBuffer As String
    Const SearchStr As String = "Le mot"
    FF = FreeFile
    Open "C:\fichier.txt" For Input As #FF
        sBuffer = Input(LOF(FF), 1)
    Close #FF
    
    If InStrB(1, sBuffer, SearchStr) > 0 Then MsgBox "TROUVé !"
End Sub

possible également de lire ligne par ligne pour ne pas avoir à récupérer la totalité d'un bloc, la différence d'exécution ne s'en fera ressentir que sur de gros fichiers, à tester...

---

Prenez un instant pour répondre à ce sondage svp 

C'est comme ca que tu voulais dire ?

Private Sub Command1_Click()

        Dim bContents() As Byte
        Dim SearchStr As String
        Dim oFile As Long
       
        oFile = FreeFile
       
        Open "Chemin du fichier" For Binary Access Read As #oFile
            ReDim bContents(LOF(oFile))
            Get #oFile, , bContents
        Close #oFile

        SearchStr = "Le mot"

        Dim s$
        s = bContents
        If InStrB(1, s, StrConv(SearchStr, vbUnicode)) > 0 Then MsgBox "TROUVé !"

End Sub

Ca trouve pas :(

kakenette