Recherche de texte dans une variable

Bonjour a tous !
Je chercher a faire un logiciel qui serait diferend pour chaque version de windows, pour cela il me faut connaitre l'OS installer. J'utilise pour ca la variable :

Code:

---

My.Computer.Info.OSFullName

---

Mais comme cette variable me donne l'edition precise, avec la variation 32 et 64 bits, je voudrais eviter de faire plein de condition pour toutes les version (en anglais et dans toute les autre langue supporter par les OS), au risque d'en oublier une. J'ai essayer un :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

osname1 = "7" osname2 = "Vista"   For Each osname1 In osname osreal = "Vous avez Windows 7 !" & vbNewLine & "Your computer is compatible" Next   For Each osname2 In osname osreal = "You have Windows vista !" & vbNewLine & "Your computer is compatible" Next   MsgBox(osreal)

---

J'ai cru que ca marchais quand je n'avais que la partie avec windows 7 (j'ai windows 7), mais quand j'ai rajouter vista, il m'a indiquer que j'avais vista, j'ai donc conclus que il donnai le nom a la variable a chaque fois ...

Est il possible de rechercher dans une variable un texte particulier, ou plutot un mot clé, comme par exemple, "7", ou "vista"'

Meerci a toutes vos reponses !

Salut !

En regardant ton code, je suis pas sur que l'utilisation d'un "For Each" est bien pertinent. On utilise ça plus pour faire une boucle que pour tester une valeur.

En ce qui concerne ta question, tu peux utiliser:

Code:

---

osname.contains("32")

---

retourne un boolean

Donc je ferai plutôt:

Code:

---

1 2 3 4 5 6 7 8 9

If osname.contains("XP") = True Then   If osname.contains("32") = True   Msgbox ("Vous avez Windows XP 32 bits")   End If   End If

---

Avec des else etc etc

Citation:

---

Envoyé par Ninpa

Bonjour a tous !
Je chercher a faire un logiciel qui serait diferent pour chaque version de windows

---

pourquoi donc ?