Discussion :

[excalybur]

Bonjour

Mon problème est de comparer tous les éléments de 3 caractères séparé par un espace dans 2 chaines.

Si tous les éléments de Chaine1 sont présent (même dans le désordre) dans Chaine2 alors retourner une valeur True.

ex 1 :

Chaine1 = "Ke1 Qc4 Rh2 Ra1 Ph5 Pg6 Pg3 Pf5 Pc6 Pb2"
Chaine2 = "Rh2 Ra1 Ph5 Pg6 Pg3 Pf5 Pc6 Pb2 Ke1 Qc4"

'résultat après comparaison des éléments :

ContenuChaine=true

ex 2 :

Chaine1 = "Ke1 Qc4 Rh2 Ra1 Ph5 Pg6 Pg3 Pf5 Pc6 Pb2"
Chaine2 = "Ra2 Ra1 Ph5 Pg6 Pg3 Pf5 Pc6 Pb2 Ke1 Qc4"

'résultat après comparaison des éléments => l'élément Ra2 de chaine2 n'est pas présent dans chaine1 :

ContenuChaine=false

Je n'arrive pas a écrire un algorithme pour résoudre ce quiz.

Pouvez-vous me proposer des idées.

En vous remerciant.

A+

[clementmarcotte]

Bonjour,

Tu SPLITtes tes deux chaînes sur l'espace, et tu as automatiquement deux tableaux de string() ====> String.split, méthode dans la recherche de la visionneuse d'aide

Tu itères un des tableaux et tu utiliises Contains pour vérifier si ton texte se trouve dans l'autre tableau ====> String.contains, méthode dans la recherche de la visionneuse d'aide.

Tu ajoutes 1 à un compteur si c'est là.

Si le compteur est égal au nombre d'éléments à la fin de la boucle c'est OUI; autrement c'est NON.

[excalybur]

Merci pour la réponse.

J'avais oublié Split.

Je vais m'y mettre et vous tiens au courant.

[excalybur]

Bonjour

Merci pour les tuyaux et voici le résultat.

Dans une form mettre un bouton et copier le code :

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
22
23
24
25
26
27
28
29
30
31
32
33
 
Public Class Form1
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        Dim s1 As String = "Ke1 Qc4 Rh2 Ra1 Ph5 Pg6 Pg3 Pf5 Pc6 Pb2"
        Dim s2 As String = "Rh5 Rh2 Ra1 Ph5 Pg6 Zh8 Pg3 Pf5 Pc6 Pb2 Ke1 Qc4 Xc4"   ' ou "Rh2 Ra1 Ph5 Pg6 Pg3 Pf5 Pc6 Pb2 Ke1 Qc4" pour le prochain test
        Dim s3(25) As String
        Dim s4 As String = ""
        Dim s5 As String = ""
        Dim Counts1 As Integer = 0
        Dim Counts2 As Integer = 0
        Dim Counts2Compatible As Integer = 0
 
        'Compte le nombre total d'éléments des chaines s1 et s2 + Compte le nombre d'éléments de s2 présent dans s1 et les affiches un par un dans Msgbox
        For n = 0 To 15
            s4 = Mid(s1, 1 + 4 * n, 3)
            If s4 <> "" Then Counts1 = Counts1 + 1
            s5 = Mid(s2, 1 + 4 * n, 3)
            If s5 <> "" Then Counts2 = Counts2 + 1
            s3(n) = Mid(s2, 1 + 4 * n, 3)
            If s3(n) <> "" And s1.Contains(s3(n)) = True Then Counts2Compatible = Counts2Compatible + 1 : MsgBox(s3(n) + " est dans la chaine s1 : " + s1 + "  et la chaine s2 : " + s2 + Chr(13) + Chr(10) + "Compteur chaine s2 = " + Str(Counts2Compatible))
        Next n
 
  'dernier MsgBox pour vérifier si s1 et compatible avec s2
 
        If Counts1 = Counts2Compatible And Counts1 = Counts2 Then
            MsgBox("Chaines compatibles")
        ElseIf Counts1 <> Counts2Compatible Or Counts1 <> Counts2 Then
            MsgBox("Chaines non compatible")
        End If
    End Sub
End Class

Si l'on remplace la chaine s2 par "Rh2 Ra1 Ph5 Pg6 Pg3 Pf5 Pc6 Pb2 Ke1 Qc4" le résultat final sera "Chaines compatibles".

CQFD !