Mot trouvé dans fichier texte. Affichage dans textbox "Jusqu'à ligne vide". Résolu

Question

Bonjour,

Je me suis fabriqué un petit prog avec en haut un DateTimePicker.
Un textbox juste en dessous, et un bouton ajouter évènement.
Je tape donc mon évènement dans mon textbox, je valide et sa m'écris dans un fichier texte : date selectionné dans le DateTimePicker + texte écris dans le textbox.

Donc le logiciel vérifiera une fois (ou deux) par jours voir si un évènement est prévu ce jour, jusque là tout va bien.
Il detecte bien la date du jour et m'affiche ça dans un msgbox.
Seulement je ne parvient pas à ajouter des évènements multiligne, j'arrive uniquement à récupérer la ligne contenant la date recherché.

Voici le code : 

        
Dim mot As String = Date.Now.Date 'le mot a chercher
        Dim tmp As String 'une variable temporaire
        Dim emplacement As String = "evenement.txt" 'l'emplacement du fichier

        FileOpen(1, emplacement, OpenMode.Input) 'on ouvre le fichier à analyser
        Do Until EOF(1) 'tant qu'on est pas à la fin du fichier:
            tmp = LineInput(1) 'on lis la ligne et on la stock dans la variable
            If ((InStr(tmp, mot)) > 0) Then 'on vérifie si le mot rechercher ne serais pas dans la ligne
                MsgBox(tmp) 'si oui alors on en fait part					
            End If

        Loop
        FileClose(1)

J'avais déjà rencontré un problème similaire mais dans un autre sens, mais je ne suis pas parvenu à l'adapter.
Comment pourrai-je adapter ceci ?


Dim depart = mot.IndexOf(vbCr & vbLf)
            messagebox.show(evenement.Substring(depart)


Pour qu'il face en sorte de m'afficher dans le msgbox, la date recherché + mon message (donc ma variable "tmp") jusqu'à une ligne vide, de sorte à ce que je puisse avoir des évènements multilignes.

Merci d'avance !

cs_ShayW · Accepted Answer

Bonsoir

Penses aussi que peut etre un jour tu voudras
améliorer et par ex corriger/annuler un/des messages 
ou les messages apparus une date passée 

dans ce cas il faudrait plutot une base de données

KcHeY · Answer

Et ma deuxième question est, comment supprimer la ligne que je viens d'afficher dans le textbox en cliquant sur oui ?

J'ai testé ceci : 


Select MsgBox(tmp, vbYesNo) 'si oui alors on en fait part	
                    Case vbYes
                        emplacement.Replace(tmp, "")
                    Case vbNo
                        MsgBox("no")
                    Case Else
                        Me.Close()
                End Select


Mais ça ne fonctionne pas

cs_ShayW · Answer

Salut
Bien joli 
quelle est la structure de ton fichier txt ?

KcHeY · Answer

Salut,

Merci pour ta réponse.

Actuellement je récupère ceci :

18/12/11 Anniversaire de xx

19/12/11 Anniversaire de ShayW

Mais si j'écrivais ceci dans mon textbox :

Anniversaire de xx
Fête de la prog
Rdv avec le président

Je récupère uniquement la première ligne.

Donc si mon fichier final est comme ceci :

18/12/11 Anniversaire de xx
Fête de la prog
Rdv avec le président

19/12/11 Anniversaire de zz
Fête de la musique
Rdv avec moi

Et bien je souhaiterai récupéré le texte à partir de ma variable mot (la date) juste la ligne vide.
Nous sommes le 18, un messagebox m'affiche ceci :

18/12/11 Anniversaire de xx
Fête de la prog
Rdv avec le président

ucfoutu · Answer

Bonjour,
Je crois bien que la solution est dans un tel cas réduite à sa portion congrue  ===>>>
"Splitter" sur deux retour/ligne consécutifs
Pour chaque élément ainsi obtenu : "splitter" sur un seul retour/ligne lorsque les 8 prmiers caractères "représenteront" la date actuelle au format "dd/mm/yy" 
Ce sera bien cher payer une lacune de réflexion avant de décider de la structure du fichier. 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Utilisateur anonyme · Answer

Bonsoir,

Commence par supprimer la référence Microsoft.VisualBasic et activer Option Strict dans les propriétés de ton projet.
Corrige les 8 erreurs et on verra après.
Note: vbCr & vbLf peut être remplacé par Environment.NewLine

ucfoutu · Answer

Bonjour, Banana32,

J'ajoute que dans un tel cas de figure :
1) une base de données (et son exploitation) serait plus performante
2) s'il n'en veux pas (de base de données) == Fichier texte structuré en nase de données
3) si le 2) lui échappe également : fichier de type ini
4) si le 3 lui échappe également : ===>>>
--- un répertoire/dossier ad hoc contenant uniquement des fichiers dont le nom est une date
--- dans chacun de ces fichiers ===>>> les évènements pour cette date

