Problème d'utilisation de la fonction MID

**audrey1912** · 29/07/2011, 09h19

Bonjour,

Dans le cadre du développement de mon application, je vais chercher une donnée sur une base via une requête SQL. Puis, je dois en extraire le troisième caractère. Je dois ensuite écrire "OUI" dans ma liste déroulante si le caractère est à 1 et "NON" si le caractère est à 0. J'ai donc écrit le code suivant.

Code :

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

1
2
3
4
If (Mid((RsUser("type_acces")),3,1) = 0) Then
        response.write "<tel_rep>" & "NON" & "</tel_rep>"
Else response.write		"<tel_rep>" & "OUI" & " </tel_rep>"
End If

Mais peut importe la valeur du troisième caractère qu'il extrait de la donnée, il écrit toujours "NON".

Si quelqu'un peut m'aider, je suis preneuse.

Merci d'avance.

**SfJ5Rpw8** · 29/07/2011, 09h28

bonjour ... , mid retourne une chaine de caractère, compare son retour avec une chaine de caractère en plaçant 0 entre "" : ..1) = "0")

**audrey1912** · 29/07/2011, 09h39

Non, rien à faire cela ne fonctionne toujours pas.

**tumoo** · 29/07/2011, 09h44

Salut

Audrey, tu as la mémoire courte non ?

Regarde ton topic et nos 2 dernières réponses

http://www.developpez.net/forums/d10...x/#post6024009

**audrey1912** · 29/07/2011, 09h50

En effet, cela fonctionnait, jusqu'à ce que l'on me dise que finalement ils souhaitent une liste déroulante à la place de la textbox.

**tumoo** · 29/07/2011, 09h58

Et tu as bien vu que pour avoir le troisième caractère, c'est 2 et pas 3 en paramètre de la fonction Mid() ?
Mid((RsUser("type_acces")),2,1)

Et si tu affiche ton Mid((RsUser("type_acces")),2,1), tu as quoi ?

**audrey1912** · 29/07/2011, 10h37

Cela m'affiche bien la bonne donnée, 0 quand il est dans le répertoire et 1 quand il ne l'est pas....
Cela doit venir de ma liste déroulante dans ce cas. Je l'ai codé comme suit :

Code :

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

1
2
3
4
<select name="txtBxRep_Tel" >
     <option value="OUI"> OUI </option>
     <option value="NON"> NON </option>
</select>

**tumoo** · 29/07/2011, 10h42

Je ne vois pas le rapport entre ta liste déroulante et le reste

**audrey1912** · 29/07/2011, 10h45

Comme cela ne marche pas je pensais que cela venait de la construction de ma liste déroulante.

**tumoo** · 29/07/2011, 10h49

Bah peut être mais quel est le rapport entre ça

Code :

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

1
2
3
4
If (Mid((RsUser("type_acces")),3,1) = 0) Then
        response.write "<tel_rep>" & "NON" & "</tel_rep>"
Else response.write		"<tel_rep>" & "OUI" & " </tel_rep>"
End If

et ça ?

Code :

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

1
2
3
4
<select name="txtBxRep_Tel" >
     <option value="OUI"> OUI </option>
     <option value="NON"> NON </option>
</select>

**audrey1912** · 29/07/2011, 10h58

En fait c'est une fiche qui se remplie dynamiquement donc je le fais via un js :

Code :

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

1
2
3
4
5
var tel_rep=docXML.documentElement.childNodes[1].childNodes[6].firstChild.nodeValue;
 
[...]
 
document.frm_agents.txtBxRep_Tel.value=tel_rep;

**tumoo** · 29/07/2011, 11h03

Donc quand tu modifie ton select

Code :

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

1
2
3
4
<select name="txtBxRep_Tel" >
     <option value="OUI"> OUI </option>
     <option value="NON"> NON </option>
</select>

ça enregistre oui ou non dans ta base de données, mais je ne vois toujours pas le rapport avec ton problème initial qui est de récupérer le 3ème caractère d'une chaine, que si il est égal à 0, on affiche quelque chose et si il est différent, on affiche autre chose

**audrey1912** · 29/07/2011, 11h07

