Connexion

Entrecouper chaque caractère d'un chaine avec un autre caractère

Niveau requis pour utiliser/comprendre cette source : 1 ( Débutant )
Créé le 07/03/2008 13:18:50 et initié par PCPT [Liste]
Date de mise à jour : 18/03/2008 17:48:29
Vue : 19146
Catégorie(s) : Chaîne de caractères, Divers
Langages dispo pour ce code :
- VB6, VBA
- VB 2005
- Python
- PHP 5
- Tcl
- C# 1.x, C# 2.x, C# 3.x
- PHP 4, PHP 5
- PHP 4, PHP 5

Proposer ce code dans un autre langage

Ajouter aux favoris Code Snippet pour Visual Studio 2005

Snippet VS 2005 (VB)

Langage : VB6 , VBA
Date ajout : 07/03/2008
Posté par PCPT [Liste]
DateMAJ : 07/03/2008

Function ExplodeChars(ByVal Expression As String, Optional sChar As String = " ", Optional bIncludeLast As Boolean = True)  As String
'ExplodeChars  => retourne la chaine EXPRESSION entrecoupée d'un caractère  SCHAR
'sChar => caractère (taille 1)  désiré
'bIncludeLast => se termine par SCHAR ou  par le dernier caractère de EXPRESSION
    ExplodeChars = vbNullString
'    oblige taille EXPRESSION au moins de 1 carac, et taille SCHAR seulement de 1  carac
    If Len(Expression) Then
        If LenB(sChar) = 2 Then
            Dim i As Integer, j As Integer
'           formate  le retour avec le caractère désiré sur la taille  finale
            If bIncludeLast Then j = LenB(Expression) Else j = LenB(Expression) - 1
            ExplodeChars = String(j, sChar)
'           attribue  la chaine EXPRESSION 1 carac sur 2
            j = 1
            For i = 1 To Len(Expression)
                Mid$(ExplodeChars, j, 1) = Mid$(Expression, i, 1)
                j = j + 2
            Next i
        End If
    End If
End Function
'chaine s =  "abcde"
'ExplodeChars(s)             renvoie "a b  c d e "
'ExplodeChars(s, "@", False) renvoie  "a@b@c@d@e"

Ajouter aux favoris Code Snippet pour Visual Studio 2005

Snippet VS 2005 (VB)

Langage : VB 2005
Date ajout : 18/03/2008
Posté par jrivet [Liste]
DateMAJ : 18/03/2008

    Public Function ExplodeChars(ByVal Exp As String, Optional ByVal sChar As Char = " ", Optional ByVal bLast As Boolean = False)  As String
        Dim Result As String = String.Empty
        If Exp.Length > 0 Then
            Dim Buffer As New System.Text.StringBuilder()
            For i As Integer = 0 To Exp.Length - 1
                Buffer.Append(String.Concat(Exp.Chars(i),  sChar))
            Next i
            Result = Buffer.ToString
            Buffer.Length = 0
            If Not bLast Then Result = Result.Substring(0, Result.Length - 1)
        End If
        Return Result
    End Function

Ajouter aux favoris

Langage : Python
Date ajout : 01/04/2008
Posté par pacificator [Liste]


def explodeChars(s, sChar=" ", last=False):
    if not len(sChar) == 1:
        raise ValueError, "len(sChar) must be 1"
    seps = [sChar] * len(s)
    r = ["%s%s" % i for i in zip(s, seps)]
    if last:
        return "".join(r)
    else:
        return "".join(r)[:-1]
if __name__ == "__main__":
    s = "abcde"
    print explodeChars(s)
    print explodeChars(s, "@", False)
    print explodeChars(s, "_", True)
    #print explodeChars(s, "**")

Ajouter aux favoris

Langage : PHP 5
Date ajout : 06/07/2008
Posté par mortalino [Liste]

<?php 
function ExplodeChars($Expression, $sChar = ' ', $bIncludeLast = true){ 
	    if (strlen($Expression) != 0){ 
		        if (strlen($sChar) == 1){ 
            $j = 0; 
			            for($i = 0 ; $i <= (strlen($Expression) - 1) ; $i++ ){ 
                $j++; 
				                if (($j % 2)!=0){ 
                    $sBuffer .= substr($Expression, $i, 1); 
                }else{ 
                    $sBuffer .= $sChar; 
                    $i--; 
                } 
            } 
			            if ($bIncludeLast == true){ 
                $sBuffer .= $sChar; 
            } 
			            return $sBuffer; 
        } 
    } 
} 
 
// Exemple : 
$sChaine = 'abcde'; 
echo(ExplodeChars($sChaine, '@', false)); 
?>

Ajouter aux favoris

Langage : Tcl
Date ajout : 11/09/2009
Posté par gersoo [Liste]

proc Entrecoupe {s a} {return [regsub -all " " [split $s ""] $a]}

Ajouter aux favoris Code Snippet pour Visual Studio 2005

