Discussion :

[Popaul22]

Bonjour,

j'ai besoin de télécharger un fichier via Computer.Network.DownloadFile mais au lieu de le mettre dans un fichier local je voudrais mettre le contenu du fichier dans un String, pour m'en servir sans avoir à l'écrire sur le disque dur.

J'ai cherché un peu partout mais n'ai rien trouvé.
Je fais ceci :

Code :

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

1
2
3
4
5
6
7
 My.Computer.Network.DownloadFile("http://xxxx.com/liste.txt", cheminfichier, "", "")
        If System.IO.File.Exists(cheminfichier) Then
            i = 1
            monStreamReader = New StreamReader(cheminfichier, Encoding.Default)
            Try
                Do
                    ligne = monStreamReader.ReadLine()

Ca fonctionne mais par souci de confidentialité je ne veux pas stocker sur le DD. Je peux bien sûr effacer le fichier après l'avoir lu mais bon ...
Le fichier à charger est court, une centaine d'octets.

Merci !

[Popaul22]

Bonjour,

j'ai trouvé un moyen de faire, en modifiant un module de téléchargement FTP trouvé sur le net :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Imports System.Net
Imports System.IO
Module FTP
    Public Sub RecupListeFTP()
        Try
 
            'Create a FTP web request
            Dim IP As String = ""
            Dim Ligne As String = ""
            IP = System.Net.Dns.GetHostEntry("xxx.com").AddressList(0).ToString()
            Dim ftpwebrequest As FtpWebRequest = DirectCast(WebRequest.Create("ftp://" & IP & ":21/liste"), FtpWebRequest)
            'Set properties
            With ftpwebrequest
                'ftp server username and password
                .Credentials = New NetworkCredential("xxx", "yyy")
                'set the method to download
                .Method = WebRequestMethods.Ftp.DownloadFile
                'upload timeout to 100 seconds
                .Timeout = "100000"
            End With
 
            Dim ftpwebres As FtpWebResponse = CType(ftpwebrequest.GetResponse(), FtpWebResponse)
            Dim ftpstream As Stream = ftpwebres.GetResponseStream()
            Dim ftpfilestream As FileStream = File.Create(chemin & "\inutile")  ' fichier qui ne sera pas créé
            Dim buff(2048) As Byte
            Dim bytesread As Integer = 0, lu As Integer = 0
            While True
                bytesread = ftpstream.Read(buff, 0, buff.Length)
                If (bytesread = 0) Then Exit While
                '  ftpfilestream.Write(buff, 0, bytesread) '  on n'écrit pas le fichier
            End While
            For i As Integer = 0 To UBound(buff)
                Ligne = Ligne + Chr(buff(i))
            Next
            ftpfilestream.Close()
 
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Message", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End Try
 
    End Sub
End Module

Il me suffit de ne pas écrire le fichier, je récupère juste le contenu du buffer et le mets dans un String
Ça fonctionne, mais j'aurais préféré quelque chose de plus simple ...

Pas d'idée ?

Merci.

[Phil Rob]

Bonjour,

Vu que tu utilises un StreamReader dans les codes de ton premier post, je me permets de proposer ceci (ça te dispenserait au moins d'écrire une boucle de lecture) :

Code :

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

1
2
3
4
5
        Dim ToutLeContenu As String = String.Empty
 
        ToutLeContenu = New System.IO.StreamReader(cheminfichier, Encoding.Default).ReadToEnd()  ' Lit tout le fichier et charge la chaine 
 
        MessageBox.Show(ToutLeContenu)  ' Pour vérifier que tout va bien .... :D)))

...

[Popaul22]

Merci Phil Rob,

en effet ça supprime une boucle mais ça ne résout pas mon problème, je suis quand même obligé de passer par une écriture sur le disque dur ...

[Popaul22]

bon, j'ai supprimé les lignes

Code :

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

Dim ftpfilestream As FileStream = File.Create(chemin & "\inutile")  ' fichier qui ne sera pas créé

et

Code :

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

  ftpfilestream.Close()

car sinon il me créait un fichier vide et tout marche nickel !!
J'adopte donc ma solution.

Merci à vous.
Je clos le post