Discussion :

[joquetino]

Bonsoir,

J'ai un ch'tit souci en VB6. J'ai une chaine quelconque, par exemple : "toto es 1989 ssss"
J'aimerai extraire de cette chaine le 3 ième mot, donc ici 1989.
Ai-je une fonction pour le faire?

Merci.

[AlainTech]

Et voila:

Code :

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

1
2
3
4
5
  Dim strChaine As String
  Dim arrTablo() As String
  strChaine = "toto es 1989 ssss"
  arrTablo = Split(strChaine, " ")
  MsgBox arrTablo(2) ' indice 2 = 3e position

[joquetino]

Et voila:

Code :

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

1
2
3
4
5
  Dim strChaine As String
  Dim arrTablo() As String
  strChaine = "toto es 1989 ssss"
  arrTablo = Split(strChaine, " ")
  MsgBox arrTablo(2) ' indice 2 = 3e position

Tout simplement. Merci beaucoup.