fusionner chaînes en alternant les lettres. Résolu/Fermé

Question

Bonjour, 
Je m'exerce à créer des fonctions, en ce moment j'essaie de créer une fonction qui me permettra de fusionner deux chaînes en alternant les lettres, par exemple si je saisie deux mots, le programme récupèrera la première lettre  de chaque mots pour les placées dans un tableau "res" et ainsi de suite jusq'à avoir parcouru les deux mots . 
Je ne sais pas si j'ai été  claire, voici un exemple:
caramel
bonbons
le résultat donnera ceci : cbaornabmoenls
quelqu'un pourrais me mettre sur la voie ?
 merci d'avance pour votre aide.

acive · Answer

Bonjour,
On veux bien, mais on a pas vu le début de ton code...

libellule123 · Answer

Bonsoir, merci de me répondre.
Pour le code j'avais débuté comme suis:
 Public Function fusion(ByVal mot1 As String, ByVal mot2 As String) As String
        
        Dim res As String = ""

For i = 0 To mot1.Length And mot2.Length - 1
            mot1 = mot1.Substring(0)
            mot2 = mot2.Substring(0)
            res = mot1 & mot2

Next
        Return res

End Function

je sais que le code n'est pas bon puisqu'il m'affiche même des lettres que je n'ai pas saisies.

   

jusqu'a présent je n'avais travailler que sur une chaîne comme le code qui suit :

 Public Function tri(ByVal lexie As String) As String

'On déclare la variable test qui est de type booleen qui prend la valeur "vraie".
        Dim Test As Boolean = True

'On déclare la variable res qui est de type chaîne.
        Dim res As String

'On déclare la variable car qui est de type caractère.
        Dim car As Char

'On affecte à res la valeur de "lexie"
        res = lexie

'booleen qui devient Vrai uniquement si le tri est correct.
        While Test = True

'On affecte à "test" la valeur "faux"
            Test = False

'boucle qui parcours le res tant que le booléen est à faux:

'Pour i allant de res à la longueur du mot -2 (pourquoi pas -1 simplement car la comparaison du tri d'effectue sur 2 céllules donc à la fin du tri on se retrouverai en dehors du tableau) 
            For i = 0 To res.Length - 2

'si la valeur de la cellule est supérieur à la cellule qui suit, les inverser:

'Tant que res de i est suppérieur à res de i+1 Alors
                If res(i) > res(i + 1) Then

'On affecte à car la valeur de res de i.
                    car = res(i)
                    res = res.Remove(i, 1)
                    res = res.Insert(i + 1, car)
                    Test = True
                End If
            Next
        End While
        Console.ReadLine()

Return res

Pour la fonction que je souhaite créer je ne sais pas par quoi commencer.


        EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI 

Merci d'y penser dans tes prochains messages.

Utilisateur anonyme · Answer

Bonsoir libellule123,

Je te propose cette solution : Fichier Excel 2007
que j'ai faite avant ton message #2.

Sur la feuille de calcul, tu verras 3 exemples ; et la fonction
est dans le Module1. Je te laisse adapter ton propre code
VBA selon ma fonction Alterner().

Regarde attentivement le problème du reliquat, quand une
chaîne de caractères est plus courte que l'autre.

Dis-moi ce que tu en penses, et si ça te convient. Si oui,
merci d'aller en haut de page pour cliquer sur le lien
« Marquer comme résolu ».

Cordialement.  &#x1F60A;

acive · Answer

Ta formule me pose problème...
Et si tu fais  :

Public Function fusion(ByVal mot1 As String, ByVal mot2 As String) As String
        Dim res As String = ""
        For i = 0 To mot1.Length -1
            res &= mot1.ToCharArray(i, 1) & mot2.ToCharArray(i, 1)
        Next
        Return res
    End Function


Ca fonctionne...
Mais que se passera-t-il quand le mot2 sera plus court que le mot1 ??? => Erreur...

acive · Answer

Re:
Oui pour moi c'est du VB.net avec une légère façon de réfléchir à la manière VB6

Le problème n'est pas pas du tout le langage de programmation, c'est plutôt la façon de réfléchir que se passera-il quand la longueur des deux mots seront différents?
Et d'ailleurs quel est le but concrètement?

Utilisateur anonyme · Answer

Bonsoir

ToCharArray sert à convertir toute la chaine en tableau de char si on a besoin de faire plein de chose avec un tableau de char.
C'est un peu long à l'exécution, donc dommage de le faire à chaque itération, pour optimiser le temps d'exécution (même si c'est peanuts) il est plus judicieux de convertir une fois les 2 tableaux et ensuite de travailler dessus.

Une autre option est d'utiliser la méthode Chars(Index) qui retourne uniquement le caractère à l'index demandé.

Comme acive le fait remarquer, il faut gérer les potentielles différences de taille.

Voici une solution

Public Function Fusion(ByVal Mot1 As String, ByVal Mot2 As String) As String
        'liste contenant les caractères mélangés, c'est moins contraignant qu'un tableau
        Dim debut As New List(Of Char)()
        
        Dim i As Integer
        'Mélange les lettres jusqu'à la fin du mot le plus court
        For i = 0 To Math.Min(Mot1.Length, Mot2.Length) - 1
            debut.Add(Mot1.Chars(i))
            debut.Add(Mot2.Chars(i))
        Next i

'ajoute la fin du mot le plus long s'il y a
        Dim fin As String = ""
        Select Case Math.Sign(Mot1.Length - Mot2.Length)
            Case 1 'Mot1 est le plus long
                fin = Mot1.Substring(i)

Case -1 'Mot2 est le plus long
                fin = Mot2.Substring(i)
        End Select

Return String.Join("", debut) & fin
    End Function

'testé avec
Dim toto As String = Fusion("bonjour", "1234567")
Dim tota As String = Fusion("bonjour", "123456789")
Dim toti As String = Fusion("bonjour", "12345")
 
 
Quand j'étais petit, la mer Morte n'était que malade.
George Burns

acive · Answer

Oui... il existe pas mal de façons de le faire...

Public Function Fusionne(ByVal a As String, ByVal b As String)
        Dim res As String = ""
        Dim mot1 As List(Of Char) = a.ToList
        Dim mot2 As List(Of Char) = b.ToList
        Dim i As Integer
        If mot2.Count > mot1.Count Then
            For i = 0 To mot1.Count - 1
                res &= mot1(i) & mot2(i)
            Next
            res &= b.Substring(i, b.Length - i)
        Else
            For i = 0 To mot2.Count - 1
                res &= mot1(i) & mot2(i)
            Next
            res &= a.Substring(i, a.Length - i)
        End If
        Return res
    End Function

Fusionner chaînes en alternant les lettres.

7 réponses

Discussions similaires