Séparation de chiffres et lettresRésolu

Question

Salut,
Je fais un logiciel et j'aurais besoin de pouvoir trier une chaine de caractère c'est à dire qu'il me faut savoir où sont les lettres.
Exemple : j'ai un code "512M" , il me faudrait récupérer le "M" dans une variable.
Ex. 2 : "38444P58" , idem je dois récupéré le "P"

Merci.

jrivet · Accepted Answer

Salut,
Ceci est un petit exemple en VB6 mais je pense qu'il est facilement transposable en .NET

Private Sub Form_Load() 
Dim Chaine As String 
Chaine =  "512M" 
MsgBox GetLettre(Chaine) 
Chaine = "38444P58" 
End Sub 

Private Function GetLettre(ByVal StrChaine As String) As String 
Dim Cara As String 
Dim i As Integer 
    'Boucle sur chaque caractere de la chaine
    For i = 1 To  Len (StrChaine) 
        'Isole le caractere
        Cara  = Mid(StrChaine, i, 1) 
        'TEste si le caractere est numerique
        If Not IsNumeric(Cara) Then 
            'Retourne le premier caractere non numérique
            GetLettre = Cara 
            Exit For 
        End If 
    Next 
End Function 

@+: Ju£i?n
Pensez: Réponse acceptée

Claude669 · Answer

Bonjour
Il y a peu etre plus élégant mais tu peux essayer ça 

Dim Valeur As string
Dim Car As String
Dim I as integer

Valeur = "38444P58"
For I= 1 To Len(Valeur)
    If Not IsNumeric(Mid(Valeur,I, 1)) Then Car = Mid(Valeur, I, 1): Exit For
Next I

cs_casy · Answer

Ou je pense que c'est un bon cas pour utiliser les expressions régulières.

Je maitrise pas assez, mais si un spécialiste passe par ici ......

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

jmfmarques · Answer

Private Sub Command1_Click()
  toto = "38444P58"
  MsgBox Left(Mid(toto, Len(Str(Val(toto)))), 1)
End Sub

jmfmarques · Answer

Ah...
Mais si ça commence par un 0 ? On l'aurait "in the baba !" !

Alors, vite une parade :

Private Sub Command1_Click()
  toto = "08444P58"
  toto = "1" & toto
  MsgBox Left(Mid(toto, Len(Str(Val(toto)))), 1)
End Sub

signé le cinglé !

ShiZZle971 · Answer

Merci beaucoup les gars

Séparation de chiffres et lettres

6 réponses

Votre réponse

Discussions similaires