Discussion :

[olbi]

Bonjour,

Je souhaiterai effectuer un replace de certaines chaines dans un texte.
Mon problème est le suivant, pour que le replace fonctionne correctement, il faut que la chaine spécifiée dans le replace correspondent à l'identique, même casse) sinon il passe au dessus.

MonTexte = "Toujours de bons Conseils sur Developpez.com"

monNouveauTexte = monTexte.replace("conseils","Astuces")

ca ne marche pas, le C est en majuscule. Comment faire??

D'avance merci

OLBI

[Lunelame]

Salut,

Il n'y a pas de solutions avec String.Replace, il est case Sensitive.
Cependant, tu peux faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Public Class MyString
    Inherits String
 
    Public Function ReplaceNoCase(oldValue As String, newValue As String) As String
         Dim myTextTmp As string
         Dim iPos As Integer
         Dim  bContinue As Boolean
 
         myTextTmp = Me.Text.ToLower
         bContinue = True
         While bContinue
              iPos = myTextTmp.IndexOf(oldValue.ToLower)
              If iPos = -1 Then
                  bContinue = False
              Else
                  Me.Text.Replace(Me.Text.SubString(iPos, oldValue.Length), _
                        newValue)
              End If 
         End While
         Return Me.Text
    End function
End Class

Il ne te reste qu'à redéfinir ta déclaration de chaîne pour faire que de string devient ReplaceNoCase.

@ +

PS : Vérifie mon code, je n'ai pas pu le tester. Sorry, j'ai pas de compilateur.

[olbi]

Merci pour le code. Je l'ai tester et je l'ai corriger.
Voici la correction.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
Public Class MyString
    Inherits String
 
    Public Function ReplaceNoCase(oldValue As String, newValue As String) As String
         Dim myTextTmp As string
         Dim iPos As Integer
         Dim  bContinue As Boolean
 
         myTextTmp = Me.Text.ToLower
         bContinue = True
         While bContinue
              iPos = myTextTmp.IndexOf(oldValue.ToLower)
              If iPos = -1 Then
                  bContinue = False
              Else
                  Me.Text = Me.Text.Replace(Me.Text.SubString(iPos, oldValue.Length), _
                        newValue)
 
                  myTextTmp = Me.Text
 
              End If 
         End While
         Return Me.Text
    End function
End Class

Encore un grand merci pour votre aide.

OLBI

[edertef]

Mais tout simplement ainsi ça marche pas mieux ? :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
MonTexte = "Toujours de bons Conseils sur Developpez.com"
 
monNouveauTexte = replace(MonTexte,"conseils","Astuces")

[Lunelame]

olbi

Excuse moi pour les erreurs, je l'ai fait de tête et sans complilateur. Je suis pas équipé VS.net, ici.

edertef

Je ne sais pas, si ta solution fonctionne. Mais moi, j'intégre plus de code VB6 dans mon code VB.net. C'est risqué, et hautement déconseillé. Et cela même si il est possible qu'il fonctionne.

[edertef]

Ha bon, c'est du vb6 ? je ne savais pas lol

en tout cas j'utilise comme ça et pour l'instant je n'ai pas eu de soucis ...