Discussion :

[t'djinn]

Coucou :-)

En gros j'ai une variable en string qui contient une, deux ou trois lettres ainsi qu'un, deux ou trois chiffres. Se sont des identificateurs de bornes de cablages.

Je voudrais découper cette variable string en deux partie : d'un coté les lettres, et d'un autre les chiffres. Afin de stocker la premiere partie dans une nouvelle varibable en string, et l'autre dans un nouvelle variable en integer.

ex : JB12 => JB 12
J1 => J 1
JCC999 => JCC 999
...

Je connais la fonction split, mais celle-ci requiert un délimiteur, hors ici il n'y en a pas.

Si quelqu'un pourrait me lancer sur une piste sa serait sympa :p

Si vous avez besoin que je rexplique plus clairement, ou un supplément d'information, je reste dans le coin lol ^^


Enjoy.

t'DJinn.

[Catbull]

Tu peux utiliser une fonction du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public Sub main()
   Dim Lettres As String
   Dim Nombre As Long
 
   SeparerChiffresEtLettres "JBx98", Lettres, Nombre
 
   MsgBox Lettres & " - " & Nombre
End Sub
 
Public Function SeparerChiffresEtLettres(Expression As String, ByRef Lettres As String, ByRef Nombre As Long) As Boolean
    Dim Index As Long
 
    For Index = Len(Expression) To 1 Step -1
        If IsNumeric(Right(Expression, Len(Expression) - Index + 1)) Then
            Nombre = CLng(Right(Expression, Len(Expression) - Index + 1))
        Else
            Lettres = Left(Expression, Index)
            Exit For
        End If
    Next
End Function

Il faut aussi tester que la partie Lettres ne renvoie que des lettres afin de rejeter les Expression du genre J4B99.

[Ania]

Juste comme ca un p'tit conseil a developper

peut etre peut faire un test sur chaque lettre en utilisant la fonction mid

Code :

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

1
2
3
4
5
6
7
 
for i=0 to Length(MonCode)
    if IsNumeric(Mid(MonCode, i ,1) = True then
        PartiLettre = Left(MonCode, i)
        PartiChiffre = right(MonCode, i)
    end if
next i

ca reste a tester bonne continuation

[t'djinn]

Merci, sa marche

Cependant, une petite contraite vient s'ajouter a cela, c'est que le chiffres, peuvent etre avant les lettres et inversement.
format => LLLCCC (au maximum) ou CCCLLL.
En gros cela dépend de l'humeur de l'utilisateur :s

En revanche en aucun cas les chiffres sont mélangés au lettres, comme le souligne CatBull.

Pourrais tu me modifier la fonction CatBull pour prendre en compte cela ?
Et je te remercie car tu m'as bien dépatouillé =)

[jmfmarques]

Ah....
A toi de travailler un peu (vraiment un tout petit peu...)

Voyons : si ta chaine commence par un chiffre :
le premier caractère est un numérique, non ?
Si ta chaîne commence par une lettre , le 1er caractère n'est pas numérique..
Le reste est extrêmement facile à mettre en oeuvre :

Regarde Left dans l'aide en ligne (pour extraire et examiner ce 1er caractère et décider, selon sa nature, d'appliquer un code ou son inverse)

[t'djinn]

Okey tu as raison, je me suis laissé feignantisé :p

Pb résolu donc avec brio, merci aux forumeurs & a l'équie dev.com.

Cordialement, t'Djinn.

[zazaraignée]

C'est gentil d'avoir ajouté a mano le mot Resolu à ton titre, mais il y a un bouton prévu à cet effet juste en bas de ton dernier message. J'ai cliqué dessus pour toi. Mais penses-y la prochaine fois...