IncrémentationRésolu

Question

Bonjour,

J'ai un numéro qui doit en permanence incrémenter comme un id_AI, sauf que la c'est a moi de gérer cet AI.

Exemple :

J'ajoute au fur et a mesure dans ma base de données tout en gardant toujours le prefixe A:
A000
A001
A002
A003
.......
.......
AA000
AA001
AA002
......
......
AB000
AB001 


Ces numéros, je les enregistre au fur et a mesure dans ma BDD, et a chaque fois que je veux le suivant je requete pour avoir le plus grand. Et je sépare les lettres des chiffres. 

Ex : Select....... => A166, j'extrais 166 et je fais 166+1.

Pour l'instant aucun souci car je n'ai pas dépassé 999 pour le moment...


Avez vous une idée pour automatiser ce processus de manière fiable ?

Cordialement



--

Zermelo · Answer

Bonjour Moundir76.

Si j'ai bien compris, vous limitez à 3 le nombre de chiffres. Mais vous ne dites rien sur le nombre de lettres. Pourquoi ?
Cordialement.

cs_ShayW · Answer

Salut
je n'ai pas trop compris la méthode d'incrimentation
A000 -> A999 
Z000 ->Z999
ensuite ?
AA000 ->AA999
AB000  ->AB999
ZA000  ->ZA999
ZZ000 ->ZZ999

donc tu as 26 * 1000 +  26 * 26 * 1000 = 702000
pour un début
     Dim str, word As String
        Dim num As Int64
        str = "ABC001"
        num = Convert.ToInt64(str.Substring(str.Length - 3, 3))
        word = str.Substring(0, str.Length - 3).ToCharArray
        If num < 999 Then
            num += 1
            str = word & num.ToString.PadLeft(3, "0"c)
        Else
            num = 0
            'ici il manque 
        End If

ucfoutu · Answer

Bonjour,
Une incrémentation qui passe par une décomposition d'une chaîne de caractères ne peut qu'alourdir l'exécution et on en voit mal la raison éventuelle.

Zermelo · Answer

Bonjour Moundir76.

Ucfoutu, que je salue, a en grande partie raison. Vous risquez fort d'avoir un code hyper bidouillé s'il ne repose pas sur des principes simples. Voici ce que je vous propose.

1) À chacun de vos numéros, vous associez un rang, à partir de zéro.
2) Pour chaque numéro, vous encodez le rang en bases variables, base 10 pour les trois digits de poids faible, base 26 pour les autres digits.
3) Les représentations des digits en base 26 vont évidemment de A à Z.
4) Vous ajoutez la lettre A devant l'encodage obtenu.

Cordialement.

Utilisateur anonyme · Answer

Salut un Formulaire Form1, une Textbox Saisie et un bouton de commandes Suivant Insérer le code qui suit Valider la saisie dans la Textbox par la touche Entrée Incrémenter avec le bouton Pour effacer la Textbox Saisie cliquer dedans Public Class Form1 Private errchar As Boolean, chn As String, valide As Boolean Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load ' A000 -> A999 ' AA000->AA999 ' AB000->AB999 ' AC000->AC999 ' AD000->AD999 ' ...........->........... ' AZ000->AZ999 ' AAA000->AAA999 ' AAB000->AAB999 Saisie.Text = "" End Sub Private Sub Saisie_Click(sender As Object, e As EventArgs) Handles Saisie.Click ' on efface la zone de texte en cliquant dedans Saisie.Text = "" End Sub Private Sub Saisie_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Saisie.KeyPress Dim caractere As String valide = False If e.KeyChar <> Convert.ToChar(13) Then Exit Sub valide = True Saisie.Text = Saisie.Text.ToUpper chn = Saisie.Text errchar = False If chn.Length < 4 Then MessageBox.Show("La saisie doit comporter au moins 4 caractères") Saisie.Text = "" errchar = True End If For i = 0 To chn.Length - 4 caractere = chn.Substring(i, 1) If caractere > "Z" Or caractere < "A" Then MessageBox.Show("Seuls les 3 derniers caractères doivent être des chiffres : ceux avant doivent être des lettres") Saisie.Text = "" errchar = True Exit For End If Next i If errchar = True Then Exit Sub chn = chn.Substring(chn.Length - 3) For i = 0 To chn.Length - 1 caractere = chn.Substring(i, 1) If caractere > "9" Or caractere < "0" Then MessageBox.Show("Vous ne devez tapez que des chiffres pour les 3 derniers caractères") Saisie.Text = "" errchar = True Exit For End If Next If errchar = False Then Increment() End Sub Private Sub Suivant_Click(sender As Object, e As EventArgs) Handles Suivant.Click Increment() End Sub Private Sub Increment() Dim valeur3 As Integer, chn3 As String, chnlettre As String, lettrefin As String, position As Integer Dim alphabet As String = "ABCDEFGHIJKLMNOPQRSTUVWXZ" If errchar = True Then MessageBox.Show("L'erreur à la saisie précédente n'a pas été corrigée ") Exit Sub End If chn = Saisie.Text ' test sur la valeur des trois chiffres valeur3 = Convert.ToInt32(chn.Substring(chn.Length - 3)) If valeur3 < 999 Then valeur3 = valeur3 + 1 chn3 = valeur3.ToString If chn3.Length < 3 Then chn3 = New String("0", 3 - chn3.Length) & chn3 Saisie.Text = Saisie.Text.Substring(0, Saisie.Text.Length - 3) & chn3 Else chn3 = "000" chnlettre = chn.Substring(0, chn.Length - 3) ' on récupère les lettres If chnlettre.Length = 1 Then ' on insère le deuxième A pour la première fois Saisie.Text = "AA" & chn3 Else chnlettre = chnlettre.Substring(1, chnlettre.Length - 1) lettrefin = chnlettre.Substring(chnlettre.Length - 1, 1) If lettrefin = "Z" Then lettrefin = "AA" ' le Z devient A et on rajoute un A à la suite Else position = alphabet.IndexOf(lettrefin) lettrefin = alphabet.Substring(position + 1, 1) End If If chnlettre.Length = 1 Then Saisie.Text = "A" & lettrefin & "000" Else Saisie.Text = "A" & chnlettre.Substring(0, chnlettre.Length - 1) & lettrefin & "000" End If End If End If Saisie.Refresh() End Sub End Class

