PureBasic

Forums PureBasic
Nous sommes le Jeu 29/Oct/2020 23:43

Heures au format UTC + 1 heure




Poster un nouveau sujet Répondre au sujet  [ 26 messages ]  Aller à la page Précédente  1, 2
Auteur Message
 Sujet du message: Re: Acronyme
MessagePosté: Sam 24/Aoû/2019 13:42 
Hors ligne
Avatar de l’utilisateur

Inscription: Dim 02/Oct/2011 16:17
Messages: 2320
Localisation: 50200 Coutances
Tout à fait d'accord.

_________________
Microsoft Windows 10 Famille 64 bits : Carte mère : ASRock 970 Extreme3 R2.0 : Carte Graphique NVIDIA GeForce GT 640 : Processeur AMD FX 6300 6 cœurs 12 threads 3,50 GHz PB 5.72 LTS
Un homme doit être poli, mais il doit aussi être libre !


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Acronyme
MessagePosté: Sam 24/Aoû/2019 15:54 
Hors ligne

Inscription: Jeu 05/Fév/2009 17:58
Messages: 980
Salut a tous

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

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


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Acronyme
MessagePosté: Sam 24/Aoû/2019 16:59 
Hors ligne
Avatar de l’utilisateur

Inscription: Dim 02/Oct/2011 16:17
Messages: 2320
Localisation: 50200 Coutances
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 GT 640 : Processeur AMD FX 6300 6 cœurs 12 threads 3,50 GHz PB 5.72 LTS
Un homme doit être poli, mais il doit aussi être libre !


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Acronyme
MessagePosté: Sam 24/Aoû/2019 22:21 
Hors ligne
Avatar de l’utilisateur

Inscription: Dim 09/Oct/2005 16:51
Messages: 9027
MLD a écrit:
Code:
            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...

_________________
~~~~Règles du forum ~~~~
.: Ar-S :. Tour + portable W10 x64 PB 5.6x / 5.7x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Acronyme
MessagePosté: Dim 25/Aoû/2019 7:43 
Hors ligne
Avatar de l’utilisateur

Inscription: Dim 02/Oct/2011 16:17
Messages: 2320
Localisation: 50200 Coutances
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 GT 640 : Processeur AMD FX 6300 6 cœurs 12 threads 3,50 GHz PB 5.72 LTS
Un homme doit être poli, mais il doit aussi être libre !


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Acronyme
MessagePosté: Dim 25/Aoû/2019 8:44 
Hors ligne
Avatar de l’utilisateur

Inscription: Mar 31/Mai/2016 9:06
Messages: 2154
Ar-S a écrit:
MLD a écrit:
Code:
            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 )

_________________
Image
Image
Site: http://michel.dobro.free.fr/
Devise :"dis moi ce dont tu as besoin, je t'expliquerai comment t'en passer"


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Acronyme
MessagePosté: Dim 25/Aoû/2019 9:31 
Hors ligne
Avatar de l’utilisateur

Inscription: Mer 09/Nov/2005 9:53
Messages: 4191
Ar-S a écrit:
MLD a écrit:
Code:
            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:

_________________
http://HexaScrabble.com/
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Portable LENOVO ideapad 110-17ACL 64 bits
Version de PB : 5.70LTS - 32 bits


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Acronyme
MessagePosté: Dim 25/Aoû/2019 9:46 
Hors ligne

Inscription: Jeu 05/Fév/2009 17:58
Messages: 980
@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


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Acronyme
MessagePosté: Dim 25/Aoû/2019 10:11 
Hors ligne
Avatar de l’utilisateur

Inscription: Dim 02/Oct/2011 16:17
Messages: 2320
Localisation: 50200 Coutances
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 GT 640 : Processeur AMD FX 6300 6 cœurs 12 threads 3,50 GHz PB 5.72 LTS
Un homme doit être poli, mais il doit aussi être libre !


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Acronyme
MessagePosté: Dim 25/Aoû/2019 10:37 
Hors ligne
Avatar de l’utilisateur

Inscription: Dim 09/Oct/2005 16:51
Messages: 9027
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:

_________________
~~~~Règles du forum ~~~~
.: Ar-S :. Tour + portable W10 x64 PB 5.6x / 5.7x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Acronyme
MessagePosté: Dim 25/Aoû/2019 11:29 
Hors ligne
Avatar de l’utilisateur

Inscription: Dim 02/Oct/2011 16:17
Messages: 2320
Localisation: 50200 Coutances
Entièrement d'accord.

_________________
Microsoft Windows 10 Famille 64 bits : Carte mère : ASRock 970 Extreme3 R2.0 : Carte Graphique NVIDIA GeForce GT 640 : Processeur AMD FX 6300 6 cœurs 12 threads 3,50 GHz PB 5.72 LTS
Un homme doit être poli, mais il doit aussi être libre !


Haut
 Profil  
Répondre en citant le message  
Afficher les messages postés depuis:  Trier par  
Poster un nouveau sujet Répondre au sujet  [ 26 messages ]  Aller à la page Précédente  1, 2

Heures au format UTC + 1 heure


Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 9 invités


Vous ne pouvez pas poster de nouveaux sujets
Vous ne pouvez pas répondre aux sujets
Vous ne pouvez pas éditer vos messages
Vous ne pouvez pas supprimer vos messages

Rechercher:
Aller à:  

 


Powered by phpBB © 2008 phpBB Group | Traduction par: phpBB-fr.com
subSilver+ theme by Canver Software, sponsor Sanal Modifiye