comparer 2 chaines de String

Bonsoir,

j'ai dans une textbox des données qui apparaissent régulièrement, reçu par le port série,

et je souhaiterais lorsque une valeur spécifique apparaissent, déclenché une événement (lire un fichier son)

donc pour ce faire, j'ai placé dans un timer mon code :

Code:

---

1 2 3 4 5

If TextBox1.Text = "FPT" Then Player.URL = ".../FPT.mp3" Player.settings.volume = 90 Player.controls.play() End If

---

pas de soucis, ca fonctionne si le FPT est seul dans la textbox, mais il arrive que du texte ce trouve avant et après 'FPT' ! et là ca ne fonctionne pas, dans ce cas comment comparer les deux chaines de string?

Code:

---

If TextBox1.Text.Contains("FPT") Then

---

merci mais j'ai opté pour cette solution :

Code:

---

1 2 3 4 5 6

If InStr(1, TextBox1.Text, "FPT") > 0 Then Player.URL = "...\fpt.mp3" Player.settings.volume = 90 Player.controls.play() End If

---

Bah ça marche aussi, mais niveau lisibilité c'est vraiment pas top...

En lisant cette instruction :

Code:

---

TextBox1.Text.Contains("FPT")

---

on comprend tout de suite ce qu'elle fait, alors que celle là :

Code:

---

InStr(1, TextBox1.Text, "FPT") > 0

---

c'est nettement moins évident...

En plus, InStr est une fonction hérité de VB6, qui n'existe que pour maintenir la compatibilité du code existant. Normalement on n'est plus supposé l'utiliser dans du "nouveau" code...