Remplacement des caractères:

bonjour,
grace a un tutoriel donné par je ne sais plus qui, j'ai un site dans lequel je peux créer des pages.

Problèemes, c'est que le contenu des pages se trouve enregistré dans une base de donnée, et quand j'affiche une page avec ces infos, je perd la mise en forme, enfin je perd les retours à la ligne.

pour celà, il faut que je remplace les caractères retour a la ligne par <br>.
Voilà ce que j'ai fait dans une classe séparée::

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Imports Microsoft.VisualBasic   Public Class replacecar   Public Shared Function replacec(ByRef text As String) As String Dim entrer As String = Chr(13) Dim entrer1 As String = Chr(10) For Each entrer In text text.Replace(Chr(13), "<br>") Next For Each entrer1 In text text.Replace(Chr(10), "<br>") Next Return text End Function End Class

---

et je l'appelle comme ça:

Code:

---

TextArea1.InnerText = replacecar.replacec(TextArea1.InnerText)

---

Si quelqu'un peut m'aider...

Je ne sais pas quel est ton problème mis à part que je suis sur que ca ne fonctionne pas, mais essaie plutot ca :

Code:

---

1 2 3 4 5 6

Public Shared Function replacec(ByRef text As String) As String   text=text.Replace(Chr(13), "<br>") text=text.Replace(Chr(10), "<br>")   End Function

---

on pourrait même faire ceci :

Code:

---

1 2 3 4 5 6 7

Public Shared Function replacec(ByRef text As String) As String   text=text.Replace(Chr(13), "<br />") text=text.Replace(Chr(10), "<br />")   End Function

---

pour être dans la norme Xhtml... mais bon

On peut même faire

text=text.Replace(vbcrlf, "<br />")

Enfin, je crois... :mrgreen:

Merci beaucoup,
c'est enfin la solution dont j'avais besoin!!!!

Bonne continuation!