Re: Acronyme
Publié : sam. 24/août/2019 13:42
Tout à fait d'accord.
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")
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 lettresMLD a écrit :Code : Tout sélectionner
If Len(mot.s)>3
sauf qu'un acronyme respecte certaines regles, le but n'est pas de pouvoir transformer n'importe qu'elle phrase en acronyme ...Ar-S a écrit :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 lettresMLD a écrit :Code : Tout sélectionner
If Len(mot.s)>3
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 filtresc'est pas la même chose...
"pour", "donc", "avec"... c'est litigieuxAr-S a écrit :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 lettresMLD a écrit :Code : Tout sélectionner
If Len(mot.s)>3
![]()