Probleme avec une expression reguliere-Replace

Bonjour,

j'ai trois "expression régulière + replace" pour retirer les retours chariots pour du texte entre guillemets que j'aimerais simplifier en 1 seul :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Set regEx2 = New RegExp regEx2.Pattern=";[""""]([^""""\r\n]*)[\r\n]+([^""""\r\n]*)[\r\n]+([^""""\r\n]*)[\r\n]+([^""""\r\n]*)[""""]" regEx2.IgnoreCase = True regEx2.Global = True regEx2.MultiLine = True strNewText=regEx2.Replace(strNewText,";$1 $2 $3 $4 ")   Set regEx2 = New RegExp regEx2.Pattern=";[""""]([^""""\r\n]*)[\r\n]+([^""""\r\n]*)[\r\n]+([^""""\r\n]*)[""""]" regEx2.IgnoreCase = True regEx2.Global = True regEx2.MultiLine = True strNewText=regEx2.Replace(strNewText,";$1 $2 $3 ")   Set regEx2 = New RegExp regEx2.Pattern=";[""""]([^""""\r\n]*)[\r\n]+([^""""\r\n]*)[""""]" regEx2.IgnoreCase = True regEx2.Global = True regEx2.MultiLine = True strNewText=regEx2.Replace(strNewText,";$1 $2")

---

J'aimerais utiliser l'expression régulière suivante : ";[""""]([^""""\r\n]*)([\r\n]+([^""""\r\n]*))+[""""]" mais alors je ne sais pas comment récupérer les données sans (\r\n)!

Autre question : si je souhaite remplacer les \r\n par "toto" , comment faire?

Merci d'avance pour votre aide,

En fait, je n'ai pas trouvé de solution de changement en regex; si je souhaite remplacer les vbcrlf, j'utilise cette fonction:

Code:

---

1 2 3 4 5 6 7 8 9

Function Split2( sSrc, sFrom, sTo ) Dim aParts : aParts = Split( sSrc, """" ) Dim nIdx For nIdx = 1 To UBound( aParts ) Step 2 aParts( nIdx ) = Replace( aParts( nIdx ), sFrom, sTo ) Next Split2 = Join( aParts, """" ) End Function

---