Discussion :

[toutounesan]

Bonjour,

J'ai fait un projet tout simple indépendant de mon gros projet et ça marche pas:

Code :

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

1
2
3
4
5
6
7
Dim objreader As New StreamReader(CurDir() + "toto.txt")
        Dim str2 As String = objreader.ReadToEnd()
        objreader.Close()
        str2.Replace("old", "ok ! ")
        objWriter = New StreamWriter(CurDir() + "toto.txt")
        objWriter.Write(str2)
        objWriter.Close()

ayant déjà écrit avant un fichier toto.txt avec en contenu "old"

[Ehjoe]

Bonjour,

Code :

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

1
2
3
4
 
Dim r as integer
r = Replace(texte, "recherché", "remplaçant")
' ok si <> 0

[toutounesan]

ça ne marche toujours pas:

Code :

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

1
2
3
Dim str As String = Me.TextBox1.Text
        Replace(str, "vieux", Me.TextBox2.Text)
        Me.TextBox3.Text = str

où récupère t'on le nouveau texte dans str??

[Sehnsucht]

Bonsoir,

Il suffit de lire la documentation pour comprendre :

Retourne une nouvelle chaîne dans laquelle toutes les occurrences d'une chaîne spécifiée dans l'instance actuelle sont remplacées par une autre chaîne spécifiée.

Par conséquent :

Code :

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

1
2
3
4
'...
Dim newStr2 As String = str2.Replace("old", "ok ! ")
'...
objWriter.Write(newStr2)

Cordialement !

[toutounesan]

oui, merci.