Snippet VS 2005 (C#)

Langage : C# 1.x , C# 2.x , C# 3.x
Date ajout : 11/09/2009
Posté par Charles Racaud [Liste]

//using System.Text;

static string ExplodeChars(string Expression ) {
  return ExplodeChars(Expression, ' ', true);
}
static string ExplodeChars(string Expression, bool IncludeLast) {
  return ExplodeChars(Expression, ' ', IncludeLast);
}
static string ExplodeChars(string Expression, char Char) {
  return ExplodeChars(Expression, Char, true);
}
static string ExplodeChars(string Expression, char Char, bool IncludeLast) {
  if (!string.IsNullOrEmpty(Expression)) {
    StringBuilder Buffer = new StringBuilder();
    int LastChar = Expression.Length - 1;
    for (int i = 0; i < Expression.Length; i++) {
      Buffer.Append(Expression[i]);
      if (IncludeLast || i < LastChar)
        Buffer.Append(Char);
    }
    return Buffer.ToString();
  }
  else
    return string.Empty;
}

Ajouter aux favoris

Langage : PHP 4 , PHP 5
Date ajout : 29/03/2011
Posté par phpAnonyme [Liste]

function recursiveChars($string, $delimiter='', $insertLast=FALSE) {
    $buffer = implode( $delimiter, explode( ' ', wordwrap( $string, 1, ' ', TRUE ) ) );
    if($insertLast)
        $buffer .= $delimiter;
    return $buffer;    
}
$string = 'abcde'; 
echo recursiveChars($string, '@'); // affichera ' a@b@c@d@e '
echo recursiveChars($string, '@', TRUE); // affichera ' a@b@c@d@e@ '

Ajouter aux favoris

Langage : PHP 4 , PHP 5
Date ajout : 04/10/2011
Posté par BernardThomas [Liste]

function recursiveChars($str_value, $delimiter, $last = FALSE)
{
    $return = NULL;
    
    // longeur de la chaine
    $str_size = strlen($str_value);
    
    // parcours de la chaîne de caractère comme un tableau
    // concaténation du délimiteur
    for($i = 0; $i < $str_size; $i++){
        
        $return .= $str_value[$i].$delimiter;
    }
    
    // suppression du dernier délimiteur si nécessaire
    return ($last) ? $return : substr($return, 0, -1);
}

Snippets en rapport avec : Chaine, Caractère, Entrecouper

05/04/2013 - Permet de remplacer un caractère par un autre

01/11/2012 - Découper une chaîne tous les X caracteres

20/09/2011 - Recuperer le nom du dossier parent d'un fichier

02/03/2011 - insérer des données dans un fichier

17/12/2008 - Compter chaque occurrence de caractères d'une chaîne

22/06/2008 - Convertir une chaine en un tableau de chaine (en tenant compte des retours chariot)

09/06/2008 - Récupérer la source d'une page dans une variable String par API

22/05/2008 - Convertir une chaîne au format Unix

03/01/2008 - Convertit les caractères spéciaux en entités HTML (HtmlEncore / HtmlSpecialChars)

15/12/2007 - chaine de battage (fonction qui renvoie 1 si la chaine3 est une chaine de battage de la chaine 1 et de la chaine 2)

Codes sources en rapport avec : Chaine, Caractère, Entrecouper

{Javascript / DHTML} RÉCUPÉRER OU REMPLACER DANS UNE CHAINE DE CARACTÈRE, UNE CHAINE OU UN MOT SITUÉ ENTRE DEUX MOT OU UNE CHAINE
str_between(string, from, to, edit) Si edit existe le script remplace entre la chaine de caractè...

{C / C++ / C++.NET} [C] WD_STRING V2.2
Fonctions de gestion des chaînes de caractères en langage C. Fonction Inverse : Renvoie pour chaq...

{C / C++ / C++.NET} [C] WD_STRING V1.9
Fonctions de gestion des chaînes de caractères en langage C. Fonction ChaineCompare : Compare deux ...

{Visual Basic, VB6, VB.NET, VB 2005} CRYPTAGE ET DÉCRYPAGE D'UNE CHAÎNE DE CARACTÈRES
Bonjour, Je débute en VB.Net et c'est la première source que je dépose sur Vbfrance. J’attends be...

{Python} RECHERCHE D'UNE CHAINE DANS DES FICHIERS
Ce script est destiné à la recherche de fichiers qui contiennent une chaîne de caractère dans un ens...

{Visual Basic, VB6, VB.NET, VB 2005} TRAFIC CHAINE
Un de plus, c'est une compil des différents traitements possible sur les chaines de caractères. Pas...

{Visual Basic, VB6, VB.NET, VB 2005} RECHERCHE DE CHAÎNES DANS UN FICHIER TEXTE
Programme permettant de rechercher un chaine de longueur quelconque ( 1 à ... ) dans un fichier text...

{Visual Basic, VB6, VB.NET, VB 2005} [VBSCRIPT] RECHERCHE D'UN CARACTÈRE OU D'UNE CHAINE DE CARACTÈRES DANS UNE PHRASE
Cette demande de recherche étant récurrente sur ce Forum, je propose une solution pédagogique en ...

{Visual Basic, VB6, VB.NET, VB 2005} RECHERCHE D'UNE CHAINE DANS UNE AUTRE + GESTION D'ERREUR + COMMENTAIRE
Bonjour, J'ai fait cette fonction qui permet la recherche d'un caractère ou d'une chaine de caractè...

{Visual Basic, VB6, VB.NET, VB 2005} SUPPRESSION DE CARACTÈRES DANS UN STRING
Voici une petite fonction qui permet de supprimer n'importe quel caractère (autant que l'on veut) d'...

Les Snippets

Rechercher :

Par langages :

Par Catégorie

Compteurs

Entrecouper chaque caractère d'un chaine avec un autre caractère

Snippets en rapport avec : Chaine, Caractère, Entrecouper

Codes sources en rapport avec : Chaine, Caractère, Entrecouper