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 : 18995
Catégorie(s) : Chaîne de caractères
Langages dispo pour ce code :
- VB6, VBA
- PHP 3, PHP 4, PHP 5
- SQL, SQL 2005



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
Langage : PHP 3 , PHP 4 , PHP 5
Date ajout : 23/04/2006
Posté par FhX [Liste]
<?php
function SetSingPlur ( $num, $string ) {
 if ( $num > 1 ) {
      $string = str_replace('#SS#', 's', $string);
 } else {
      $string = str_replace('#SS#', '', $string);
 }
 $string = str_replace('#NB#', $num, $string);
 return $string;
}
?>
<?php
// Utilisation :
 echo SetSingPlur ( 1, '#NB# message#SS# recu#SS#');
 echo SetSingPlur ( 10, '#NB# message#SS# recu#SS#');
?>

Langage : SQL , SQL 2005
Date ajout : 31/05/2006
Posté par fabrice69 [Liste]

DECLARE @CHAINE AS VARCHAR(500)
DECLARE @NB AS INT

SET @CHAINE = '#NB# message#SS# recu#SS#'

SET @NB = 10

SELECT 
 CASE
 WHEN
  @NB > 1 THEN REPLACE(REPLACE(@CHAINE, '#SS#', 's'), '#NB#', @NB)
 ELSE
  REPLACE(REPLACE(@CHAINE, '#SS#', ''), '#NB#', @NB) 
 END
 AS MOTAUPLURIEL
 

Remarque :
Attention : Cela ne fonctionne que sur SQL Server

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



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

{Javascript / DHTML} PARSER LES CARACTÈRES HTML D'UNE STRING
Bon, c'est assez dommage que j'arrive ici avec un si petit code d'autant plus évident. Néanmoins, je...

{Delphi} FRÉQUENCES
Pour ceux qui, comme moi, ont un vieux piano (ou tout autre instrument) et qui ont envie de l'accord...

{PHP} REMPLACER DES LETTRES EN IMAGES
C'est un ancien code que j'avais fait juste dans un but esthétique, son but est tout simplement de r...

{C# / C#.NET} REMPLACER UNE SÉQUENCE DE BYTE
Cette méthode sert à remplacer simultanément dans une séquence byte[] A toutes les sous-séquences by...

{Visual Basic, VB6, VB.NET, VB 2005} DICO ACCORDS GUITARE
J'ai refait un prog de dictionnaire d'accords pour guitare beaucoup plus ergonomique et utilisant la...

{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: 2 versions, la première pour Internet Explorer sur la ba...