 | Start a set with this search |
 | Include this search in one of my sets |
 | Exclude this search from one of my sets |
 | Permalink to these results Paste this link in email or IM: |
 | Atom feed for tracking future search results Paste this URL into your reader: |
10 messages in org.openoffice.fr.progRe: [prog] test d'égalité| From | Sent On | Attachments |
|---|---|---|
| Bernard Siaud alias Troumad | Sep 3, 2007 5:12 am | |
| Serge LE LOUARNE | Sep 3, 2007 5:32 am | |
| Bernard Siaud alias Troumad | Sep 3, 2007 5:58 am | |
| Florent Manens | Sep 3, 2007 6:06 am | |
| Laurent Godard | Sep 3, 2007 6:12 am | |
| steve | Sep 3, 2007 6:12 am | |
| Bernard Siaud alias Troumad | Sep 3, 2007 9:34 am | |
| Bernard Siaud alias Troumad | Sep 3, 2007 9:52 am | |
| Bernard Siaud alias Troumad | Sep 3, 2007 10:00 am | |
| Francois Gatto | Sep 3, 2007 10:57 am |
| Permalink for this message Paste this link in email or IM: |
| Permalink for this thread Paste this link in email or IM: |
| Atom feed for this thread Paste this URL into your reader: |
| Subject: | Re: [prog] test d'égalité | Actions... |
|---|---|---|
| From: | Bernard Siaud alias Troumad (lis...@siaud.org) | |
| Date: | Sep 3, 2007 10:00:11 am | |
| List: | org.openoffice.fr.prog | |
Laurent Godard a écrit :
Bonjour Bernard
Florent Manens a écrit :
Florent t'a probablement donné la reponse il nous faudrait le code de la fonction maj()
Function maj(l1 as String) as String if l1="" then rem si l est vide, il faut le traiter avant sous peine d'erreur maj="" else if Asc(l1)>Asc("Z") then rem si le code ascii de l est suppérieur à celui de Z comme les minuscules l1=Chr$(Asc(l1)-Asc("a")+Asc("A")) rem conversion minuscule -> MAJUSCULE endif if Asc(l1)>Asc("Z") then rem si la consersion a ratée ou si le code ASCII de l était déjà plus petit que A maj="0" elseif Asc(l1)<Asc("A") then maj="0" rem on met le code d'erreur dans maj pour le retour else maj=l1 rem l étant une majuscule, on le met dans maj pour le retour endif endif end Function
J'ai mis et là, je perds la variable l dans *if l2<>maj(l) then* !
Function maj(l as String) as String dim l1 as string l=l1 if l1="" then rem si l est vide, il faut le traiter avant sous peine d'erreur maj="" else if Asc(l1)>Asc("Z") then rem si le code ascii de l est suppérieur à celui de Z comme les minuscules l1=Chr$(Asc(l1)-Asc("a")+Asc("A")) rem conversion minuscule -> MAJUSCULE endif if Asc(l1)>Asc("Z") then rem si la consersion a ratée ou si le code ASCII de l était déjà plus petit que A maj="0" elseif Asc(l1)<Asc("A") then maj="0" rem on met le code d'erreur dans maj pour le retour else maj=l1 rem l étant une majuscule, on le met dans maj pour le retour endif endif end Function
si tu modifies c dans cette fonction, alors ton probleme est là deux solutions
- Function maj(byval c) - bofbof beurk - ne pas utiliser c comme variable de travail dans maj
Laurent
-- Amicalement vOOotre, Troumad Alias Bernard SIAUD, http://troumad.org N'envoyez que des documents avec des formats ouverts, comme http://fr.openoffice.org Adresse electronique speciale liste