Discussion :

[djedje-08]

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

[jcdentons]

Bonjour djedje-08,

A mon avis, l'erreur se situe sur le découpage du fichier :

Code :

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

fichier.Split(Chr(10))

Votre fichier doit probablement être constitué de la manière suivante (en affichant les "caractères spéciaux") :

Code :

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

1
2
3
4
5
6
Ligne 1Chr(13)Chr(10)
BonjourChr(13)Chr(10)
Ligne suivanteChr(13)Chr(10)
55Chr(13)Chr(10)
Page suivanteChr(13)Chr(10)
22

Pour le vérifier, vous pouvez utiliser un éditeur de texte (type Notepad++) et afficher tous les caractères : combien y a-t-il de caractère à la fin de chaque ligne ? Un retour chariot et un saut de ligne ou uniquement un saut de ligne ?

Donc le découpage (la variable LigneLue) doit donner quelque chose comme :

Code :

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

1
2
3
4
5
6
7
{
   "Ligne1Chr(13)",
   "BonjourChr(13)",
   "Ligne suivanteChr(13)",
   "55Chr(13)",
   "Page suivanteChr(13)",
   "22"

=> Il n'y a pas d'élément "55" (mais un élément "55Chr(13)"), et bien un élément "22".

[djedje-08]

IMPEC
Merci beaucoup, en utilisant le code suivant, ça fonctionne parfaitement.

Code :

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

1
2
3
4
If substring = Test & Chr(13) Then
                MsgBox("texte trouvé sur le serveur")
                internetvalid = True
            End If

Je pensais bien que c'était un petit truc à la con, mais je n'arrivais pas à trouver
Merci pour ton aide.

[jcdentons]

Attention, la dernière ligne du fichier ne contient pas le "char(13)" . . .

[djedje-08]

haa oui, oui, je corrige donc comme suit :

Code :

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

If substring = Test & Chr(13) or substring = Test Then

Merci pour ce rappel