Fonction Open...For Binary pour visual basic 2005

cs_PHILOUVB Messages postés 141 Date d'inscription mardi 18 mars 2003 Statut Membre Dernière intervention 3 octobre 2010 - 14 févr. 2006 à 19:13
Dalida Messages postés 6728 Date d'inscription mardi 14 mai 2002 Statut Contributeur Dernière intervention 11 janvier 2016 - 15 févr. 2006 à 11:36
Sous VB6 , j'utilisais la fonction Open...Binary As pour générer des fichiers
Je me servais de la fonction Put #... aussi

Ces fonctions existent-elles toujours sou VB 2005 et pouvez-vous me les expliquer brièvement.

Merci et à bientot

2 réponses

cs_Willi Messages postés 2375 Date d'inscription jeudi 12 juillet 2001 Statut Modérateur Dernière intervention 15 décembre 2018 21
14 févr. 2006 à 19:33
Salut,
Arf, je ne sais pas si cett méthode marche encore avec vb2005.

Tu peux faire comme ceci :
my.Computer.FileSystem.WriteAllBytes("tonfichier",tes_datas,false)

Pour une utilisation plus avancés je te conseilles plutôt d'utiliser les classes BinaryReader et BinaryWriter (présente dans le NameSpace System.IO)


<HR width="100%" SIZE=2>
Si la réponse te conviens merci de l'accepter
0
Dalida Messages postés 6728 Date d'inscription mardi 14 mai 2002 Statut Contributeur Dernière intervention 11 janvier 2016
15 févr. 2006 à 11:36
(en complément de la réponse de Willi)



salut,



au menu de la MSDN ce midi :



Imports System


Imports System.IO







Private Const FILE_NAME As String = "Test.data"



' Create the new, empty data file.
If File.Exists(FILE_NAME) Then

Console.WriteLine("{0} already exists!", FILE_NAME)

Return
End If
Dim fs As New FileStream(FILE_NAME, FileMode.CreateNew)
' Create the writer for data.
Dim w As New BinaryWriter(fs)
' Write data to Test.data.
Dim i As Integer
For i = 0 To 10

w.Write(CInt(i))
Next i
w.Close()
fs.Close()
' Create the reader for data.
fs = New FileStream(FILE_NAME, FileMode.Open, FileAccess.Read)
Dim r As New BinaryReader(fs)
' Read data from Test.data.
For i = 0 To 10

Console.WriteLine(r.ReadInt32())
Next i
r.Close()
fs.Close()



ms-help://MS.VSExpressCC.v80/MS.NETFramework.v20.fr/dv_fxfund/html/e209d949-31e8-44ea-8e38-87f9093f3093.htm



soit dit en passant, n'oublie pas de libérer les objets

r.Dispose

r = Nothing



idem pour fs.



à plus



[ Dalida ]
0
Rejoignez-nous