Gros problème au niveau de la recherche d'une String dans un fichier !!

Question

Salut.
Je suis actuellement en train de développer un navigateur Internet, et j'ai intégré un système de blocage de pages interdites.

Un bouton "Bloquer cette page" se situe dans la fenêtre principale du navigateur, permettant de bloquer la page définitivement.

Voici son code :

-----------------------------------------------------------------------------------

Private Sub cmdBlok_Click()
AdrP = WebBrowser.LocationURL
AdrB = " " & AdrP
Open "Data2.dat" For Append As #2
Print #2, AdrB
Close #2
Unload frmNav
End Sub

-----------------------------------------------------------------------------------

De plus, à l'évènement DownloadComplete de mon WebBrowser, j'ai mis le code suivant :

-----------------------------------------------------------------------------------

Private Sub WebBrowser_DownloadComplete()
If Arret = 1 Then
    lblChText.Caption = "Chargement arrêté."
    Arret = 0
Else:
    Dim BlokTrue As Integer
    Open "Data2.dat" For Input As #2
    Do While Not EOF(2)
    BlokTrue = InStr(1, 2, WebBrowser.LocationURL, 1)
    Loop
    Close #2
    If BlokTrue = 0 Then
        lblChText.Caption = "Chargement terminé."
        lblPage.Caption = WebBrowser.LocationName
        txtAdr.Text = WebBrowser.LocationURL
        cmdArreter.Enabled = "False"
    Else
        Unload frmNav
    End If
End If
End Sub

-----------------------------------------------------------------------------------

Ceci est censé vérifier si l'adresse sur laquelle on est, n'est pas dans la liste rouge du navigateur. Si elle l'est, la fenetre est éteinte (cela est utile pour pas avoir toujours le même popup).
Le fichier contenant les adresses est "Data2.dat", se situant dans la racine du dossier ou se trouve le programme.

Or, quand je lance le programme, rien ne s'affiche, mais le programme est quand même lancé...

SVP, aidez-moi...

Gobillot · Answer

Dim ligne As String

Do While Not EOF(2)
Line Input #2, ligne
BlokTrue = InStr( Ligne, webBrowser.LocationURL, 1)
If BlokTrue > 0 Then Exit Do
Loop

Daniel

link78180 · Answer

Ca me met "Erreur 13 : Type incompatible".
Bizarre.
Merci quand même.

cs_CanisLupus · Answer

Salut,

Je ne vois pas de prob dans le code de <Gobillot>.

webBrowser.LocationURL contient bien toujours une string ?

Et sur quelle ligne se produit ton erreur ?

Cordialement, CanisLupus

link78180 · Answer

Ca m'ammène à cette ligne la :

BlokTrue = InStr( Ligne, webBrowser.LocationURL, 1)

Gobillot · Answer

BlokTrue = InStr(1, Ligne, webBrowser.LocationURL, vbTextCompare)

ou

BlokTrue = InStr(Ligne, webBrowser.LocationURL )

Daniel

link78180 · Answer

Erreur d'éxecution 55 : Fichier déjà ouvert.

Snifffffffffffff

Gros problème au niveau de la recherche d'une String dans un fichier !!

6 réponses

Discussions similaires