Bonjour à tous,
J'aimerai simplement vérifier la présence d'une chaine dans un fichier placé sur internet (et protégé par un htaccess, mais ce n'est pas là le probème).
Mon fichier contient plusieurs lignes, et est construit comme suit :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Ligne 1
Bonjour
Ligne suivante
55
Page suivante
22
Pour cela, je pensais utiliser le code suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Test as string
Test = "55"
 Dim wclient As New WebClient() With {.Credentials = New NetworkCredential("LOGIN", "PASS")}
        Dim fichier As String = wclient.DownloadString("http://www.monsite.fr/repertoire/fichier.txt")
        Dim LigneLue() As String = fichier.Split(Chr(10))
 
        For Each substring In LigneLue
            MsgBox(substring)
            If substring = Test Then
                MsgBox("texte trouvé sur le serveur")
                internetvalid = True
            End If
 
        Next
Malheureusement le code ne fonctionne pas.
Chaque ligne semble bien lue, puisque MsgBox(substring) m'affiche bien chacune des lignes.
Si au lieu de rechercher "55" je rechercher "22" j'ai bien le message "texte trouvé sur le serveur".
Je ne comprends donc pas pourquoi mon code ne fonctionne pas ...
J'imagine que c'est une erreur de comptabilité de variable

J'ai également essayé avec le code suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
  Dim sr As StreamReader = New StreamReader("http://www.monsite.fr/repertoire/fichier.txt")
        Do While sr.Peek() >= 0
            MsgBox(sr.ReadLine())
            If sr.ReadLine() = Test Then
                MsgBox("clé trouvée sur le serveur")
                internetvalid = True
            End If
        Loop
        sr.Close()
Mais j'ai une erreur "Les formats URI ne sont pas pris en charge"

Quelqu'un pourrait m'aider à solutionner ce petit problème ?
Merci d'avance