[VB.NET] Problème avec le REPLACE

Version imprimable

10/04/2007, 13h11
olbi

[VB.NET] Problème avec le REPLACE

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

Salut,

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

Code:

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.

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

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
 
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

Mais tout simplement ainsi ça marche pas mieux ? :roll: :
Code:

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

10/04/2007, 18h15
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.
10/04/2007, 19h16
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 ...