Discussion :

[T4unt]

Bonjour,
Aujourd'hui, je recherche comment lire le contenu d'un fichier texte hébergé
Exemple :
http://www.developpez.com/fichier.txt
J'aimerais lire fichier.txt
PS : Ceci dans une richtextbox

EDIT : Je post l'exemple pour ceux qui seraient intéressés :

Code :

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

1
2
3
4
5
6
7
Dim withevents Wclient As New WebClient
Private sub lecturefichier()
Richtextbox1.text = Wclient.downloadstring("http://localhost/fichier.txt")
End sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
lecturefichier()
End Sub

[Attila54]

Bonjour,
Tu parles en vb.net ou tu souhaite juste remplacer l'url du fichier que tu veux pas un texte quelquonque ?????

Si c'est cela il te suffit de taper le texte que tu veux, par exemple "Lettre.Txt" et de cliquer droit sur le mot et d'y ajouter un lien hypertexte avec comme chemin l'url que tu veux

mais je doute que dans ce cas, tu sois dans la bonne section du board

Désolé je n'avais pas vu la dernière ligne qui parle de RichTextBox ....

[T4unt]

Bah je parle de VB.net pardi ...

[Nathanael Marchand]

Avec la classe WebClient et la méthode ReadString par exemple.

[T4unt]

Je test ceci et j'édit pour vous tenir au courant
EDIT : Re, non je n'y arrive toujours pas, un peu plus d'explications cher modo ?

[mdevaux62]

Bonjour,
J'espère avoir bien compris ta problématique.

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
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim AdresseFichier As String = "http://www.gogol.net/fichier.txt"
        Dim fichierTemp As String = My.Computer.FileSystem.SpecialDirectories.Temp & "\fichier.txt"
        '1) on rapatrie d'abord, sur son PC, le fichier hébergé 
        Try
            My.Computer.Network.DownloadFile(AdresseFichier, fichierTemp, "", "", True, 2000, True)
        Catch ex As Exception
            MessageBox.Show("Le fichier texte n'a pu être chargé.", "Erreur de chargement")
            Return
        End Try
        '2) on lit ensuite le fichier obtenu pour placer son contenu dans le RichTextBox
        RichTextBox1.Text = System.IO.File.ReadAllText(fichierTemp)
        '3) on supprime le fichier ayant servi au transfert
        System.IO.File.Delete(fichierTemp)
    End Sub

[T4unt]

Bonjour,
Ceci est une solution, mais j'aurais préféré lire directement le fichier comme l'a proposer notre modérateur,
Son idée est bonne mais "readstring" n'existe pas

[herve01]

Bonjour,

effectivement, c'est pas readstring, c'est DownloadString.

Voir l'aide MSDN :

http://msdn.microsoft.com/fr-fr/library/fhd1f0sw.aspx

[T4unt]

Effectivement, c'était très simple, honte à moi, je met ceci en résolu

[Nathanael Marchand]

Milles excuses, j'ai écrit un peu trop vite et de tête

[T4unt]

C'est plutôt à moi de m'excuser, vue la simplicité de ce dernier, j'aurais dû trouver seul, merci à tous de votre aide