OVH Cloud OVH Cloud

Stream en VB.NET

7 réponses
Avatar
ACH
Bonjour,

Dans mon appli VB.NET, je veux tout b=EAtement cr=E9er un=20
fichier et =E9crire dedans. J'utilise la m=E9thode ci-dessous,=20
fournie par MS dans Visual Studio, mais le type "Stream"=20
n'est pas connu de VB...

Comment faire ?
Merci


Dim myStream As Stream
Dim saveFileDialog1 As New SaveFileDialog

saveFileDialog1.Filter =3D "txt files (*.txt)|*.txt|All=20
files (*.*)|*.*"
saveFileDialog1.FilterIndex =3D 2
saveFileDialog1.RestoreDirectory =3D True

If saveFileDialog1.ShowDialog() =3D DialogResult.OK Then
myStream =3D saveFileDialog1.OpenFile()
If Not (myStream Is Nothing) Then
' Code to write the stream goes here.

myStream.Close()
End If
End If

7 réponses

Avatar
Laurent B
Salut,

Dim sw As System.IO.StreamWriter

sw = System.IO.File.CreateText(Path)
sw.WriteLine("String")

sw.Close()

A++

Laurent

========================= ====================
-----Message d'origine-----
Bonjour,

Dans mon appli VB.NET, je veux tout bêtement créer un
fichier et écrire dedans. J'utilise la méthode ci-


dessous,
fournie par MS dans Visual Studio, mais le type "Stream"
n'est pas connu de VB...

Comment faire ?
Merci


Dim myStream As Stream
Dim saveFileDialog1 As New SaveFileDialog

saveFileDialog1.Filter = "txt files (*.txt)|*.txt|All
files (*.*)|*.*"
saveFileDialog1.FilterIndex = 2
saveFileDialog1.RestoreDirectory = True

If saveFileDialog1.ShowDialog() = DialogResult.OK Then
myStream = saveFileDialog1.OpenFile()
If Not (myStream Is Nothing) Then
' Code to write the stream goes here.

myStream.Close()
End If
End If

.



Avatar
Bismark Prods
Bonsoir,

L'outil WinCV vous serait bien utile pour répondre rapidement à ce type de
question. Stream, fait partie du framework. Cela implique que vb.net peut
l'utiliser il suffit de le localiser ! Grace à l'outil susmentionné.

Bonne soirée


"ACH" a écrit dans le message de
news:175e01c49c0d$9218e730$
Bonjour,

Dans mon appli VB.NET, je veux tout bêtement créer un
fichier et écrire dedans. J'utilise la méthode ci-dessous,
fournie par MS dans Visual Studio, mais le type "Stream"
n'est pas connu de VB...

Comment faire ?
Merci


Dim myStream As Stream
Dim saveFileDialog1 As New SaveFileDialog

saveFileDialog1.Filter = "txt files (*.txt)|*.txt|All
files (*.*)|*.*"
saveFileDialog1.FilterIndex = 2
saveFileDialog1.RestoreDirectory = True

If saveFileDialog1.ShowDialog() = DialogResult.OK Then
myStream = saveFileDialog1.OpenFile()
If Not (myStream Is Nothing) Then
' Code to write the stream goes here.

myStream.Close()
End If
End If
Avatar
Christian
bonjour,Ach


peut etre n'est ce pas du a cela mais as tu pensé a taper
tout en haute de ta fenetre de code du formulaire ceci

imports system.io

si cela n'y ai pas c'est normal
met le et ca devrais aller mieux



-----Message d'origine-----
Bonjour,

Dans mon appli VB.NET, je veux tout bêtement créer un
fichier et écrire dedans. J'utilise la méthode ci-


dessous,
fournie par MS dans Visual Studio, mais le type "Stream"
n'est pas connu de VB...

Comment faire ?
Merci


Dim myStream As Stream
Dim saveFileDialog1 As New SaveFileDialog

saveFileDialog1.Filter = "txt files (*.txt)|*.txt|All
files (*.*)|*.*"
saveFileDialog1.FilterIndex = 2
saveFileDialog1.RestoreDirectory = True

If saveFileDialog1.ShowDialog() = DialogResult.OK Then
myStream = saveFileDialog1.OpenFile()
If Not (myStream Is Nothing) Then
' Code to write the stream goes here.

myStream.Close()
End If
End If

.



Avatar
ACH
Merci à vous tous pour vos réponses.
Avant même vos réponses, j'ai "intuitivement" utilisé la
méthode de Laurent B.
cela fonctionne.

Alain

-----Message d'origine-----
Bonjour,

Dans mon appli VB.NET, je veux tout bêtement créer un
fichier et écrire dedans. J'utilise la méthode ci-


dessous,
fournie par MS dans Visual Studio, mais le type "Stream"
n'est pas connu de VB...

