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:

1. Ouvrez Microsoft Visual Studio 2012
2. Sélectionnez un nouveau projet dans le menu Fichier.
3. Sélectionnez Visual Basic, Application Windows Form, puis cliquez sur OK.
4. 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.

5. 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.

6. C’est ainsi que nous concevons le formulaire. (N’hésitez pas à mettre en page le vôtre)

Figure 1. Conception du formulaire

7. 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.

8. 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 Function

    Private 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.

9. 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.

10. 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

11. 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]

Téléchargement gratuit du code source (lecture et mise à jour du contenu du fichier texte dans VB.NET)

Vous pouvez visiter notre Facebook page pour plus d’informations, demandes de renseignements et commentaires.

Louer notre équipe pour faire le projet.

commentaires

commentaires