[Equivalent .NET] Fermé

Question

Bonjour,Est-ce que quelqu'un pourrait me donner un équivalent de cette ligne en VB .NET s'uil vous plait ?Open "Fichier.txt" For Output As #1

teebo · Answer

Salut,http://tinyurl.com/74yc5 (MSDN)

Utilisateur anonyme · Answer

ok merci beaucoup et est-ce que tu sais comment placer le contenu d'une Richtextbox dans un fichier texte ? (en utilisant une savefiledialog) ?

teebo · Answer

Ben tu as déjà ouvert ton fichier (en utilisant le savedialog), tu prends la propriété text de ta richtextbox et tu la colles dans le fichier non?
J'ai l'impression que avec l'intelisense de studio tu devrais savoir faire ça tout seul non?

Utilisateur anonyme · Answer

Et bien écoute j'ai bien peur que non lol. En fait j'ai un problème avec les savefiledialog: j'arrive à créer le fichier texte dans un répertoire voulu mais le problème c'est que ce fichier est totalement vièrge. Moi, je souhaite que dans ce fameux fichier le texte de ma RichTextBox soit enregistré. Tiens mon code actuel:

Private Sub EnregistrerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EnregistrerToolStripMenuItem.Click
On Error Resume Next
Dim s As String
Dim myStream As IO.Stream
Dim saveFileDialog1 As New SaveFileDialog()
SaveFileDialog1.InitialDirectory = "c:\Programmes CN\" & SaveFileDialog1.FileName
SaveFileDialog1.Filter = "Fichiers texte(*.txt)|*.txt"
SaveFileDialog1.FilterIndex = 2
SaveFileDialog1.RestoreDirectory = True
If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
myStream = SaveFileDialog1.OpenFile()
If Not (myStream Is Nothing) Then
'Il manque cette partie je pense
myStream.Close()
End If
End If
End Sub

Tu peux m'aider s'il te plait.

Utilisateur anonyme · Answer

J'ai un problème si je change la ligne:

Dim myStream As IO.StreamWriter

alors j'ai une erreur sur la ligne:

myStream = saveFileDialog1.OpenFile

avec l'erreur: Value of type 'System.IO.Stream' cannot be converted to 'System.IO.TextWriter'.

teebo · Answer

Ca fait partie des petits changements dont je parlais, il faut que tu dises:

myStream=new IO.StreamWriter(saveFileDialog1.FileName)

(Note générale, je ne connais pas VB.Net, seulement C# donc j'essaye de mettre la bonne syntaxe mais c'est sans garantie, par contre les fonctions sont les bonnes :) )

Utilisateur anonyme · Answer

Ok merci beaucoup ca marche sans problème.

Par contre je souhaiterais également programmer un OpenFileDialog; voici mon code jusqu'à maintenant:

On Error Resume Next
Dim s As String
Dim myStream As IO.TextReader
Dim OpenFileDialog1 As New OpenFileDialog()
OpenFileDialog1.InitialDirectory = "c:\Programmes CN\" & OpenFileDialog1.FileName
OpenFileDialog1.Filter = "Fichiers texte(*.txt)|*.txt"
OpenFileDialog1.FilterIndex = 2
OpenFileDialog1.RestoreDirectory = True
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
myStream = New IO.StreamReader(OpenFileDialog1.FileName)
If Not (myStream Is Nothing) Then
'myStream.Read(SaveFileDialog1.Text) ERREUR ICI
myStream.Close()
End If
End If

Tu sais comment résoudre le problème parce que la boîte s'ouvre mais quand je sélectionne le fichier le contenu n'apparait pas dans ma richtextbox

teebo · Answer

Il faut que tu utilises:http://tinyurl.com/8xv2k  (MSDN)cette fonction...Il faut aussi que tu aprennes à utiliser MSDN, soit la version internet, soit la version locale si tu en as une.

Utilisateur anonyme · Answer

Désolé mais ca ne fait pas très mlogtemps que j'utilise VB.NET j'ai encore du mal. Tiens mon code:

On Error Resume Next
Dim myStream As IO.StreamReader
Dim openFileDialog1 As New OpenFileDialog()
openFileDialog1.InitialDirectory = "c:\Programmes CN\"
openFileDialog1.Filter = "Fichiers texte(*.txt)|*.txt"
openFileDialog1.FilterIndex = 2
openFileDialog1.RestoreDirectory = True
If openFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
myStream = New IO.StreamReader(SaveFileDialog1.FileName)
If Not (myStream Is Nothing) Then
' Insert code to read the stream here.
myStream.Close()
End If
End If

Encore une instruction manquante au même endroit.

[Equivalent .NET]

9 réponses

Discussions similaires