Discussion :

[BILLANT]

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 :

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

[BILLANT]

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

Code :

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

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