Problème XOR qui réagit comme un OR

**Pymm** · 12/10/2005, 13h33

Bonjour à tous,
J'ai un petit souci avec un XOR qui se comporte comme un OR

voilà en gros le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
NF=Request.Form("Nom_fournisseur")
TF=Request.Form("Telephone_fournisseur")
VF=Request.Form("Ville_fournisseur")
CF=Request.Form("Cp_fournisseur")
FF=Request.Form("Fax_fournisseur")
Response.Write "<SCRIPT LANGUAGE=""JavaScript1.2"">" & chr(10)
Response.Write "   alert('NF=" & (NF<>"") &" TF=" & (TF<>"") &" VF=" & (VF<>"") & " CF=" & (CF<>"") & " FF=" & (FF<>"") & "');" & chr(10)
Response.Write "</SCRIPT>" & chr(10)
If NF<>"" Xor TF<>"" Xor VF<>"" Xor CF<>"" Xor FF<>"" Then
      Response.Write "<SCRIPT LANGUAGE=""JavaScript1.2"">" & chr(10)
      Response.Write "   alert('je passe');" & chr(10)
      Response.Write "</SCRIPT>" & chr(10)
...
End If

Le problème c'est que si j'ai plusieurs de mes conditions à vrai il me lance le alert('je passe')
Ce n'est pas la seule page où j'utilise cette syntaxe mes apparemment c'est la seule qui pose problème.
Si quelqu'un voit le problème...d'avance merci

**thor22** · 12/10/2005, 15h14

Est-ce que ceci aide?

Code :

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

If ((NF<>"") Xor (TF<>"") Xor (VF<>"") Xor (CF<>"") Xor (FF<>"")) Then

**Pymm** · 12/10/2005, 15h29

non, j'y comprends rien

**thor22** · 12/10/2005, 15h44

J'ai essayer ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
<html>
<body>
<%
NF="" 
TF="" 
VF="" 
CF="Text1" 
FF="Text2" 
Response.Write "<SCRIPT LANGUAGE=""JavaScript1.2"">" & chr(10) 
Response.Write "   alert('NF=" & (NF<>"") &" TF=" & (TF<>"") &" VF=" & (VF<>"") & " CF=" & (CF<>"") & " FF=" & (FF<>"") & "');" & chr(10) 
Response.Write "</SCRIPT>" & chr(10) 
If NF<>"" Xor TF<>"" Xor VF<>"" Xor CF<>"" Xor FF<>"" Then 
      Response.Write "<SCRIPT LANGUAGE=""JavaScript1.2"">" & chr(10) 
      Response.Write "   alert('je passe');" & chr(10) 
      Response.Write "</SCRIPT>" & chr(10) 
else
	response.write "false"
End If
 %>
</body>
</html>

Et ça fonctionne, il n'y a pas de problème, ça ne passe pas...

**Pymm** · 12/10/2005, 15h53

Ben sur mes autres pages y a pas de problème c'est la première fois que ça ne marche pas

**thor22** · 12/10/2005, 16h01

Effectivement, c'est bizarre...
As-tu essayer de formatter ton ordi, pour voir??
(je blague!)

Est-il possible de voir le code complet de ta page?

**Pymm** · 12/10/2005, 17h02

Avant d'en arriver a cette extrémité

je vais tester un redémarrage sur serveur ce soir cela m'a déjà résolu des souci...

**franculo_caoulene** · 12/10/2005, 18h18

Je ne me souviens plus trop bien mais imaginons que toutes tes variables sont à true ça donnerait comme cheminement dans ta condition de gauche à droite :
true XOR true = false
false XOR true = true
true XOR true = false
false XOR true = true
alors "je passe" (tout ça à tester)

Il faudrait plutot tester toutes les valeurs individuellement et mettre un flag = true dès qu'on a une valeur.

**Pymm** · 13/10/2005, 09h24

Bon voilà ça marche maintenant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 Dim TAB_OK(5)
   TAB_OK(1)=NF
   TAB_OK(2)=TF
   TAB_OK(3)=VF
   TAB_OK(4)=CF
   TAB_OK(5)=FF
   ind_tab=0
   i=0
 
   While i=<1 And ind_tab<Ubound(TAB_OK)
      If TAB_OK(ind_tab)<>"" Then       
      	i=i+1      	
      End If
      ind_tab=ind_tab+1
   Wend
   If i=1 Then
   	  OK_Rech=true
   Else
   	  OK_Rech=false
   End If	
 
   If OK_Rech Then...