Lecture fichier txt web

Bonjour, voilà mon code:

Code:

---

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 :cry:

Vous pouvez m'aider?

Merci

Citation:

---

Envoyé par alexandre1004

Mais sa ne marche pas :cry:

---

Je crois que la prochaine fois que je vois cette phrase sans plus de détails, je vais péter un cable :roll:. 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:

---

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

---

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:

---

1 2 3

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

---

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:

---

If text.Contains(TextBox1.Text) Then

---

Merci je test sa de suite :ccool:

EDIT:
Bah j'ai testé mais c'est pas a ce que je m'attendais, :aie: 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 ?

Citation:

---

Envoyé par alexandre1004

Bah j'ai testé mais c'est pas a ce que je m'attendais, :aie: 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:

---

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

---

Merci beaucoup t'assure :ccool: