Acronyme
Re: Acronyme
Tout à fait d'accord.
Microsoft Windows 10 Famille 64 bits : Carte mère : ASRock 970 Extreme3 R2.0 : Carte Graphique NVIDIA GeForce RTX 3080 : Processeur AMD FX 6300 6 cœurs 12 threads 3,50 GHz PB 5.73 PB 6.00 LTS (x64)
Un homme doit être poli, mais il doit aussi être libre !
Un homme doit être poli, mais il doit aussi être libre !
Re: Acronyme
Salut a tous
Allez pour rire ! Encore un peu plus court
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")
Re: Acronyme
Merci MLD, Je constate que tu n'as perdu ton humour.
Microsoft Windows 10 Famille 64 bits : Carte mère : ASRock 970 Extreme3 R2.0 : Carte Graphique NVIDIA GeForce RTX 3080 : Processeur AMD FX 6300 6 cœurs 12 threads 3,50 GHz PB 5.73 PB 6.00 LTS (x64)
Un homme doit être poli, mais il doit aussi être libre !
Un homme doit être poli, mais il doit aussi être libre !
Re: Acronyme
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 filtres c'est pas la même chose...
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Re: Acronyme
C'est le pourquoi, je n'avais utilisé que les majuscules, sinon pourquoi aurais-je fait deux filtres ???
Microsoft Windows 10 Famille 64 bits : Carte mère : ASRock 970 Extreme3 R2.0 : Carte Graphique NVIDIA GeForce RTX 3080 : Processeur AMD FX 6300 6 cœurs 12 threads 3,50 GHz PB 5.73 PB 6.00 LTS (x64)
Un homme doit être poli, mais il doit aussi être libre !
Un homme doit être poli, mais il doit aussi être libre !
Re: Acronyme
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 filtres c'est pas la même chose...
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 )
Site: http://michel.dobro.free.fr/
Devise :"dis moi ce dont tu as besoin, je t'expliquerai comment t'en passer"
Re: Acronyme
"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
http://HexaScrabble.com/
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Intel Core i7 4770 64 bits - GTX 650 Ti
Version de PB : 6.00 - 64 bits
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Intel Core i7 4770 64 bits - GTX 650 Ti
Version de PB : 6.00 - 64 bits
Re: Acronyme
@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
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
Re: Acronyme
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.
Microsoft Windows 10 Famille 64 bits : Carte mère : ASRock 970 Extreme3 R2.0 : Carte Graphique NVIDIA GeForce RTX 3080 : Processeur AMD FX 6300 6 cœurs 12 threads 3,50 GHz PB 5.73 PB 6.00 LTS (x64)
Un homme doit être poli, mais il doit aussi être libre !
Un homme doit être poli, mais il doit aussi être libre !
Re: Acronyme
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.
@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.
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Re: Acronyme
Entièrement d'accord.
Microsoft Windows 10 Famille 64 bits : Carte mère : ASRock 970 Extreme3 R2.0 : Carte Graphique NVIDIA GeForce RTX 3080 : Processeur AMD FX 6300 6 cœurs 12 threads 3,50 GHz PB 5.73 PB 6.00 LTS (x64)
Un homme doit être poli, mais il doit aussi être libre !
Un homme doit être poli, mais il doit aussi être libre !