[VISUAL BASIC] pb de chaines Fermé

Question

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

klowlead · Answer

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

[VISUAL BASIC] pb de chaines

1 réponse

Discussions similaires