Recherche
Posez votre question Signaler

[Equivalent .NET]

Utilisateur anonyme - Dernière réponse le 22 déc. 2005 à 13:00
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
Lire la suite 
Réponse
+0
moins plus
Salut,

http://tinyurl.com/74yc5 (MSDN)
Ajouter un commentaire
Réponse
+0
moins plus
ok merci beaucoup et est-ce que tu sais comment placer le contenu d'une Richtextbox dans un fichier texte ? (en utilisant une savefiledialog) ?
Ajouter un commentaire
Réponse
+0
moins plus
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?
Ajouter un commentaire
Réponse
+0
moins plus
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.
teebo 33572Messages postés jeudi 14 octobre 2004Date d'inscription ModérateurStatut 24 février 2011Dernière intervention - 21 déc. 2005 à 16:43
Donc tu as déja le maniement de la "savedialog" box.

Il te manque un :
myStream.Write(myRichText.Text)


Par contre il faudra peut être changer
 Dim myStream As IO.Stream

en
 Dim myStream As IO.StreamWriter


et peut être changer deux trois bricoles pour l'initialisation.
Répondre
Ajouter un commentaire
Réponse
+0
moins plus
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'.
Ajouter un commentaire
Réponse
+0
moins plus
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 :) )
Ajouter un commentaire
Réponse
+0
moins plus
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
Ajouter un commentaire
Réponse
+0
moins plus
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.
Ajouter un commentaire
Réponse
+0
moins plus
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.
Ajouter un commentaire
Ce document intitulé «  [Equivalent .NET]  » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.