Discussion :

[Invité]

Bonjour, voilà mon code:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sr As New IO.StreamReader("http://tonsite.com/test.txt")
If sr.ReadToEnd.Contains(TextBox1.Text) Then
Form2.Show
 
Else
 
End If
End Sub

Voila mon but était de lire un fichier txt sur une page web et vérifier si le texte d'une des lignes du fichier txt correspond a celui de la textbox.
Mais sa ne marche pas

Vous pouvez m'aider?

Merci

[tomlev]

Mais sa ne marche pas

Je crois que la prochaine fois que je vois cette phrase sans plus de détails, je vais péter un cable . C'est quand même pas difficile d'indiquer ce qui marche pas ! Le message de l'exception ou de l'erreur de compilation, ou à défaut, le comportement attendu et le comportement obtenu...


On ne peut pas passer une URI au constructeur de StreamReader. Le plus simple c'est de passer par un WebClient pour obtenir le texte :

Code :

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

1
2
Dim wc = New WebClient()
Dim text As String = wc.DownloadString("http://tonsite.com/test.txt")

[Invité]

ok désolé mais après comment on fait pour lire jusqu’à la fin ce qu'il y a a l'intérieur du fichier txt?

J'aimerai faire comme dans mon exemple:

Code :

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

1
2
3
If wc.ReadToEnd.Contains(TextBox1.Text) Then
else
end if

[tomlev]

ReadToEnd te renvoie le contenu du fichier ; dans le code que je t'ai envoyé tu as déjà le contenu du fichier dans la variable text, donc il suffit de faire ça :

Code :

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

If text.Contains(TextBox1.Text) Then

[Invité]

Merci je test sa de suite

EDIT:
Bah j'ai testé mais c'est pas a ce que je m'attendais, en fait je voudrai que le programme lise chaque ligne, et si la ligne entière = textbox1.text alors on fais sa. Tu peux m'aider ?

[tomlev]

Bah j'ai testé mais c'est pas a ce que je m'attendais, en fait je voudrai que le programme lise chaque ligne, et si la ligne entière = textbox1.text alors on fais sa. Tu peux m'aider ?

Ah bah c'est pas du tout ce que ton code d'origine aurait fait...

Dans ce cas tu peux faire comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim wc = New WebClient()
Using s As Stream = wc.OpenRead("http://tonsite.com/test.txt"),
      reader As StreamReader = new StreamReader(s)
 
    Dim line As String = reader.ReadLine()
    While Not line Is Nothing
        If line = textbox1.Text Then
            ...
        Else
            ....
        End If
 
        line = reader.ReadLine()
    End While
 
End Using