[VISUAL BASIC] pb de chaines
klowlead
-
klowlead Messages postés 11 Statut Membre -
klowlead Messages postés 11 Statut Membre -
Salut ! petit exercice en vb... [VB6]
J'ai une chaîne initiale, que je veux éclater en deux chaînes, 1 chaine avec toutes les voyelles, et une autre avec toutes les consonnes. Mes voyelles sont stockées dans le tableau Tvoy.
J'ai déjà la partie concernant les voyelles (qui marche) , mais je n'arrive pas à trouver la partie Consonnes.
Est-ce que quelqu'un voit une solution ?
En vous remerciant.
'For i = 1 To longueurChaine
'
' pointeur = Mid(Chaine, i, 1)
'
' For j = 0 To 18
'
' If pointeur = Tvoy(j) Then
' ChaineVoyelles = ChaineVoyelles & pointeur
' End If
'
' Next
'
'Next
J'ai une chaîne initiale, que je veux éclater en deux chaînes, 1 chaine avec toutes les voyelles, et une autre avec toutes les consonnes. Mes voyelles sont stockées dans le tableau Tvoy.
J'ai déjà la partie concernant les voyelles (qui marche) , mais je n'arrive pas à trouver la partie Consonnes.
Est-ce que quelqu'un voit une solution ?
En vous remerciant.
'For i = 1 To longueurChaine
'
' pointeur = Mid(Chaine, i, 1)
'
' For j = 0 To 18
'
' If pointeur = Tvoy(j) Then
' ChaineVoyelles = ChaineVoyelles & pointeur
' End If
'
' Next
'
'Next
1 réponse
-
problème résolu... avec un select case : longueurChaine = Len(Chaine)
For i = 1 To longueurChaine
pointeur = Mid(Chaine, i, 1)
Select Case pointeur
Case Tvoy(0)
ChaineVoyelles = ChaineVoyelles & pointeur
Case Tvoy(1)
ChaineVoyelles = ChaineVoyelles & pointeur
Case Tvoy(2)
ChaineVoyelles = ChaineVoyelles & pointeur
Case Tvoy(3)
ChaineVoyelles = ChaineVoyelles & pointeur
Case Tvoy(4)
ChaineVoyelles = ChaineVoyelles & pointeur
Case Tvoy(5)
ChaineVoyelles = ChaineVoyelles & pointeur
Case Tvoy(6)
ChaineVoyelles = ChaineVoyelles & pointeur
Case Tvoy(7)
ChaineVoyelles = ChaineVoyelles & pointeur
Case Tvoy(8)
ChaineVoyelles = ChaineVoyelles & pointeur
Case Tvoy(9)
ChaineVoyelles = ChaineVoyelles & pointeur
Case Tvoy(10)
ChaineVoyelles = ChaineVoyelles & pointeur
Case Tvoy(11)
ChaineVoyelles = ChaineVoyelles & pointeur
Case Tvoy(12)
ChaineVoyelles = ChaineVoyelles & pointeur
Case Tvoy(13)
ChaineVoyelles = ChaineVoyelles & pointeur
Case Tvoy(14)
ChaineVoyelles = ChaineVoyelles & pointeur
Case Tvoy(15)
ChaineVoyelles = ChaineVoyelles & pointeur
Case Tvoy(16)
ChaineVoyelles = ChaineVoyelles & pointeur
Case Tvoy(17)
ChaineVoyelles = ChaineVoyelles & pointeur
Case Tvoy(18)
ChaineVoyelles = ChaineVoyelles & pointeur
Case Else
ChaineConsonnes = ChaineConsonnes & pointeur
End Select
Next
