Acronyme

[Micoute]

Tout à fait d'accord.

[MLD]

Salut a tous

Allez pour rire ! Encore un peu plus court

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") 

[Micoute]

Merci MLD, Je constate que tu n'as perdu ton humour.

[Ar-S]

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...

[Micoute]

C'est le pourquoi, je n'avais utilisé que les majuscules, sinon pourquoi aurais-je fait deux filtres ???

[Zorro]

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 (MLD a juste oublié de me citer )

[SPH]

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

[MLD]

@Zorro
C'est tellement évident que c'est ton code
Pour la pêne fait donc l’acronyme de Association nationale des utilisateurs de savons.
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

[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.

[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.

[Micoute]

Entièrement d'accord.