Open VB

Résolu
cs_tortuedu74 Messages postés 99 Date d'inscription vendredi 23 mars 2007 Statut Membre Dernière intervention 27 mai 2009 - 21 avril 2009 à 09:40
cs_tortuedu74 Messages postés 99 Date d'inscription vendredi 23 mars 2007 Statut Membre Dernière intervention 27 mai 2009 - 11 mai 2009 à 08:27
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
A voir également:

7 réponses

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
21 avril 2009 à 10:45
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
3
Profil bloqué
21 avril 2009 à 23:41
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
3
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
21 avril 2009 à 09:50
ton code est du VB6

tu travailles en .Net
ca colle pas
0
cs_tortuedu74 Messages postés 99 Date d'inscription vendredi 23 mars 2007 Statut Membre Dernière intervention 27 mai 2009
21 avril 2009 à 10:17
Mince alors...
Et comment je peux ouvrir un fichier, enregistrer et lire dedans en VB.NET?

Merci

Sandrine
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
cs_tortuedu74 Messages postés 99 Date d'inscription vendredi 23 mars 2007 Statut Membre Dernière intervention 27 mai 2009
21 avril 2009 à 10:57
Merci bien.

sandrine
0
cs_tortuedu74 Messages postés 99 Date d'inscription vendredi 23 mars 2007 Statut Membre Dernière intervention 27 mai 2009
21 avril 2009 à 11:30
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
0
cs_tortuedu74 Messages postés 99 Date d'inscription vendredi 23 mars 2007 Statut Membre Dernière intervention 27 mai 2009
11 mai 2009 à 08:27
Merci pour votre aide.
0
Rejoignez-nous