En bref : tout sauf son approche actuelle 

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Utilisateur anonyme · Answer

Bonsoir ucfoutu,
Il y a aussi la sérialisation des données dans un xml (facile à mettre en oeuvre). Ce xml pourra faire office de base de donnée pour des quantités de données peu ou moyennement importantes.

ucfoutu · Answer

Oui, banana32, oui : tout sauf son approche actuelle. 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

KcHeY · Answer

Bonsoir à vous et merci pour vos réponses.
En activant option strict je n'ai qu'une erreur car ce code la :

Dim depart = mot.IndexOf(vbCr & vbLf)
            messagebox.show(evenement.Substring(depart)

N'est pas dans mon code, et il est plein d'erreur car c'est un des essais que j'ai fait.
En ce qui concerne le choix de structure et de format de fichier(txt) ça fonctionne très bien comme ça.
L'erreur est là ---> Dim mot As String = Date.Now.Date 'le mot a chercher
Pourtant il fait bien ce que je lui demande.

Voici mon code complet :

Imports System.IO

Public Class Form1
    Dim TargetFile As IO.StreamWriter
    Dim DernierPoint As Point
    Dim MouMouseDown As Boolean


    Private Sub diminuer_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles diminuer.MouseLeave
        diminuer.BackgroundImage = My.Resources.diminuer
    End Sub

    Private Sub diminuer_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles diminuer.MouseMove
        diminuer.BackgroundImage = My.Resources.diminuerOn
    End Sub

    Private Sub agrandir_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles agrandir.MouseLeave
        agrandir.BackgroundImage = My.Resources.agrandir
    End Sub

    Private Sub agrandir_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles agrandir.MouseMove
        agrandir.BackgroundImage = My.Resources.agrandirOn
    End Sub

    Private Sub fermer_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles fermer.MouseLeave
        fermer.BackgroundImage = My.Resources.fermer
    End Sub

    Private Sub fermer_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles fermer.MouseMove
        fermer.BackgroundImage = My.Resources.fermerOn
    End Sub

    Private Sub diminuer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles diminuer.Click
        Me.WindowState = FormWindowState.Minimized
    End Sub

    Private Sub fermer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fermer.Click
        Close()
    End Sub

    Private Sub agrandir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles agrandir.Click
        If Me.WindowState = FormWindowState.Normal Then
            Me.WindowState = FormWindowState.Maximized
        ElseIf Me.WindowState = FormWindowState.Maximized Then
            Me.WindowState = FormWindowState.Normal
        End If
    End Sub


    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        MouMouseDown = True
        DernierPoint = New Point(e.X, e.Y)
    End Sub

    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        If MouMouseDown Then
            Me.Location = New Point(Me.Left - (DernierPoint.X - e.X), Me.Top - (DernierPoint.Y - e.Y))
        End If
    End Sub

    Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
        MouMouseDown = False
    End Sub

  
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Interval = 10000
        Timer1.Start()
        TextBox1.Focus()
        TextBox1.Select()
    End Sub




    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            TargetFile = New IO.StreamWriter("evenement.txt", True)
        Catch
            MessageBox.Show("Erreur")
        End Try
        Try
            TargetFile.Write(DateTimePicker1.Value)
            TargetFile.Write(" " & TextBox1.Text)
            TargetFile.WriteLine(vbNewLine)
        Catch
            MessageBox.Show("Error")
        End Try
        TargetFile.Close()
        TextBox1.Clear()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        MsgBox(System.IO.File.ReadAllText("evenement.txt"))
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim mot As String = Date.Now.Date 'le mot a chercher
        Dim tmp As String 'une variable temporaire
        Dim emplacement As String = "evenement.txt" 'l'emplacement du fichier

        FileOpen(1, emplacement, OpenMode.Input) 'on ouvre le fichier à analyser
        Do Until EOF(1) 'tant qu'on est pas à la fin du fichier:
            tmp = LineInput(1) 'on lis la ligne et on la stock dans la variable
            If ((InStr(tmp, mot)) > 0) Then 'on vérifie si le mot rechercher ne serais pas dans la ligne

                Select Case MsgBox(tmp & vbNewLine & vbNewLine & "Supprimer cet évènement?", MsgBoxStyle.OkCancel) 'si oui alors on en fait part	
                    Case vbOK
                        emplacement.Replace(tmp, "")
                        MsgBox("ok")
                    Case Else

                End Select

            End If

        Loop
        FileClose(1)

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Try
            TargetFile = New IO.StreamWriter("evenement.txt", False)
        Catch
            MessageBox.Show("Erreur")
        End Try
        Try
            TargetFile.WriteLine()
        Catch
            MessageBox.Show("Error")
        End Try
        TargetFile.Close()
        TextBox1.Clear()
    End Sub


    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        Dim key As Microsoft.Win32.RegistryKey
        If CheckBox1.Checked = True Then

            key = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
            key.SetValue("LecteurTakam", Application.StartupPath + "\LecteurTakam.exe")
        ElseIf CheckBox1.Checked = False Then
            key = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
            key.DeleteValue("LecteurTakam")
        End If

    End Sub
End Class


NHenry tu dis de faire un fichier par date, j'y avais pensé, mais comme  j'ai reussi à tout faire en un fichier, j'ai préféré.

Au pire je peux faire des évènements en une ligne c'est pas trop le soucis, c'est toujours des programmes personnel, mais je vais tout de même continuer de chercher.

Je vous dis au jus.
Merci.

KcHeY · Answer

En fait si je fait Date.Now il me met l'heure avec, hors je ne veux que la date.

Utilisateur anonyme · Answer

c'est toujours des programmes personnel
Ca ne t'empêches pas de prendre les bonnes habitudes en tant que débutant.
Tu n'as pas supprimé la référence Microsoft.VisualBasic (obsolète mais activée par défaut pour compatibilité avec le traducteur de code vb6)

Bonne prog.

Utilisateur anonyme · Answer

Utilise Date.Now.ToShortDateString

KcHeY · Answer

Merci pour cette info ça fonctionne tout aussi bien.
En ce qui concerne supprimé la référence visual basic, si tu parle de décoché cette case ça m'affiche 14 erreurs.

KcHeY · Answer

Ou alors tu parles du power pack ?

KcHeY · Answer

Je n'ai pas d'erreur la dessus, pourtant la ligne n'est pas supprimé.

emplacement.Replace(tmp, "")
                        MsgBox("ok")

Utilisateur anonyme · Answer

Non il s'agit bien des 14 erreurs

KcHeY · Answer

Serais tu m'expliquer pourquoi ce sont des erreurs alors que le tout fonctionne au top ?

ps: Je ne contredis pas ce que tu dis c'est à titre d'information.

Merci

KcHeY · Answer

Erreur	5	'EOF' n'est pas déclaré. La fonctionnalité d'E/S de fichier est disponible dans l'espace de noms 'Microsoft.VisualBasic'.	C:\Users\Laura\Desktop\LecteurTakam\LecteurTakam\Form1.vb	109	18	LecteurTakam
Erreur	14	'FileClose' n'est pas déclaré. Il peut être inaccessible en raison de son niveau de protection.	C:\Users\Laura\Desktop\LecteurTakam\LecteurTakam\Form1.vb	124	9	LecteurTakam
Erreur	3	'FileOpen' n'est pas déclaré. Il peut être inaccessible en raison de son niveau de protection.	C:\Users\Laura\Desktop\LecteurTakam\LecteurTakam\Form1.vb	108	9	LecteurTakam
Erreur	7	'InStr' n'est pas déclaré. Il peut être inaccessible en raison de son niveau de protection.	C:\Users\Laura\Desktop\LecteurTakam\LecteurTakam\Form1.vb	111	18	LecteurTakam
Erreur	6	'LineInput' n'est pas déclaré. Il peut être inaccessible en raison de son niveau de protection.	C:\Users\Laura\Desktop\LecteurTakam\LecteurTakam\Form1.vb	110	19	LecteurTakam
Erreur	2	'MsgBox' n'est pas déclaré. Il peut être inaccessible en raison de son niveau de protection.	C:\Users\Laura\Desktop\LecteurTakam\LecteurTakam\Form1.vb	99	9	LecteurTakam
Erreur	8	'MsgBox' n'est pas déclaré. Il peut être inaccessible en raison de son niveau de protection.	C:\Users\Laura\Desktop\LecteurTakam\LecteurTakam\Form1.vb	113	29	LecteurTakam
Erreur	13	'MsgBox' n'est pas déclaré. Il peut être inaccessible en raison de son niveau de protection.	C:\Users\Laura\Desktop\LecteurTakam\LecteurTakam\Form1.vb	116	25	LecteurTakam
Erreur	11	'MsgBoxStyle' n'est pas déclaré. Il peut être inaccessible en raison de son niveau de protection.	C:\Users\Laura\Desktop\LecteurTakam\LecteurTakam\Form1.vb	113	94	LecteurTakam
Erreur	4	'OpenMode' n'est pas déclaré. Il peut être inaccessible en raison de son niveau de protection.	C:\Users\Laura\Desktop\LecteurTakam\LecteurTakam\Form1.vb	108	34	LecteurTakam
Erreur	1	'vbNewLine' n'est pas déclaré. Il peut être inaccessible en raison de son niveau de protection.	C:\Users\Laura\Desktop\LecteurTakam\LecteurTakam\Form1.vb	90	34	LecteurTakam
Erreur	9	'vbNewLine' n'est pas déclaré. Il peut être inaccessible en raison de son niveau de protection.	C:\Users\Laura\Desktop\LecteurTakam\LecteurTakam\Form1.vb	113	42	LecteurTakam
Erreur	10	'vbNewLine' n'est pas déclaré. Il peut être inaccessible en raison de son niveau de protection.	C:\Users\Laura\Desktop\LecteurTakam\LecteurTakam\Form1.vb	113	54	LecteurTakam
Erreur	12	'vbOK' n'est pas déclaré. Il peut être inaccessible en raison de son niveau de protection.	C:\Users\Laura\Desktop\LecteurTakam\LecteurTakam\Form1.vb	114	26	LecteurTakam

KcHeY · Answer

Deux erreurs supprimées en remplaçant MsgBox par Messagebox.Show (dsl NHenrey je recommencerai plus lol)

Il m'avais conseillé de prendre l'habitude de mettre messagebox.show à la place de msgbox, et c'est vrai que comme c'est plus rapide je prend les mauvaises, habitude.

Utilisateur anonyme · Answer

Parce que cette référence est obsolète.
Elle n'existe que pour assurer une compatibilité.
Autant te mettre tout de suite au langage natif du .NET
Enfin c'est juste un conseil pas une obligation

KcHeY · Answer

C'est dur à comprendre tout ça j'ai mis les mains dedans pour la première fois il y vraiment très peu de temps, et c'est vrai que depuis peu je passe beaucoup plus de temps qu'au début.
Je garde tout mes programmes, et quand j'ai besoin de quelque chose que j'ai déjà fait, j'ouvre le programme approprié, c'est peut-être pas la meilleurs façon d'apprendre mais petit à petit je peux coder sans avoir besoin de revenir sur les anciens projets.

Mais il faut l'avouer, sans les réponses aux questions qui me bloques, j'aurai déjà abandonner!

Je me rassure en me disant que mes questions servirons à d'autre, surtout qu'en général vous résolvez mes problèmes, merci pour votre aide.

KcHeY · Answer

Je peux résoudre quelques erreurs en important manuellement microsoft visual basic, est-ce la solution ?

KcHeY · Answer

En important Microsoft Visual Basic en haut du code je n'ai plus qu'une erreur:

Erreur	1	La résolution de surcharge a échoué, car aucun 'Show' accessible ne peut être appelé avec ces arguments :
    'Public Shared Function Show(owner As System.Windows.Forms.IWin32Window, text As String) As System.Windows.Forms.DialogResult' : Option Strict On interdit les conversions implicites de 'String' en 'System.Windows.Forms.IWin32Window'.
    'Public Shared Function Show(owner As System.Windows.Forms.IWin32Window, text As String) As System.Windows.Forms.DialogResult' : Option Strict On interdit les conversions implicites de 'Microsoft.VisualBasic.MsgBoxStyle' en 'String'.
    'Public Shared Function Show(text As String, caption As String) As System.Windows.Forms.DialogResult' : Option Strict On interdit les conversions implicites de 'Microsoft.VisualBasic.MsgBoxStyle' en 'String'.	C:\Users\Laura\Desktop\LecteurTakam\LecteurTakam\Form1.vb	116	29	LecteurTakam

KcHeY · Answer

J'ai remplacer par msgbox et plus d'erreur..
Mes soucis le plus important et comment supprimer la ligne du fichier texte affiché comme évènement dans un msgbox.
Le second serai optionnellement de pouvoir faire ces évènements multiligne.

Utilisateur anonyme · Answer

ucfoutu te l'as déjà signalé; ton approche du problème n'est pas la bonne.
Mieux vaut mettre en oeuvre une base de données (un simple xml suffirait dans ton cas).
Au pire une List(Of String) de manière à ordonner tes lignes et de pouvoir réaliser des opérations comme une suppression, un remplacement, une recherche de mot etc...

KcHeY · Answer

Hello,

Justement ce que je cherchai à faire était de supprimé du fichier texte le message affiché dans le textbox. 

Faut que j'apprenne des nouveaux trucs pour mettre en pratique ce que vous me dites.

Cordialement.

KcHeY · Answer

Bonjour,

Je reviens à l'affût suite à un nouveau problème.
Comme vous me l'avez conseillé, j'ai revu la façon de gérer les évènements et j'ai donc choisi de faire un fichier par jour.
Seulement, dans mon message box lors d'un evenement, les accents sont remplacé par d'autres caractères.
Voyez vous d'où viens ce problème Messieurs ?

Imports System.IO

Public Class Form1

    Dim key As Microsoft.Win32.RegistryKey


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CheckBox1.Checked = True
        ' Création d'une instance de StreamReader pour permettre la lecture de notre fichier
        Dim monStreamReader As StreamReader = New StreamReader("Evenement" & DateTimePicker1.Text)
        Dim ligne As String

        If System.IO.Directory.Exists("Evenement") = False Then
            System.IO.Directory.CreateDirectory("Evenement")
        End If

        If System.IO.File.Exists("Evenement" + DateTimePicker1.Text) Then
            Try
                'Lecture de toutes les lignes et affichage de chacune sur la page

                ligne = monStreamReader.ReadToEnd
                Select Case MsgBox(DateTimePicker1.Text & vbNewLine & ligne & vbNewLine & vbNewLine & "Voulez-vous supprimer l'évènement?", MsgBoxStyle.YesNo)
                    Case vbYes
                        monStreamReader.Close()
                        Dim mon_fichier As New FileInfo("Evenement" & DateTimePicker1.Text)
                        mon_fichier.Delete()
                    Case vbNo
                        monStreamReader.Close()
                End Select


            Catch ex As Exception

                'Code exécuté en cas d'exception
                MsgBox(ex.Message)

            End Try
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try

            'Instanciation du StreamWriter avec passage du nom du fichier 
            Dim monStreamWriter As StreamWriter = New StreamWriter("Evenement" & DateTimePicker1.Text, True, System.Text.Encoding.ASCII)

            'Ecriture du texte dans votre fichier
            monStreamWriter.WriteLine(TextBox1.Text)

            'Fermeture du StreamWriter (Trés important)
            monStreamWriter.Close()

        Catch ex As Exception

            'Code exécuté en cas d'exception
            MsgBox(ex.Message)

        End Try
        TextBox1.Clear()
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

        If CheckBox1.Checked = True Then
            key = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
            key.SetValue("InAdvance", Application.StartupPath + "\InAdvance.exe")
        ElseIf CheckBox1.Checked = False Then
            key = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
            key.DeleteValue("InAdvance")
        End If
    End Sub
End Class

KcHeY · Answer

Bonsoir,

Résolu par ceci :

Dim monStreamWriter As StreamWriter = New StreamWriter(dossierlocal & DateTimePicker1.Text, True, System.Text.Encoding.UTF8)

Merci encore pour votre aide et bonne soirée.

Mot trouvé dans fichier texte. Affichage dans textbox "Jusqu'à ligne vide".

29 réponses

Votre réponse

Discussions similaires