Incrémenter un string qui contient un entier

Version imprimable

10/06/2011, 11h19
itokia

Incrémenter un string qui contient un entier

Bonjour,

Je souhaiterais incrémenter une variable de type string provenant ma db2 mais impossible de trouver comment faire.

Exemple,

Dim var as string
var="ZZ0000001"

Et je souhaiterais passer à ZZ0000002.

Pouvez vous m'aider svp?
Merci

Bon et bien j'ai trouvé, ce n'était pas si dur que ca :)

Voici ma fonction pour ceux qui intéresse.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Form_Load()
Dim var As String
Dim res As String
Dim var1 As Long
 
var = "ZZ0000001"
res = Right(var, 7)
var1 = CLng(res) + 1
Text1 = "ZZ" & Right("0000000" & var1, 7)
 
End Sub

Il doit y avoir plusieurs solutions, en voila une

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
var$="ZZ0000001"
For I%=1 to Len(Var$)
  If Asc(Mid$(Var$,I%) <= &H39 Then exit for ' Chiffre trouvé!
Next I%
 
IF I% > Len(Var$) then GOTO gestion pas de valeur numérique, on fait quoi?
 
Sa$= Lef$(Var$,I%-1) ' partie alphabétique Sa$="ZZ"
Sn$= Mid$(Var$$,I%) ' partie numérique Sn$="0000001"
J&= Val(Sn$)+1 ' J&=2
S$= Right$(String$("0",Len(Sn$)) + Format$(J&),Len(Sn$) ' S$="0000002"
 
Var$= Sa$ + S$

PS : je n'ai pas testé ... mais ce n'est idiot