[Equivalent .NET]

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
Configuration: Windows XP SP2

9 réponses

  1. 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.
    1. Contributeur
      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.
      1. 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
        1. Contributeur
          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 :) )
          1. 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'.
            1. 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.
              1. Contributeur
                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.
            2. Contributeur
              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?
              1. ok merci beaucoup et est-ce que tu sais comment placer le contenu d'une Richtextbox dans un fichier texte ? (en utilisant une savefiledialog) ?