Utilisateur anonyme · Answer

Pour Zermelo

A000 -> A999
AA000->AA999
AB000->AB999
AC000->AC999
AD000->AD999
...........->...........
AZ000->AZ999  ' on ne passe pas à BA000 (le Z devient A et on rajoute un A pour faire AAA 
AAA000->AAA999
AAB000->AAB999

dans cette suite logique donnée par Moundir76 on s'aperçoit que c'est uniquement la dernière lettre qui est "incrémentée" si il y a 2 lettres ou plus !

Donc l'idée de base 26 ne me semble pas bonne car elle "incrémenterait" toutes les lettres avec retenue si on dépasse Z : le Z deviendrait A et la lettre précédente serait "incrémentée"

Zermelo · Answer

Bonjour codeagogo. 

Ce que vous dites est juste. Mais je ne suis pas sûr que Moundir76 soit bien fixé sur la règle d'incrémentation. À lui de décider.
De toute manière, je ne donnerai pas de code tout fait, car ce serait contraire à l'esprit de ce forum.

Cordialement.

Zermelo · Answer

À Moundir76.

Je ne suis pas sûr que vous ayez complètement compris "ma" logique. En effet, son quatrième alinéa fait que la règle "toujours commencer par un A" est satisfaite.

Vous pouvez observer que codagogo a bien vu que je ne le visais pas en disant que je refusais de donner un code tout fait : il a précisé "à lui de l'adapter à son cas précis".

En ce qui me concerne, je serais prêt à donner les codes d'encodage/décodage à base variable, à charge pour vous de les adapter à votre cas précis.

Cordialement

Utilisateur anonyme · Answer

Moundir76

Dans mon code nul besoin de rajouter quoi que soit devant !
C'est la sub Increment() qui fait tout le boulot !
je dépose un code test sur le site à ton intention

cs_ShayW · Answer

Salut
une autre proposition 

Private Function GetNextID(ByVal lastID As String) As String
' rend le prochain id  
        Dim word, ch, acc As String
        Dim flag As Boolean
        Dim num As Int64

        num = Convert.ToInt64(lastID.Substring(lastID.Length - 3, 3))
        word = lastID.Substring(0, lastID.Length - 3)
        If num < 999 Then
            num += 1
            Return word & num.ToString.PadLeft(3, "0"c)
        Else
            num = 0
            ch = word.Substring(1)
            flag = False
            acc = String.Empty
            If ch <> String.Empty AndAlso Convert.ToInt32(ch(ch.Length - 1)) < Convert.ToInt32("Z"c) Then
                Return "A" & ch.Substring(0, ch.Length - 1) & Convert.ToChar(Convert.ToInt32(ch(ch.Length - 1)) + 1).ToString & num.ToString.PadLeft(3, "0"c)
            Else
                For iter As Integer = ch.Length To 1 Step -1
                    If Convert.ToInt32(ch(iter - 1)) = Convert.ToInt32("Z"c) Then
                        acc = String.Concat(acc, "A")
                    Else
                        If Not flag Then
                            acc = Convert.ToChar(Convert.ToInt32(ch(iter - 1)) + 1) & acc & num.ToString.PadLeft(3, "0"c)
                            flag = True
                        Else
                            acc = "A" & ch.Substring(0, 1) & acc
                        End If

                    End If
                Next
                If Not flag Then
                    Return "AA" & acc & num.ToString.PadLeft(3, "0"c)
                Else
                    Return "A" & acc
                End If
            End If

        End If

    End Function


à tester

Incrémentation

10 réponses

Votre réponse

Discussions similaires