Page 2 sur 2

Re: Acronyme

Publié : sam. 24/août/2019 13:42
par Micoute
Tout à fait d'accord.

Re: Acronyme

Publié : sam. 24/août/2019 15:54
par MLD
Salut a tous

Allez pour rire ! Encore un peu plus court :lol:

Code : Tout sélectionner

Procedure.s Acronyme2(Text.s)      
      es= CountString(Text.s," ")+1
      For i=1 To es
            mot.s=StringField(text.s,i," ")
            If Len(mot.s)>3
             acro.s = acro.s + UCase(Left(mot.s,1)) + "."
            EndIf            
      Next i      
      ProcedureReturn acro.s      
EndProcedure
Debug Acronyme2("Nouvel institut national des jeunes aveugles") 
; ou en Normandie dans le pays de Vire
Debug Acronyme2("Ecole national des andouilles") 

Re: Acronyme

Publié : sam. 24/août/2019 16:59
par Micoute
Merci MLD, Je constate que tu n'as perdu ton humour.

Re: Acronyme

Publié : sam. 24/août/2019 22:21
par Ar-S
MLD a écrit :

Code : Tout sélectionner

            If Len(mot.s)>3
C'est effectivement une solution qui aura tout de même des failles car là on considère qu'il ni a pas de mots commun de moins de 4 lettres ;)

Or si on utilise l'acronyme de "Décidement une ame reste une ame"
On obtient "DR" alors qu'en filtrant plus précisément on obtient "DARA" ou autre selon les filtres ;) c'est pas la même chose...

Re: Acronyme

Publié : dim. 25/août/2019 7:43
par Micoute
C'est le pourquoi, je n'avais utilisé que les majuscules, sinon pourquoi aurais-je fait deux filtres ???

Re: Acronyme

Publié : dim. 25/août/2019 8:44
par Zorro
Ar-S a écrit :
MLD a écrit :

Code : Tout sélectionner

            If Len(mot.s)>3
C'est effectivement une solution qui aura tout de même des failles car là on considère qu'il ni a pas de mots commun de moins de 4 lettres ;)

Or si on utilise l'acronyme de "Décidement une ame reste une ame"
On obtient "DR" alors qu'en filtrant plus précisément on obtient "DARA" ou autre selon les filtres ;) c'est pas la même chose...
sauf qu'un acronyme respecte certaines regles, le but n'est pas de pouvoir transformer n'importe qu'elle phrase en acronyme ...
mais une succession de mots ....

URSS " Union des républiques socialistes "
USA "United States of America"
HLM "Habitation à loyer modéré"
RSA "Revenu de solidarité active"

pour tout ces cas , mon code fonctionne ;)

trouve moi un cas connu , pour lequel mon code ne fonctionne pas , et on en reparle :) (a part URSSAF qui ne tiens pas compte du mot "recouvrement")

etc ....
l'acronyme n'est pas un moyen de coder une phrase litéraire quelconque , mais bien un moyen mnémotechnique pour citer ou se rappeler , un sigle ...
en l'etat, je pense que ça fonctionne la plupart du temps
on peut facilement ajouter un filtre sur les Majuscules , si on veux .... bref ...

RAPPEL ; il s'agit de MON code :mrgreen: ;) (MLD a juste oublié de me citer )

Re: Acronyme

Publié : dim. 25/août/2019 9:31
par SPH
Ar-S a écrit :
MLD a écrit :

Code : Tout sélectionner

            If Len(mot.s)>3
C'est effectivement une solution qui aura tout de même des failles car là on considère qu'il ni a pas de mots commun de moins de 4 lettres ;)
"pour", "donc", "avec"... c'est litigieux :wink:

Re: Acronyme

Publié : dim. 25/août/2019 9:46
par MLD
@Zorro
C'est tellement évident que c'est ton code :lol: :roll:
Pour la pêne fait donc l’acronyme de Association nationale des utilisateurs de savons. :oops: :oops: :mrgreen:
Plus sérieusement ça coince aussi avec ceci par exemple l'
Dans mon exemple précédent j'aurais du écrire école nationale de l'andouille

Re: Acronyme

Publié : dim. 25/août/2019 10:11
par Micoute
Pour rappel, je signale que c'est moi qui ai créé ce code et il date des années 80 et je mets en majuscules les lettres qui formeront l'acronyme.

Re: Acronyme

Publié : dim. 25/août/2019 10:37
par Ar-S
Un code aussi basic existe depuis belle lurette.
@Zorro, oui, tu prends acronyme au sens strict. Je te l'accord comme ça ça marche, mais vu les exemples de Micoute, 'NINJA', 'FLIC' je préfère donner une solution avec plus de souplesse.
Maintenant je crois qu'il y a toutes les solutions possible dans ce topic. C'est bien ce qui compte. :wink:

Re: Acronyme

Publié : dim. 25/août/2019 11:29
par Micoute
Entièrement d'accord.