Si la valeur du Mid est 0 cela veut dire que l'agent est visible dans le répertoire téléphonique donc il faut mettre la liste déroulante à OUI (car il est affiché). Si la valeur du Mid est 1 cela veut dire que l'agent ne doit pas être visible dans le répertoire téléphonique donc il faut mettre la liste déroulante à NON (car il est n'est, alors, pas affiché).

**tumoo** · 29/07/2011, 11h10

Tu as essayé d'utiliser CInt() ?

Code :

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

1
2
3
4
5
 
If (CInt(Mid((RsUser("type_acces")),3,1)) = 0) Then
        response.write "<tel_rep>" & "NON" & "</tel_rep>"
Else response.write		"<tel_rep>" & "OUI" & " </tel_rep>"
End If

**audrey1912** · 29/07/2011, 11h13

Je ne connaissais pas. Il passe quand même toujours dans la boucle où il doit afficher "NON".

**tumoo** · 29/07/2011, 11h21

donc ton

Code :

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

1
2
 
Response.Write CInt(Mid((RsUser("type_acces")),2,1))

t'affiche bien 0

c'est pas ce que tu veux ?

**pitchalov** · 29/07/2011, 14h20

Si le problème n'est pas dans la fonction Mid ou dans ton test If Else alors elle se situe peut-être ailleurs...
As-tu un "On Error Resume Next" quelque part, genre dans ta fonction RsUser, qui pourrait te cacher une erreur ?

C'est peut-être un fausse piste, mais ça peut être le cas quand les tests If Else se comportent bizarrement.
Bonne continuation.

**audrey1912** · 01/08/2011, 09h05

Bonjour,

Je vais d'abord répondre à pitchalov car la réponse va être simple.

Tout d'abord, merci pour ton idée, car je n'avais pas pensé à vérifier de nouveau cette histoire de "On Error Resume Next".
Mais j'en avais déjà fait la chasse et il n'y en a plus à l'horizon.

Pour tumoo :

Quand l'affichage est en TextBox il m'affiche bien ce que je souhaite obtenir. C'est à dire : il écrit "OUI" quand la valeur est à 0, et "NON" quand la valeur est à 1. Mais dès que je passe en menu déroulant, il passe dans le if et jamais dans le else. Donc il m'affiche, à chaque fois, "NON".

**tumoo** · 01/08/2011, 09h58

Je vois pas trop d'où vient ton problème
J'ai fait des tests de mon côté

Code asp :

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
 
a="1001010"
b="0110101"
 
If (Mid((a),3,1) = "0") Then 
    Response.write "Non" 
Elseif (Mid((a),3,1) = "1") Then 
    Response.write "Oui" 
else 
    Response.write "Autre" 
End If 
 
Response.write "<br />"
 
If (Mid((b),3,1) = "0") Then 
    Response.write "Non" 
Elseif (Mid((b),3,1) = "1") Then 
    Response.write "Oui" 
else 
    Response.write "Autre" 
End If

J'ai bien le bon résultat d'affiché.

Par contre pour le 3ème caractère, c'est 3 et non 2 en paramètre de Mid() comme je l'ai dit

J'ai testé plusieurs syntaxes

Code asp :

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

1
2
3
4
5
 
(Mid((b),3,1) = 0)
(Mid((b),3,1) = "0")
(Cint(Mid((b),3,1)) = 0)
(Cint(Mid((b),3,1)) = "0")

Les 4 syntaxes me donnent le bon résultat

**audrey1912** · 01/08/2011, 16h30

Bonjour,

ça y est j'ai enfin réglé mon soucis.
C'était, comme toujours, une erreur à la con, i.e. un espace en trop.
En effet, j'avais écrit :

Code :

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

1
2
3
4
If (CInt(Mid((RsUser("type_acces")),3,1)) = 0) Then
        response.write "<tel_rep>" & "NON" & "</tel_rep>"
Else response.write		"<tel_rep>" & "OUI" & " </tel_rep>"
End If

Et c'est donc :

Code :

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

1
2
3
4
If (CInt(Mid((RsUser("type_acces")),3,1)) = 0) Then
        response.write "<tel_rep>" & "NON" & "</tel_rep>"
Else response.write		"<tel_rep>" & "OUI" & "</tel_rep>"
End If

Problème d'utilisation de la fonction MID

VBScript

Discussions similaires

Partager

Partager