bonjour,
je sais que ce sujet a été abordé dans le forum mais j'arrive pas le trouver
mon problème c'est que je veux incrementer automatiquement un numéro d'odre qui contient des lettre et des chiffres.
exemple : F-KAM-01
F-KAM-02
merci pour votre aide.
A voir également:
Incrémentable
Vb.net increment integer - Meilleures réponses
Vb.net increment integer by 1 - Meilleures réponses
Bonjour germany1970.
Incrémenter un nombre entier est tout simple, puisque cela consiste à l'augmenter d'une unité.
Par contre, dans votre cas de figure, c'est à vous de spécifier les règles d'incrémentation. Il sera temps après cela de voir comment programmer ces règles.
Saperlipopette et cornegidouille, vous auriez pu nous dire tout de suite que les six premiers caractères sont fixes! Nous nous avez mis dans le vent ShayW et moi. Il ne reste donc à traiter qu'un nombre à deux chiffres. Je suppose que vous êtes bien conscient que cela ne permet que 100 numéros (et même seulement 99 si vous commencez à 01 au lieu de commencer à 00).
En ce qui concerne le code, je vous donne la marche à suivre, étant entendu que vous êtes censé avoir mis votre premier numéro sous forme d'un String.
1) Récupérez les deux derniers caractères du numéro, grâce à la fonction Substring de la classe String
2) Convertissez en un entier le String formé par les deux caractères, et ajoutez lui 1.
3) Convertissez en un String à deux caractères l'entier obtenu.
4) Faites la concaténation qu'il faut pour obtenir le numéro incrémenté.
5) Réfléchissez à ce que vous ferez en arrivant à 99.
Je ne vous aiderai davantage que si vous nous montrez un bout de code.
La question est très vague finalement. Le règlement de ce forum précise bien que le demandeur doit fournir une explication claire. Et une fois de plus on s'égare dans des directions fausses...
Cette chaîne dont les deux derniers caractères doivent être incrémentés doit être récupérée de quelle façon ? Dans une liste ? Dans un tableau ? Dans un contrôle ? De quelle manière est-il incrémenté ? Par une saisie de l'utilisateur ? Lors d'un délai ? Après un événement ?
Bref, on ne sait absolument rien!
svp un début de code pour commencer ça sera très gentil.
Selon le cas, la façon de coder peut être largement différente.
bonjour,
ouffff, après plusieurs tests j'ai pu trouver la solution voilà à qui en besoin, alors pour mon cas j'ai mis 2 TextBox le premier sert à afficher le dernier code de enregistrer dans ma table et le deuxième sert à incrementer mon code :
NB : le format de mon code est : L-LLL-CCC
- L(se sont des lettres fix)
- CCC(les chiffres à incrementés)
'affichage du denier code fournisseur
'******************************************
If rownum < dtt.Rows.Count - 1 Then
rownum = dtt.Rows.Count - 1
'affichage des données dans les texbox
Me.TextBox1.Text = dtt.Rows(rownum).Item("code")
End If
'-----------------INCREMENTER LE CODE FOUNISSEUR---------------------
Dim basecode As String = TextBox1.Text
Dim Originalcode As String = basecode.Substring(8, 1)
Dim numerocode As Integer = Convert.ToInt32(Originalcode)
'(augmenter le nombre)
numerocode += 1
Dim strNewNumber As String = numerocode.ToString()
strNewNumber = strNewNumber.PadRight(0, "0")
'Concaténer la nouvelle chaîne de caractères avec le reste de l'original (inv.nmbr string)
Dim NewCode As String = basecode.Substring(0, 8) & strNewNumber
TextBox2.Text = NewCode
voilà.
Une remarque pour la prochaine fois. On vous demande d'utiliser "la coloration syntaxique". Cela consiste à sélectionner votre code, puis à vous placer sur la troisième icône à partir de la droite, et à cliquer dans la liste déroulante qui apparaît alors, sur le symbole du logiciel de développement que vous utilisez. Voila ce que cela donne si je traite ainsi votre code
'affichage du denier code fournisseur
'******************************************
If rownum < dtt.Rows.Count - 1 Then
rownum = dtt.Rows.Count - 1
'affichage des données dans les texbox
Me.TextBox1.Text = dtt.Rows(rownum).Item("code")
End If
'-----------------INCREMENTER LE CODE FOUNISSEUR---------------------
Dim basecode As String = TextBox1.Text
Dim Originalcode As String = basecode.Substring(8, 1)
Dim numerocode As Integer = Convert.ToInt32(Originalcode)
'(augmenter le nombre)
numerocode += 1
Dim strNewNumber As String = numerocode.ToString()
strNewNumber = strNewNumber.PadRight(0, "0")
'Concaténer la nouvelle chaîne de caractères avec le reste de l'original (inv.nmbr string)
Dim NewCode As String = basecode.Substring(0, 8) & strNewNumber
TextBox2.Text = NewCode
Bonjour,
Tiens ! Il me semble (-ai-je tort) que l'on est passé d'une fourchette possible de 0 à 99 à une nouvelle fourchette limitée à de 0 à 9 .
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
Bonjour ucfoutu.
Oh non tu n'as pas tort! Mais d'une part il y a une amélioration considérable : germany1970 pleurnichais pour qu'on lui donne un code, et maintenant il en a fait un, après avoir pioché dans la classe String. D'autre part, il est censé avoir testé son code. Assez loin pour dépasser 9, et donc pour lui donner à penser. Nous verrons alors comment il réagira.
Avec mes amitiés.
bonjour,
voilà le nouveau code et il peut aller à l'infini mais juste un petit rectif de mon code VB :
Dim basecode As String = TextBox1.Text
Dim Originalcode As String = basecode.Substring(0, 3)
Dim numerocode As Integer = Convert.ToInt32(Originalcode)
'(augmenter le nombre)
numerocode += 1
Dim strNewNumber As String = numerocode.ToString()
strNewNumber = strNewNumber.PadLeft(3, "0")
'Concaténer la nouvelle chaîne de caractères avec le reste de l'original (inv.nmbr string)
Dim NewCode As String = strNewNumber & basecode.Substring(3)
TextBox2.Text = NewCode
alors le format du code fournisseur sera comme suit :
000-F-SOC
maintenant la question si je veux que le format de mon code soit de cette façon :
F-SOC-000
Infini non, dans ton code la limite est 999.
Teste quand même la valeur numérique de TextBox1.Text. Des utilisateur étourdis sont tellement fréquents ces temps-ci
Utilise Integer.TryParse (voir msdn).
Et si ton utilisateur tape 1 seul, ton code plantera avec SubString (mauvaise idée donc l'emploi de substring). Allez relis donc le premier message de Zermelo que je salue de nouveau
l'utilisateur ne tape rien j'ai mis un boutton qui incremente mon code donc l'utilisateur n'a rien à taper il suffit de cliquer sur le boutton en plus j'ai mis mon textbox en readonly = true
voilà le code final avec une incrementation juqu'à 9999.
merci banana32.
If TextbOX1.Text = "" Then
TextBox2.Text = "F-SOC-0001"
Else
Dim Ref As Integer
Dim basecode As String = TextBox1.Text
Dim Originalcode As String = basecode.Substring(6, 4)
If Integer.TryParse(Originalcode, Ref) Then
TextBox2.Text = (String.Format("F-SOC-{0:0000}", Ref + 1).ToString)
End If
Bonsoir germany1970.
Ce que banana32 (que je salue amicalement) voulait vous faire comprendre, c'est qu'il faut tester les données d'entrée, celles que vous avez mises dans un TextBox, et je me demande bien pourquoi.
Comme vous avez fait un bel effort, je vais vous donner un code testé.
Public Class Accueil
Private Txt As String
Private Sub bTst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bTst.Click
Dim TxtI As String, Ok As Boolean, Msg As String
Txt "999-F-SOC" : TxtI Incrémenté(Txt, Ok)
If Ok Then Msg TxtI Else Msg "Erreur"
MessageBox.Show(Msg)
End Sub
Private Function Incrémenté(ByVal Txt As String, ByRef Ok As Boolean) As String
Dim TxtL As String "", TxtC As String "", x As Integer
Ok (Txt.Length 9)
If Ok Then TxtL Txt.Substring(3) : TxtC Txt.Substring(0, 3)
If Ok Then Ok = Integer.TryParse(TxtC, x)
If Ok Then Ok = x < 999
If Ok Then x +1 : TxtC x.ToString.PadLeft(3, CChar("0"))
Return TxtC & TxtL
End Function
End Class
pour le code fournisseur 000-F-SOC. Comme je n'aime pas les notations longues d'ici jusqu'à Pontoise, je les ai raccourcies
Txt : code fournisseur
TxtL : partie littérale du code fournisseur
TxtC : partie numérique du code fournisseur
D'autre part vous aurez compris que bTst est un bouton de commande.
