Les Snippets

Connexion

Accorder le singulier pluriel d'un ensemble de mots à une quantité

Niveau requis pour utiliser/comprendre cette source : 1 ( Débutant )
Créé le 23/04/2006 18:28:41 et initié par PCPT [Liste]
Date de mise à jour : 23/04/2006 19:42:45
Vue : 8112
Catégorie(s) : Chaîne de caractères
Langages dispo pour ce code :
- VB6, VBA
- PHP 3, PHP 4, PHP 5
- SQL, SQL 2005
- Voir tous les langages pour ce code snippet



Langage : VB6 , VBA
Date ajout : 23/04/2006
Posté par PCPT [Liste]
Private Function SetSingPlur(lNumber As LongByVal sString As StringAs String 
    sString = Replace(sString, "#NB#", CStr(lNumber)) 
    SetSingPlur = Replace(sString, "#SS#", IIf(lNumber < 2, vbNullString, "s")) 
End Function 
'   EXEMPLE D'UTILISATION
'
Private Sub Command1_Click() 
    MsgBox SetSingPlur(1, "#NB# message#SS# reçu#SS#") 
    MsgBox SetSingPlur(8, "#NB# message#SS# reçu#SS#") 
End Sub

Snippets en rapport avec : Accorder, Remplacer, Singulier, Pluriel, Accord



Codes sources en rapport avec : Accorder, Remplacer, Singulier, Pluriel, Accord

{Flash} MODIFIER LES APOSTROPHES ET AUTRES CARACTÈRES MADE IN WORD DANS FLASH
Bonjour après avoir un peu trop cherché sur les pages de mon navigatuer pour trouver une solution af...

{Javascript / DHTML} REMPLACER PLUSIEURS MOTS ET CARACTÈRES DANS UN CHAMP
Voici comment remplacer plusieurs mots différents et caractères spéciaux également dans un champ ou...

{Javascript / DHTML} REMPLACER UN MOT DANS UNE CHAINE
Bonjour, N'aimant pas travailler avec les expressions régulières sous javascript, voici une fonct...

{Javascript / DHTML} RECHERCHE ET REMPLACEMENT DE MOT INTERDIT SUR VALIDATION DE FORMULAIRE
La sécurité sur serveur quand elle est activé ne permet pas l'envoi des données si celuis-ci inclu u...

{Javascript / DHTML} RECHERCHER ET REMPLACER UN MOT DANS UN TEXTE
Un script de recherche des mots d'un texte, sur la base d'une source trouvée sur ce site. Simplifié ...

{ColdFusion} RECHERCHER/REMPLACER
Bonjours à tous, Venant du php, j'ai decouvert avec enthousiasme coldfusion remplis de balise super...

{IRC} RANDOM REPLACE
le replace habituel ne remplace les lettres ou mots que par 1 remplacant cette source permet de def...

{Javascript / DHTML} REMPLACER LES "TITLE" PAR DES POPUPS
Ce script permet de remplacer les attribut "title" sur tous les éléments de la page par une popup st...

{ASP / ASP.NET} FONCTION : REMPLACER LES CARRACTÈRES ACCENTUÉS PAR LEUR ÉQUIVALENT NON ACCENTUÉS D'UN TEXTE GRÀCE À STRTR, FONCTION SIMILAIRE À CELLE DE PHP
Comme l'indique le titre, cette fonction permet la suppression des accents dans un texte. Je devais ...

{Visual Basic, VB6, VB.NET, VB 2005} [VBA-EXCEL] MODIFICATEUR DE FICHIER EXCEL
Bonjour, Voici un petit programme en VBA permettant de trouver tous les fichiers excel à l'endroi...