Changer tous les caractères d'une chaine par un autre caractère

Soyez le premier à donner votre avis sur cette source.

Snippet vu 14 034 fois - Téléchargée 73 fois


Commenter

Contenu du snippet

Il s'agit simplement de changer un chaine ou un
caratère répété dans une chaine par une autre chaine ou un autre caractère.

Source / Exemple : 


' ---------------------------------------------------------------
' Change tous les caractères old_car par les caratères new_car :
'
Function sChangeCaractere(ByVal laChaine As String, ByVal old_car As String, ByVal new_car As String) As String
    Dim ncar As Integer, lng As Integer, result As String, txt As String
    
    
    lng = Len(old_car)
    txt = laChaine
    
    If lng <= 0 Then
        sChangeCaractere = txt
        
        Exit Function
    End If
    
    On Error GoTo ErrChangeCaractre
    
    If lng <= 0 Or Len(Trim(txt)) <= 0 Then
        sChangeCaractere = txt
        
        Exit Function
    End If
    
    result = vbNullString
    ncar = InStr(txt, old_car)
    
    Do While ncar
        If Len(result) > 0 Then
            If lng > 1 Then
                If ncar = 1 Then
                    result = result & new_car
                Else
                    result = result & Left(txt, ncar - 1) & new_car
                End If
            Else
                result = result & Left(txt, ncar - 1) & new_car
            End If
        Else
            result = Left(txt, ncar - 1) & new_car
        End If
        
        If lng > 1 Then
            txt = Right(txt, Len(txt) - ncar - (lng - 1))
        Else
            txt = Right(txt, Len(txt) - ncar)
        End If
        
        ncar = InStr(txt, old_car)
    Loop
    
    If Len(txt) > 0 Then result = result & txt
    
    sChangeCaractere = result
    
    Exit Function
    
ErrChangeCaractre:
    sChangeCaractere = result
End Function

Conclusion :


Par exemple, changer des caratères RTF vers l'équivalent en HTML :
result = sChangeCaractere(nouvelle, "\'c6", "Æ")

A voir également

Ajouter un commentaire

Commentaires

Signaler
cs_Thy
Messages postés
4
Date d'inscription
mercredi 17 avril 2002
Statut
Membre
Dernière intervention
17 janvier 2007
 -
Y'a peut etre plus court, mais c'est facile a comprendre et a utiliser et en plus ca marche du premier coup!!
Signaler
-
ya une fonction Replace( qui est tres interessante
Signaler
-
C'est bien mais on peut faire beaucoup plus court....
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (blq)