Discussion :

[OVR-101]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Public Chose() As String = {"Mot1", "Mot2"}
Public Chose2() As String = {"Mot3", "Mot4"}
Public Chose3() As String = {""}

Je voudrais additionner ces deux strings et les réunir dans une seule. Est que quelqu'un connait une manière simple? J'ai essayé mais je n'ai pas réussi. Ça deviendrait alors comme ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Public Chose() As String = {"Mot1", "Mot2"}
Public Chose2() As String = {"Mot3", "Mot4"}
Public Chose3() As String = {"Mot1", "Mot2", "Mot3", "Mot4"}

[Bob Langlade]

En réalité il s'agit plutôt de concaténer deux tableaux de string.
Voici une solution, mais il existe probablement une méthode plus directe.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
        Dim Chose() As String = {"Mot1", "Mot2"}
        Dim Chose2() As String = {"Mot3", "Mot4"}
        Dim Chose3(Chose.Length + Chose2.Length - 1) As String
        Dim i As Integer = 0
        For Each element As String In Chose
            Chose3(i) = element
            i += 1
        Next
        For Each element As String In Chose2
            Chose3(i) = element
            i += 1
        Next

[FRED.G]

Une variante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim Chose() As String = {"Mot1", "Mot2"}
Dim Chose2() As String = {"Mot3", "Mot4"}
Dim Chose3(Chose.Length + Chose2.Length - 1) As String
Chose2.CopyTo(Chose3, 0)
Chose.CopyTo(Chose3, 0)