Enregistreur de noms

Télécharger le projet
Commenter

Description

Enregistre des noms dans un fichier texte nomme bd.txt avec une fonction ajout et suppression et quelques options comme supprimer la base de données et afficher son contenu

Source / Exemple : 


Public Class Form1

    Public Const bdd As String = "bd.txt"
    Dim contenubd As String
    Dim contenubd1 As String

    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 Button1.Click
        creernom()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        supprimernom()
    End Sub
    Sub supprimernom()
        Try
            Dim sr As New System.IO.StreamReader(bdd)     'tente d'ouvrir la base de donnees 
            contenubd1 = sr.ReadToEnd
            sr.Close() ' met tout ca dans une variable
        Catch ex As Exception
            Dim sw As New System.IO.StreamWriter(bdd)
            sw.Write("")                                     ' cree la base de donnees                  ' si erreurs
            sw.Close()
            Dim sr As New System.IO.StreamReader(bdd)
            contenubd1 = sr.ReadToEnd
            sr.Close()
        End Try
        contenubd1 = Replace(contenubd1, """" & TextBox1.Text & """", "")
        Dim sw1 As New System.IO.StreamWriter(bdd)
        sw1.Write(contenubd1)                                     ' cree la base de donnees                  ' si erreurs
        sw1.Close()
        MsgBox("Le nom " & TextBox1.Text & " a correctement été supprimé", MsgBoxStyle.Information)
        TextBox1.Text = ""
        TextBox2.Text = ""
    End Sub
    Sub creernom()
        Try
            Dim sr As New System.IO.StreamReader(bdd)     'tente d'ouvrir la base de donnees 
            contenubd = sr.ReadToEnd
            sr.Close() ' met tout ca dans une variable
        Catch ex As Exception
            Dim aaa As New System.IO.StreamWriter(bdd)
            aaa.Write("")
            aaa.Close()
            Dim sr2 As New System.IO.StreamReader(bdd)
            contenubd = sr2.ReadToEnd
            sr2.Close()
        End Try
        Dim msg As String
        Dim strTexte, strChaine As String
        Dim verif As Integer
        Dim i, j As Integer
        strTexte = contenubd
        strChaine = """" & TextBox2.Text & """"

        For i = 0 To strTexte.Length - strChaine.Length Step 1
            If strTexte.Substring(i, strChaine.Length) = strChaine Then
                j += 1

            End If
            verif = j
        Next
        If verif >= 1 Then
            MsgBox("Deja enregistre", MsgBoxStyle.Exclamation)
        Else
            contenubd = contenubd & """" & TextBox2.Text & """"
            Dim sw As New System.IO.StreamWriter(bdd)
            sw.Write(contenubd)
            sw.Close()
            MsgBox("Le nom " & TextBox2.Text & " a correctement été enregistré", MsgBoxStyle.Information)
            TextBox2.Text = ""
            TextBox1.Text = ""

        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Form2.Show()
    End Sub
End Class

public Class Form2

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        System.IO.File.Delete(Form1.bdd)
        MsgBox("La base de données a correctement été supprimee")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim contenu_bdd As String
        Try
            Dim sr As New System.IO.StreamReader(Form1.bdd)     'tente d'ouvrir la base de donnees 
            contenu_bdd = sr.ReadToEnd
            sr.Close()
            If contenu_bdd = "" Then contenu_bdd = "'vide'"
            MsgBox(contenu_bdd)
        Catch ex As Exception
            If MsgBox("La base de données n existe pas, voulez vous la creer ?", 36, "Base de donnees inexistante") = MsgBoxResult.Yes Then
                System.IO.File.Create(Form1.bdd)
            End If
        End Try

    End Sub
End Class
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.