pb telechargement fichier txtRésolu

Question

bonjour,
j'ai un souci pour telecharger un fichier par ftp
le telechargement ce deroule bien (vu les message de retour du serveur mais seulement quand j'ouvre mon fichier texte telecharger au lieu d'avoir du texte dedans j'ai &#231;a :
&#994;&#30503;&#27507;&#12599;&#14392;&#10309;&#8233;&#29541;&#8308;&#28261;&#26144;&#26977;&#8308;&#28277;&#30496;&#28265;&#28531;&#27491;&#8307;&#29281;&#24946;&#11385;&#29472;&#8297;&#28515;&#28013;

voici mon code:


'Reception du fichier t&#233;l&#233;charger
Dim DONNEES 
As 
String = e.bytesTotal
wsk_dl.GetData(DONNEES)


NEW_BUFFER = NEW_BUFFER & DONNEES



If Len(NEW_BUFFER) >= NOM_NEW_DOWNLOAD_TAILLE 
Then
Dim p 
As 
Integer
p = Microsoft.VisualBasic.FreeFile()


Microsoft.VisualBasic.FileOpen(p, "c:	est.txt", OpenMode.Binary, OpenAccess.Default)
Microsoft.VisualBasic.FilePutObject(p, NEW_BUFFER)
Microsoft.VisualBasic.FileClose()
wsk_dl.Close()

quelqu'un voit mon probleme?

beltegeuse · Accepted Answer

Tu peux essayer une autre methode avec les SteamWriter



tu importe avant ta class : 

Imports System.IO

Imports System.Text



Puis tu peut essayer :



  Dim Buffer(1024) As Byte

    Dim bytes As Integer

    Dim strTemp As String

    Dim ascii As Encoding = Encoding.ASCII





bytes = Socket.Receive(Buffer, Buffer.Length, 0)

strTemp = strTemp + ascii.ASCII.GetString(Buffer, 0, bytes)


Dim sw As New StreamWriter("Test.txt", False)

        sw.WriteLine(strTemp 
)

        sw.Close()



j'ai pas tt mit car ca prend pas mal de lignes! Mais il faut que tu definise bien socket!

cs_Jack · Answer

Salut
C'est du VB.Net, donc je ne peux rien pour toi, mais est-ce que tu as pu v&#233;rifier le contenu de NEW_BUFFER avant son enregistrement sous fichier ? Est-ce du texte ascii ou des signes bizarres ?

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

demonn · Answer

salut,
non j'ai bien le contenu du fichier texte en texte clair
c'est &#231;a que je comprend pas

demonn · Answer

ouhai je vois ce que tu veu dire je vais essayer

le truc c'est que l&#224; c'est un fichier texte,mais si c'est un fichier zip ou exe &#231;a marche pareil ?

beltegeuse · Answer

tu peut essayer! mais je ne sais pas si ca marche! Mais essaye donc! et dit moi si ca marche ca m'interresse!

demonn · Answer

voil&#224; alors j'ai fait &#231;a :
Dim BUFFER 
As 
Object
Dim DONNEES 
As 
String = e.bytesTotal
wsk_dl.GetData(DONNEES)
BUFFER = BUFFER & DONNEES

Dim sw 
As 
New StreamWriter("c:\Test.zip", 
False)
sw.WriteLine(BUFFER)
sw.Close()
wsk_dl.Close()

*wsk_dl etant mon winsock pour les telechargement

&#231;a marche sof que le texte est sur une seule ligne.
j'ai aussi essayer avec un fichier zip et l&#224; j'ai une erreur "450 link to files serveur lost"
mais &#231;a je verais plutard car je c'est pas s'y il faut pas changer le TYPE

beltegeuse · Answer

Je crois que tu peux utiliser la fonction peer.
Mais je ne sais pas comment on l'utilise :/. tu peut essayer de la voir avec Msdn.
mais c'est vrai que ca n'&#233;crit que sur une seule line.....

demonn · Answer

ouhai ou alors faire un split de mon buffer:
dim ligne() as string
ligne = split(buffer,chr(10),-1)
et  l&#224; apr&#233;s j'ecrit chaque ligne trouv&#233;.
seulement toujours pareil &#231;a &#231;a va march&#233; que pour les fichier texte.

beltegeuse · Answer

Il faudrai trouver un fonction en ecrivan en binaire.... je vais voir ca....

demonn · Answer

Merci beaucoup pour votre voil&#224; le code pour ce qui chercherons:


'Reception du fichier t&#233;l&#233;charger
Dim DONNEES 
As 
String = e.bytesTotal

Dim texte(), ligne 
As 
String
Dim sw 
As 
New StreamWriter("c:\Test.txt", 
False)
wsk_dl.GetData(DONNEES)
BUFFER = BUFFER & DONNEES
texte = Split(BUFFER, Chr(10), -1)

For 
Each ligne 
In texte
sw.WriteLine(ligne)

Next
sw.Close()
wsk_dl.Close()

beltegeuse · Answer

Tien tu peux regarder ca : http://msdn.microsoft.com/library/fre/default.asp?url=/library/FRE/cpguide/html/cpconReadingWritingToNewlyCreatedDataFile.asp

Je pense que ca doit etre bon avec ca pour ecrire d'autre fichier que des fichier text

demonn · Answer

ah oui je vais vois &#231;a de plus pret.
merci ;-)

Pb telechargement fichier txt

12 réponses

Discussions similaires