none
ENREGISTREMENT PAR PROGRAMMATION ET SOUS UN NOM DIFFERENT D'UN PROJET VISUAL BASIC RRS feed

  • Question

  • Bonjour à tous,
    J'ai écrit un programme en Visual Basic 2010, programme destiné à inscrire les participants à un jeu, à entrer les points acquis et à établir le classement. Pas de problème, le programme fonctionne correctement.

    Je souhaiterais le compléter pour que l'utilisateur lance au départ le programme vierge (il ne contient à ce stade ni les noms des participants, ni le relevé des points) et que lorsqu'il effectue l'enregistrement des inscriptions (par appui sur un bouton inclus dans le code), le programme, qui contient alors les informations du jeu en cours, s'enregistre automatiquement sous un autre nom.

    Formulé plus simplement, je voudrais que le projet renseigné s'enregistre par programmation sous un nom différent, en conservant le projet vierge de départ sous son nom d'origine.

    Est-ce possible et quel est le code ?

    Merci aux programmateurs chevronnés qui pourront me tirer d'affaire

    Cordialement à tous

    Jedry

    • Type modifié Emile Supiot lundi 17 août 2015 11:10 solution trouvée
    vendredi 7 août 2015 21:06

Réponses

  • Bonjour,

    Par incrémentation !!

     Dim i As Integer = 0
            Const fileMask As String = "Name({0})"
    
            Dim Name As String
    
            'On scanne le répertoire et on incrémente
            Name = String.Format(CultureInfo.CurrentCulture, fileMask, i)
    
            Do While My.Computer.FileSystem.FileExists(MON_REPERTOIRE_DE_SAUVEGARDE & "\" & Name & ".dat")
                i += 1
                Name = String.Format(CultureInfo.CurrentCulture, fileMask, i)
            Loop
    
            ' Name est le nom du fichier à sauvegarder et est incrémenté à chaque sauvegarde 
            '
            '
            '
    
            ' On sauvegarde Name(1).dat, Name(2).dat, etc......

    Par exemple !!

    Bien à vous.


    ZGuideTV.NET - administrator/developer


    vendredi 14 août 2015 11:48

Toutes les réponses

  • Bonjour,

    Par incrémentation !!

     Dim i As Integer = 0
            Const fileMask As String = "Name({0})"
    
            Dim Name As String
    
            'On scanne le répertoire et on incrémente
            Name = String.Format(CultureInfo.CurrentCulture, fileMask, i)
    
            Do While My.Computer.FileSystem.FileExists(MON_REPERTOIRE_DE_SAUVEGARDE & "\" & Name & ".dat")
                i += 1
                Name = String.Format(CultureInfo.CurrentCulture, fileMask, i)
            Loop
    
            ' Name est le nom du fichier à sauvegarder et est incrémenté à chaque sauvegarde 
            '
            '
            '
    
            ' On sauvegarde Name(1).dat, Name(2).dat, etc......

    Par exemple !!

    Bien à vous.


    ZGuideTV.NET - administrator/developer


    vendredi 14 août 2015 11:48
  • Merci Pascal !

    Je vais mettre votre réponse en application.

    Merci encore

    Bien cordialement

    Jean Dhoury


    • Modifié jedou vendredi 14 août 2015 15:14
    • Proposé comme réponse jedou lundi 17 août 2015 20:18
    vendredi 14 août 2015 15:13