Open VB

Résolu
Signaler
Messages postés
99
Date d'inscription
vendredi 23 mars 2007
Statut
Membre
Dernière intervention
27 mai 2009
-
Messages postés
99
Date d'inscription
vendredi 23 mars 2007
Statut
Membre
Dernière intervention
27 mai 2009
-
Bonjour,

Je commence seulement a coder en VB dans Visual studio et j'ai un souci avec ma fonction open:

Open ("\inetpub\wwwroot\intranet2_aspx\WebSite1\test\toto.txt") For Append As #1

Il me dit que Open n'est pas déclaré, mais c'est une méthode?
Si je dois insérer en haut du code une librairie, laquelle est-ce?

Merci

sandrine

7 réponses

Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
Public Sub AppendText(ByVal vsFilePath As String, ByVal vsText As String)
With New System.IO.StreamWriter(vsFilePath, True)
.WriteLine(vsText)
.Close()
End With
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
AppendText("c:\tortuedu74.txt", "Bonjour")
AppendText("c:\tortuedu74.txt", "test")
AppendText("c:\tortuedu74.txt", "Essai")
End Sub
Messages postés
1263
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
24 juillet 2013
6
Salut tortuedu74

Rajoute à ton texte avant de l'enregistrer Environment.Newline

Exemple : text = TextBox1.Text & Environment.Newline
La variable text contient le contenu de la Textbox et le retour-chariot saut-ligne

La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

GRENIER Alain
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
ton code est du VB6

tu travailles en .Net
ca colle pas
Messages postés
99
Date d'inscription
vendredi 23 mars 2007
Statut
Membre
Dernière intervention
27 mai 2009

Mince alors...
Et comment je peux ouvrir un fichier, enregistrer et lire dedans en VB.NET?

Merci

Sandrine
Messages postés
99
Date d'inscription
vendredi 23 mars 2007
Statut
Membre
Dernière intervention
27 mai 2009

Merci bien.

sandrine
Messages postés
99
Date d'inscription
vendredi 23 mars 2007
Statut
Membre
Dernière intervention
27 mai 2009

Juste une dernière question:
J'ai utilisé le premier code que tu m'a donné, et tout marche, Un GRAND MERCI.
Il ne me reste plus qu'a insérer des retours à la ligne a chaque fois qu'on enregistre un texte, comment on fait ça?

code:
    Public Function WriteText(ByVal TextFileName As String, ByVal _Line As String)

        Dim File As New System.IO.FileStream(TextFileName, IO.FileMode.Append, IO.FileAccess.Write)
        Dim Record As New System.IO.StreamWriter(File)
        Record.WriteLine(_Line)
        Record.Flush()
        'Record.Close()
        File.Flush()
        File.Close()
    End Function

[...]

                Else
                'Entrer le texte dans la variable message
                message(ligne) = TextBox1.Text
                'Entre le texte que tu vien juste d'écrire dans la variable text
                text = TextBox1.Text
                'Inscrit le text dans le fichier
                WriteText(document2, text)
                'AppendText(document, text)

Sandrine
Messages postés
99
Date d'inscription
vendredi 23 mars 2007
Statut
Membre
Dernière intervention
27 mai 2009

Merci pour votre aide.