Lire et mettre à jour le contenu du fichier texte dans VB.NET
Lire et mettre à jour le contenu du fichier texte dans VB.NET
Problème
Créez un programme d’application Windows Form dans Visual Basic.Net qui permettra aux utilisateurs de lire un fichier texte et de mettre à jour son contenu.
La description
Ce tutoriel permettra à l’utilisateur de lire un fichier texte et de le mettre à jour à l’aide de VB.NET.
Avant le didacticiel, les éléments suivants sont nécessaires pour démarrer:
- Microsoft Visual Studio 2008 – Ci-dessus
Le tutoriel commence ici:
- Ouvrez Microsoft Visual Studio 2012
- Sélectionnez un nouveau projet dans le menu Fichier.
- Sélectionnez Visual Basic, Application Windows Form, puis cliquez sur OK.
- Nous devons concevoir notre formulaire par les contrôles suivants:
- 2 boutons – 1 bouton pour lire le fichier et 1 bouton pour mettre à jour le contenu
- 1 Zone de texte – zone de texte pour le texte.
- Nous nommerons également nos contrôles de formulaire de cette manière:
- txttext est le nom de la zone de texte.
- cmdread est le nom du bouton du bouton de lecture.
- cmdupdate est le nom du bouton du bouton de mise à jour.
- C’est ainsi que nous concevons le formulaire. (N’hésitez pas à mettre en page le vôtre)
Figure 1. Conception du formulaire
- Importez ce qui suit en collant le code en haut de l’éditeur de texte.
Codez ici
Imports System.Runtime.InteropServices Imports System.Runtime.CompilerServices Imports System.IO Imports System.Text
Code de fin
Explication du code:
Il importe certains services système capables de lire et de mettre à jour le fichier.
- Collez le code ci-dessous pour ajouter une fonction publique.
Codez ici
Public Function GetSettingItem(ByVal File As String, ByVal Identifier As String) As String On Error GoTo MyError Dim S As New IO.StreamReader(File) : Dim Result As String = "" Do While (S.Peek <> -1) Dim Line As String = S.ReadLine If Line.ToLower.StartsWith(Identifier.ToLower & "=") Then Result = Line.Substring(Identifier.Length + 1) End If Loop : S.Close() Return Result : S.Close() MyError: End FunctionPrivate Shared Function WritePrivateProfileString(ByVal lpSectionName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Long End Function Public Event Datareceived(ByVal sender As Object, ByVal Data As String)
Code de fin
Explication du code:
Ce code servira de lecteur du fichier texte. En outre, un kernel32.dll a été importé dans VB.NET et un événement public a été ajouté pour lire entièrement le texte.
- Collez le code ci-dessous pour ajouter une fonction privée.
Codez ici
Private Function SetIniValue(section As String, key As String, filename As String, Optional defaultValue As String = "") As String Dim sb As New StringBuilder(500) If WritePrivateProfileString(section, key, defaultValue, filename) > 0 Then Return sb.ToString Else Return defaultValue End If End Function
Code de fin
Explication du code:
Ce code permettra à l’utilisateur de mettre à jour ou d’écraser le fichier texte.
- double-cliquez sur le bouton de lecture et collez ce qui suit
Codez ici
txttext.Text = GetSettingItem(Application.StartupPath & "/readme.ini", "readme")
Code de fin
Explication du code:
Ce code récupérera le fichier texte et lira le contenu
- double-cliquez sur le bouton de mise à jour et collez ce qui suit
Codez ici
SetIniValue("text", "readme", Application.StartupPath & "/readme.ini", txttext.Text) txttext.Text = ""
Code de fin
Explication du code:
Ce code met à jour le fichier texte et efface la zone de texte.
Auteur:
Nom: Charlie Devera
Adresse électronique: [email protected]
Vous pouvez visiter notre Facebook page pour plus d’informations, demandes de renseignements et commentaires.
Louer notre équipe pour faire le projet.