none
ecrie e tlire dans un fichier txt RRS feed

  • Question

  • bonjour

     je suis en train d’écrire un programme  avec la condition suivante :

    je voudrais pouvoir enregistrer sur le fichier texte un clé de code et pouvoir a chaque ouverture pouvoir lire la clé et si ok lancer le pgm

    j'ai écris un code de sauvegarde mais j’ai un doute merci de m'aider voici mon code

            
            Dim Fichier As String = "Sauvegarde.txt"
            FileOpen(1, Fichier, OpenMode.Append, OpenAccess.Write)
            PrintLine(1, TextBox1_clé.Text)
            FileClose(1)
    

    jeudi 7 janvier 2016 14:10

Réponses

  • Pour relire le fichier txt vous pouvez faire ceci:

     'Lecture du fichier avec 
            Dim fileReader As String
    
            fileReader = My.Computer.FileSystem.ReadAllText("Sauvegarde.txt")
            'Maintenant vous pouvez chercher votre clé dans filereader avec filereader.contains("La clé...")
            MsgBox(fileReader)

    Mais si vous avez plusieurs lignes alors utilisez StreamReader comme cela:

    'En en-tête du code:
    Imports System.IO
    
    'Puis dans la fonction de lecture
     Dim sr As StreamReader = New StreamReader("Sauvegarde.txt")
    Dim UneLigne As String
    
            Do While sr.Peek() >= 0
                UneLigne = sr.ReadLine()
                'Ici faites vos tests
            Loop
            sr.Close()
    ou alors Readlines comme ceci:
    For Each ligne As String In File.ReadLines("Sauvegarde.txt")
        If ligne.Contains("La clé cherchée")  Then
            'La clé est trouvé dans la ligne...
        End If
    Next ligne


    Maintenant vous pourriez utilisez un cryptage dans ce que vous faites pour la clé...c'est une autre question :)


    Cyrille Precetti
    Bonne Année! Happy New Year!


    N'oubliez pas d'indiquer si cela est la réponse à votre question...


    jeudi 7 janvier 2016 16:22

Toutes les réponses

  • Le code indiqué fonctionne correctement.

    La fonction FileOpen n'est pas vraiment la meilleure, car elle n'existe que pour compatibilité arrière avec les anciennes versions. Il vaut mieux passer à des fonctions de .NET comme:

    My.Computer.FileSystem.WriteAllText("C:\TestFolder1\test.txt","Texte a ajouter.",True)

    Avec votre code, le fichier sera écrit dans le dossier où est l'exécutable, ce n'est peut être pas l'endroit désiré...


    Cyrille Precetti
    Bonne Année! Happy New Year!



    jeudi 7 janvier 2016 15:20
  • merci beaucoup mais je ne sais pas faire le code pour le lire pouvez m'aider merci d'avance et bonne année meilleurs voeux

    je viens de tester ce code mais je n'ai aucune inscription dans mon fichier voici mon nouveau code

         
            Dim Fichier As String = "Sauvegarde.txt"
        
            My.Computer.FileSystem.WriteAllText("C:\users\georges\desktop\TABLEAU.txt", TextBox1_clé.Text, True)        'Ecriture du texte dans le Fichier
            'Fermeture de "TABLEAU.txt" UNIQUEMENT ( d'où le (1) )
            FileClose(1)

    jeudi 7 janvier 2016 16:08
  • Pour relire le fichier txt vous pouvez faire ceci:

     'Lecture du fichier avec 
            Dim fileReader As String
    
            fileReader = My.Computer.FileSystem.ReadAllText("Sauvegarde.txt")
            'Maintenant vous pouvez chercher votre clé dans filereader avec filereader.contains("La clé...")
            MsgBox(fileReader)

    Mais si vous avez plusieurs lignes alors utilisez StreamReader comme cela:

    'En en-tête du code:
    Imports System.IO
    
    'Puis dans la fonction de lecture
     Dim sr As StreamReader = New StreamReader("Sauvegarde.txt")
    Dim UneLigne As String
    
            Do While sr.Peek() >= 0
                UneLigne = sr.ReadLine()
                'Ici faites vos tests
            Loop
            sr.Close()
    ou alors Readlines comme ceci:
    For Each ligne As String In File.ReadLines("Sauvegarde.txt")
        If ligne.Contains("La clé cherchée")  Then
            'La clé est trouvé dans la ligne...
        End If
    Next ligne


    Maintenant vous pourriez utilisez un cryptage dans ce que vous faites pour la clé...c'est une autre question :)


    Cyrille Precetti
    Bonne Année! Happy New Year!


    N'oubliez pas d'indiquer si cela est la réponse à votre question...


    jeudi 7 janvier 2016 16:22
  • un grand merci  bonne journée

    vendredi 8 janvier 2016 07:20