Comment faire ?
Merci


Dim myStream As Stream
Dim saveFileDialog1 As New SaveFileDialog

saveFileDialog1.Filter = "txt files (*.txt)|*.txt|All
files (*.*)|*.*"
saveFileDialog1.FilterIndex = 2
saveFileDialog1.RestoreDirectory = True

If saveFileDialog1.ShowDialog() = DialogResult.OK Then
myStream = saveFileDialog1.OpenFile()
If Not (myStream Is Nothing) Then
' Code to write the stream goes here.

myStream.Close()
End If
End If

.



Avatar
Bismark Prods
Oui c'est bien mais est-ce que tu as été jeté un oeil à WinCV !!!!

"ACH" a écrit dans le message de
news:2a8801c49f9a$74bba110$
Merci à vous tous pour vos réponses.
Avant même vos réponses, j'ai "intuitivement" utilisé la
méthode de Laurent B.
cela fonctionne.

Alain

-----Message d'origine-----
Bonjour,

Dans mon appli VB.NET, je veux tout bêtement créer un
fichier et écrire dedans. J'utilise la méthode ci-


dessous,
fournie par MS dans Visual Studio, mais le type "Stream"
n'est pas connu de VB...

Comment faire ?
Merci


Dim myStream As Stream
Dim saveFileDialog1 As New SaveFileDialog

saveFileDialog1.Filter = "txt files (*.txt)|*.txt|All
files (*.*)|*.*"
saveFileDialog1.FilterIndex = 2
saveFileDialog1.RestoreDirectory = True

If saveFileDialog1.ShowDialog() = DialogResult.OK Then
myStream = saveFileDialog1.OpenFile()
If Not (myStream Is Nothing) Then
' Code to write the stream goes here.

myStream.Close()
End If
End If

.



Avatar
ACH
Ma fois, non
Je ne sais même pas où le trouver.
Mais si tu éclaires ma lenterne, pourquoi-pas ? Je suis
currieux.
Alain
-----Message d'origine-----
Oui c'est bien mais est-ce que tu as été jeté un oeil à


WinCV !!!!

"ACH" a écrit dans


le message de
news:2a8801c49f9a$74bba110$
Merci à vous tous pour vos réponses.
Avant même vos réponses, j'ai "intuitivement" utilisé la
méthode de Laurent B.
cela fonctionne.

Alain

-----Message d'origine-----
Bonjour,

Dans mon appli VB.NET, je veux tout bêtement créer un
fichier et écrire dedans. J'utilise la méthode ci-


dessous,
fournie par MS dans Visual Studio, mais le type "Stream"
n'est pas connu de VB...

Comment faire ?
Merci


Dim myStream As Stream
Dim saveFileDialog1 As New SaveFileDialog

saveFileDialog1.Filter = "txt files (*.txt)|*.txt|All
files (*.*)|*.*"
saveFileDialog1.FilterIndex = 2
saveFileDialog1.RestoreDirectory = True

If saveFileDialog1.ShowDialog() = DialogResult.OK Then
myStream = saveFileDialog1.OpenFile()
If Not (myStream Is Nothing) Then
' Code to write the stream goes here.

myStream.Close()
End If
End If

.





.



Avatar
Bismark Prods
Il s'agit d'un outil fourni avec VS.Net... SDKv1.1BinWinCV.exe

Très pratique pour localiser un élément du framework

"ACH" a écrit dans le message de
news:074e01c49fb3$a867e500$
Ma fois, non
Je ne sais même pas où le trouver.
Mais si tu éclaires ma lenterne, pourquoi-pas ? Je suis
currieux.
Alain
-----Message d'origine-----
Oui c'est bien mais est-ce que tu as été jeté un oeil à


WinCV !!!!

"ACH" a écrit dans


le message de
news:2a8801c49f9a$74bba110$
Merci à vous tous pour vos réponses.
Avant même vos réponses, j'ai "intuitivement" utilisé la
méthode de Laurent B.
cela fonctionne.

Alain

-----Message d'origine-----
Bonjour,

Dans mon appli VB.NET, je veux tout bêtement créer un
fichier et écrire dedans. J'utilise la méthode ci-


dessous,
fournie par MS dans Visual Studio, mais le type "Stream"
n'est pas connu de VB...

Comment faire ?
Merci


Dim myStream As Stream
Dim saveFileDialog1 As New SaveFileDialog

saveFileDialog1.Filter = "txt files (*.txt)|*.txt|All
files (*.*)|*.*"
saveFileDialog1.FilterIndex = 2
saveFileDialog1.RestoreDirectory = True

If saveFileDialog1.ShowDialog() = DialogResult.OK Then
myStream = saveFileDialog1.OpenFile()
If Not (myStream Is Nothing) Then
' Code to write the stream goes here.

myStream.Close()
End If
End If

.





.