Discussion :

[itokia]

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

[itokia]

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

Voici ma fonction pour ceux qui intéresse.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[DAUDET78]

Il doit y avoir plusieurs solutions, en voila une

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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