Remplacement chaîne de caractère

Version imprimable

16/01/2008, 11h20
RéviAT

Remplacement chaîne de caractère

Re-bonjour,
Tout à l’heure j’ai posé une question assez stupide sur InStr. J’ai une autre question (moins stupide ?) sur le traitement des chaînes de caractères :
Est-ce qu’il existe un sous-programme semblable à la fonction « Edition /remplacer » de Excel, mais qui travaille en VRA directement sur les variables String ?
Si ce sous-programme s’appelait :
RemplaceCC(CCDépart, CCàRemplacer, CCenRemplacement, CCArrivée NbDeRemplacements),
Variables d’entrée : CCDépart, CCàRemplacer, CCenRemplacement
Variables de sortie : CCArrivée NbDeRemplacements
alors on aurait par exemple :
RemplaceCC(«Il y avait une fois, oui une fois», «fois», « histoire », «Il y avait une histoire, oui une histoire », 2)
Merci de m’aider. RéviAT
16/01/2008, 11h29
myrddin772
Il existe cela :
Code:

1 2 3 Function RemplaceCC(CCDépart, CCàRemplacer, CCenRemplacement) RemplaceCC = Replace(CCDépart, CCàRemplacer, CCenRemplacement) End Function
Par contre, je ne vois pas bien l'utilité de mettre en paramètre d'appel ta chaîne d'arrivée et le nombre de remplacements...
16/01/2008, 12h06
RéviAT

Merci.
J'ai testé, cela fonctionne bien.
L'intérêt de mettre le nombre de modications est de savoir d'abord qu'il y eu au moins une modification (sinon le nombre est 0) et aussi de compter les modifications faites.
Excel dans la fonction "Edition / Remplace" affiche bien le nombre de modifications effectuées.
Est-ce possible de savoir le nombre de modifications faites ?
Merci.
16/01/2008, 14h06
myrddin772

Oui c'est possible mais en codant un peu... de plus si tu veux renvoyer la chaîne modifiée ET le nombre de modification, ta fonction doit renvoyer un tableau de variant...

Tiens... Essaie ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Function RemplaceCC(CCDépart As String, CCàRemplacer As String, CCenRemplacement As String) As Variant()
    Dim Sortie(1 To 2) As Variant
    Dim p As Integer
 
    Sortie(1) = CCDépart
    Sortie(2) = 0
    Do
        p = InStr(Sortie(1), CCàRemplacer)
        If p = 0 Then
            RemplaceCC = Sortie
            Exit Do
        Else
            If (Len(Sortie(1)) - p - Len(CCàRemplacer)) > -1 Then
                Sortie(1) = Left$(Sortie(1), p - 1) & CCenRemplacement & Right$(Sortie(1), Len(Sortie(1)) - p - Len(CCàRemplacer) + 1)
            Else
                Sortie(1) = Left$(Sortie(1), p - 1) & CCenRemplacement
            End If
            Sortie(2) = Sortie(2) + 1
        End If
    Loop
End Function
 
Sub essai()
    MsgBox RemplaceCC("Il y a vait une fois, oui une fois.", "fois", "histoire")(1) & _
      vbCrLf & RemplaceCC("Il y avait une fois, oui une fois", "fois", "histoire")(2)
End Sub

16/01/2008, 14h56
RéviAT

Je viens de tester. Cela fonctionne bien.
Je vais y travailler pour bien comprendre la programmation qui dépasse mon niveau.
Merci beaucoup.
RéviAT
17/01/2008, 10h32
Eric93
Bonjour,
Citation:
Code:

1 2 3 Function RemplaceCC(CCDépart, CCàRemplacer, CCenRemplacement) RemplaceCC = Replace(CCDépart, CCàRemplacer, CCenRemplacement) End Function
J'ai pas trop compris, pourquoi faire une fonction qui appelle la même fonction avec les même paramètres ?
17/01/2008, 10h56
myrddin772

Oui... :oops:

La fatigue est la facilité de recopiage..... désolé pardon :triste: :dehors: