Incrémenter chaine de caractères [Résolu]
paul2k33
- Messages postés
- 5
- Date d'inscription
- mercredi 26 novembre 2008
- Dernière intervention
- 28 décembre 2008
- Messages postés
- 5
- Date d'inscription
- mercredi 26 novembre 2008
- Dernière intervention
- 28 décembre 2008
A voir également:
- Vba chr inverse
- Probleme incrementation chaine de caractere - Forum - VBA Office (Excel, Word ...)
- Sous-titres : incrémentation de toutes les chaînes de caractères "hh:mm:ss,mmm" - Codes sources - Visual Basic / VB.NET (Divers)
- Incrémenter une chaine de caractère - Forum - Visual Basic 6
- Incrémenter un nombre dans une chaine de caractère - Forum - Visual Basic 6
- Formatez vos chaines de caractères grâce à la fonction format - Conseils pratiques - Delphi
6 réponses
Meilleure réponse
- Messages postés
- 48
- Date d'inscription
- samedi 5 août 2006
- Dernière intervention
- 9 novembre 2009
Salut;
je voi que tu a fait une erreur ; j'ai ecrit b=b+c et non b=a+b
et moi aussi j'ai fait une ereur il faut initialiser "b" chaque fois
don le code devient :
Private Sub Command1_Click()
Dim a As String ' chaine de caractères source par exemple "ABC"
Dim b As String ' chaine de caractères detination donc b = "BCD"
Dim c As String ' variable intermediare
Dim d As Integer ' variable intermediare
Dim i As Integer ' por la boucle 1
Dim j As Integer ' por la boucle 2
a = "ABC"
For j = 1 To 2 'nb est le nombre c'est combien de
b = "" ' initialisation de b ici
For i = 1 To Len(a)
c = Left(a, i)
c = Right(c, 1)
d = Asc(c) 'Asc est une fonction qui renvoi le code ascci
d = d + 1 'on l'incrimente
c = Chr(d) 'Chr est la fonction inverse de Asc b b + c ' ici b b+c et non b = a+c
Next i
' b résultats intermédiaire ici tu peut l'afficher
Print b 'AFFICHER
a = b
Next j
End Sub
et je suis sure qu'il mareche tres bien;
cordialement, a+
je voi que tu a fait une erreur ; j'ai ecrit b=b+c et non b=a+b
et moi aussi j'ai fait une ereur il faut initialiser "b" chaque fois
don le code devient :
Private Sub Command1_Click()
Dim a As String ' chaine de caractères source par exemple "ABC"
Dim b As String ' chaine de caractères detination donc b = "BCD"
Dim c As String ' variable intermediare
Dim d As Integer ' variable intermediare
Dim i As Integer ' por la boucle 1
Dim j As Integer ' por la boucle 2
a = "ABC"
For j = 1 To 2 'nb est le nombre c'est combien de
b = "" ' initialisation de b ici
For i = 1 To Len(a)
c = Left(a, i)
c = Right(c, 1)
d = Asc(c) 'Asc est une fonction qui renvoi le code ascci
d = d + 1 'on l'incrimente
c = Chr(d) 'Chr est la fonction inverse de Asc b b + c ' ici b b+c et non b = a+c
Next i
' b résultats intermédiaire ici tu peut l'afficher
Print b 'AFFICHER
a = b
Next j
End Sub
et je suis sure qu'il mareche tres bien;
cordialement, a+
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
a aidé 105 internautes ce mois-ci
- Messages postés
- 48
- Date d'inscription
- samedi 5 août 2006
- Dernière intervention
- 9 novembre 2009
salut;
tu peu faire ca :
Dim a As String 'chaine de caractères source par exemple "ABC"
Dim b As String 'chaine de caractères detination donc b = "BCD"
Dim c As String ' variable intermediare
Dim d As Byte ' variable intermediare
Dim i as byte
b = ""
a = "ABCDEF"
For i = 1 To Len(a)
c = Left(a, i)
c = Right(c, 1)
d = Asc(c) 'Asc est une fonction qui renvoi le code ascci
d = d + 1 'on l'incrimente
c = Chr(d) 'Chr est la fonction inverse de Asc
b = b + c
Next i
N’hésiter pas a poser tes questions si tu n’a pas compris ça…
a+
tu peu faire ca :
Dim a As String 'chaine de caractères source par exemple "ABC"
Dim b As String 'chaine de caractères detination donc b = "BCD"
Dim c As String ' variable intermediare
Dim d As Byte ' variable intermediare
Dim i as byte
b = ""
a = "ABCDEF"
For i = 1 To Len(a)
c = Left(a, i)
c = Right(c, 1)
d = Asc(c) 'Asc est une fonction qui renvoi le code ascci
d = d + 1 'on l'incrimente
c = Chr(d) 'Chr est la fonction inverse de Asc
b = b + c
Next i
N’hésiter pas a poser tes questions si tu n’a pas compris ça…
a+
- Messages postés
- 48
- Date d'inscription
- samedi 5 août 2006
- Dernière intervention
- 9 novembre 2009
Salut ;
Donc on va faire une simple modification , avec deux boucle imbriquée :
<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>
Dim a As String ' chaine de caractères source par exemple "ABC"
Dim b As String ' chaine de caractères detination donc b = "BCD"
Dim c As String ' variable intermediare
Dim d As Byte ' variable intermediare
Dim i as byte ' por la boucle 1
dim j as byte ' por la boucle 2
b = ""
a = "ABCDEF"
for j = 1 to nb ‘nb est le nombre c'est combien de fois ca doit incrementer)
For i = 1 To Len(a)
c = Left(a, i)
c = Right(c, 1)
d = Asc(c) 'Asc est une fonction qui renvoi le code ascci
d = d + 1 'on l'incrimente
c = Chr(d) 'Chr est la fonction inverse de Asc
b = b + c
Next i
‘ b résultats intermédiaire ici tu peut l’afficher
a = b
Next j
Et en fin le résultat final est dans ‘b’, tu peu afficher les résultats intermédiaire
Ou bien si tu n’a pas intéresser par les résultats intermédiaire
Donc met ‘ d d + nb’ au lieu de ‘d d + <?xml:namespace prefix = st1 ns = "urn:schemas-microsoft-com:office:smarttags" /??><st1:metricconverter w:st="on" productid="1’">1’</st1:metricconverter> dans le premier code.
Donc on va faire une simple modification , avec deux boucle imbriquée :
<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>
Dim a As String ' chaine de caractères source par exemple "ABC"
Dim b As String ' chaine de caractères detination donc b = "BCD"
Dim c As String ' variable intermediare
Dim d As Byte ' variable intermediare
Dim i as byte ' por la boucle 1
dim j as byte ' por la boucle 2
b = ""
a = "ABCDEF"
for j = 1 to nb ‘nb est le nombre c'est combien de fois ca doit incrementer)
For i = 1 To Len(a)
c = Left(a, i)
c = Right(c, 1)
d = Asc(c) 'Asc est une fonction qui renvoi le code ascci
d = d + 1 'on l'incrimente
c = Chr(d) 'Chr est la fonction inverse de Asc
b = b + c
Next i
‘ b résultats intermédiaire ici tu peut l’afficher
a = b
Next j
Et en fin le résultat final est dans ‘b’, tu peu afficher les résultats intermédiaire
Ou bien si tu n’a pas intéresser par les résultats intermédiaire
Donc met ‘ d d + nb’ au lieu de ‘d d + <?xml:namespace prefix = st1 ns = "urn:schemas-microsoft-com:office:smarttags" /??><st1:metricconverter w:st="on" productid="1’">1’</st1:metricconverter> dans le premier code.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.