Ceci est mon premier tuto...
Aujourd’hui, on va essayer de créer en VB.NET, une appli Inutile mais intéressante sur l’écriture d’un fichier… Puis, par la suite, la récupération de celui-ci dans un richtextbox ou un textbox.
Let’s go !
D’abord on va commencer par créer un nouveau projet avec Visual Basic 2008 Express.
Nous allons renommer le projet en « Appli_ecriture_lecture_fichier »
Une fois cela fais, cliquer sur « ok ». On arrive à un affichage qui devrait ressembler à celui-ci :
Loading Image
Il vous faudra modifier le formulaire pour avoir une interface graphique assez semblable à celle-ci :
Vous aurez besoin de 3 textbox, 2 boutons et 3 labels.
Loading Image
Ensuite, vous devrez changer le nom des différents contrôles comme ceci :
« Button1 » ==> Renommer en « button_write »
« Button2 » ==> Renommer en « button_read »
« textbox1 » ==> Renommer en « textbox_write »
« textbox2 » ==> Renommer en « textbox_read »
« textbox3 » ==> Renommer en « textbox_name_file »
###################################################################
Une fois cela fait, on va écrire le code permettant d’écrire dans un fichier.
Pour cela, faites un double clique sur le bouton « button_write », une fois dans l’éditeur de code, il faut écrire ceci :
Dim name_file As String ' déclaration de la variable pour stocker le nom du fichier a créer...
name_file = TextBox_name_file.Text
Dim monwriter As New IO.StreamWriter(name_file & ".txt", True) ' Déclaration du code permettant d'écrire dans le fichier, puis création du fichier en [votre nom de fichier].txt
monwriter.Write(TextBox_write.Text) ' écriture du contenue dans de la textbox_write dans le fichier [votre nom de fichier].txt
monwriter.Close()
Dim message As String = ""
message = "Fichier créer avec sucès." & vbCrLf & _
"Le fichier a été créer dans le même répertoire que l'application." & vbCrLf & _
"Le Nom du fichier est " & name_file & ".txt"
MsgBox(message, MsgBoxStyle.Information, "Write succes !")
Ensuite, on va aller dans l’éditeur de code pour le bouton « button_read ». Pour cela double cliquez sur le bouton… Il faudra y mettre le code suivant :
Dim name_file As String ' déclaration de la variable pour stocker le nom du fichier a créer...
name_file = TextBox_name_file.Text
Dim monReader As New IO.StreamReader(name_file & ".txt")
TextBox_read.Text = monReader.ReadToEnd
monReader.Close()
On a donc un code final qui ressemble à ça :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_write.Click
Dim name_file As String ' déclaration de la variable pour stocker le nom du fichier a créer...
name_file = TextBox_name_file.Text
Dim monwriter As New IO.StreamWriter(name_file & ".txt", True) ' Déclaration du code permettant d'écrire dans le fichier, puis création du fichier en [votre nom de fichier].txt
monwriter.Write(TextBox_write.Text) ' écriture du contenue dans de la textbox_write dans le fichier [votre nom de fichier].txt
monwriter.Close()
Dim message As String = ""
message = "Fichier créer avec sucès." & vbCrLf & _
"Le fichier a été créer dans le même répertoire que l'application." & vbCrLf & _
"Le Nom du fichier est " & name_file & ".txt"
MsgBox(message, MsgBoxStyle.Information, "Write succes !")
End Sub
Private Sub Button_read_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_read.Click
Dim name_file As String ' déclaration de la variable pour stocker le nom du fichier a créer...
name_file = TextBox_name_file.Text
Dim monReader As New IO.StreamReader(name_file & ".txt")
TextBox_read.Text = monReader.ReadToEnd
monReader.Close()
End Sub
End Class
Enfin, compiler le tout et le tour et jouer :)