cs_tortuedu74
Messages postés99Date d'inscriptionvendredi 23 mars 2007StatutMembreDernière intervention27 mai 2009
-
21 avril 2009 à 09:40
cs_tortuedu74
Messages postés99Date d'inscriptionvendredi 23 mars 2007StatutMembreDernière intervention27 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?
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 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
cs_tortuedu74
Messages postés99Date d'inscriptionvendredi 23 mars 2007StatutMembreDernière intervention27 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)