Paire et Impaire

Question

Quelle serait la meilleure fa&#231;on de d&#233;tecter si une cha&#238;ne de caract&#232;re est paire ou impaire. Les espace ne sont pas pr&#233;sent dans les cha&#238;nes, je le sp&#233;cifie car je ne sais pas si sa peu affecter la qualit&#233; du code.


 <?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" />


Merci de votre r&#233;ponse!

econs · Answer

Peux-tu rappeler ce qu'est une chaine de caract&#232;re paire STP ?




Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

cs_labout · Answer

Une chaine de caractère ne peut être paire ou impaire ??? si c'est la longeur de la chaine alors if len(chaine)/2 <> int(len(chaine) then msgbox impair" else msgbox "pair" endif et s'il faut oter les blancs c'est if len(replace(chaine," ",""))/2 <> int(len(replace(chaine," ","")) then labout

nitroptik · Answer

Labout a compris ce que je veux mais sa fonctionne pas!

Compile error:
Expected: )

Private Sub Command1_Click()
if len(text2.text)/2 <> int(len(text2.text) then
  MsgBox "impair"
Else
  MsgBox "pair"
End If
End Sub

???????????????

nitroptik · Answer

ok jai trouv&#233; lol

nitroptik · Answer

Dans les 2 cas la fonction me renvois un msgbox impaire :'(

cs_labout · Answer

Bizarre !! test1 = "salut mon pote" test2 = "salut ma pote" If Len(test2) / 2 <> Int(Len(test2) / 2) Then MsgBox "impair" Else MsgBox "pair" End If If Len(test1) / 2 <> Int(Len(test1) / 2) Then MsgBox "Impair" Else MsgBox "pair" End If et cela marche labout

Paire et Impaire

6 réponses

Discussions similaires