charger un fichier par Computer.Network.DownloadFile vers un string

Version imprimable

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:

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 !

Bonjour,

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

Code:

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.

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:

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)))
... :D

28/05/2022, 18h17
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 ...
28/05/2022, 19h43
Popaul22

bon, j'ai supprimé les lignes

Code:

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

et

Code:

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