separer une chaine de car en deux chainesRésolu

Question

bonjour,
 
j'ai une chaine de caracteres composée de deux mots séparés par un espace (impérativement), je voudrais obtenir deux variables string, exemple :

"le chien" et je veux obtenir "le" et "chien"

merci

econs · Accepted Answer

Dim tablo() As String

tablo=Split("le chien"," ",,vbTextCompare)

Tu obtiens alors :
tablo(1) = "Le"
tablo(2) = "chien"

Et si tu avais tapé 
tablo=Split("le chien veut attraper le chat"," ",,vbTextCompare)
tu aurais obtenu :

tablo(1) = "Le"
tablo(2) = "chien"
tablo(3) = "veut"
tablo(4) = "attraper"
tablo(5) = "le"
tablo(6) = "chat"

Manu

pcpunch · Answer

Le split est une bonne solution, mais tu peu aussi le faire plus simplement si ta variable contient autamtiquement 2 mots separés par un espace :

Dim Ligne As String, Mot1 As String, Mot2 As String
Ligne = "le chien"

Mot1 = Left(Ligne, InStr(Ligne, " ") - 1)
Mot2 = Right(Ligne, InStr(Ligne, " ") + 2)

++

crenaud76 · Answer

pcpunch < Il faudrait vraiment que tu me donnes ta définition du mot "Simple" !! Car entre le code de econs et le tien, je trouve le sien bien plus simple !!!!

Christophe R.

allowen · Answer

je suis d'accord avec christophe r, la source d'econs est plus simple mais bon les deux fonctionnent et peuvent m'aider et c'est ça le plus important, je vous remercie tous les deux pour votre aide

@+

pcpunch · Answer

Je voulais simplement eviter de lui faire utliser un tableau (comme allowen apparement debute!!!), mais le resultat et le mm c une autre solution!!!

Dsl de t'avoir froissé crenaud76!!!!! :)

crenaud76 · Answer

Tu ne m'as pas froissé du tout ! C'est juste que cela m'a interpelé, voila tout !!

Christophe R.

Separer une chaine de car en deux chaines

6 réponses

Discussions similaires