Discussion :

[sebastien2975000]

bonjour,

je cherche à supprimer le retour chariot d'une fin de ligne si la ligne suivante commence par / (lignes présente dans un fichier texte)

exemple :

nom du fichier texte : controle.txt
---------------------

contenu du fichier texte:
-----------------------

lavoitureestbelle
/jesuisdaccord
lecielestbleu
/toutestbien
mercidevotreaide
/super


transformer comme suit :
-----------------------


lavoitureestbelle/jesuisdaccord
lecielestbleu/toutestbien
mercidevotreaide/super


merci beaucoup

[pitchalov]

Bonjour,

Voilà un exemple de code répondant à ta demande :

Code :

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

1
2
3
4
strFile = "controle.txt"
Set objFso = CreateObject("Scripting.FileSystemObject")
strFileContent = objFso.OpenTextFile(strFile, 1).ReadAll
objFso.OpenTextFile(strFile, 2).Write Replace(strFileContent, vbCrLf & "/", "/", 1, -1, 1)

Bonne continuation.

[I'm_HERE]

salut,

Bonjour,

Voilà un exemple de code répondant à ta demande :

Code :

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

1
2
3
4
strFile = "controle.txt"
Set objFso = CreateObject("Scripting.FileSystemObject")
strFileContent = objFso.OpenTextFile(strFile, 1).ReadAll
objFso.OpenTextFile(strFile, 2).Write Replace(strFileContent, vbCrLf & "/", "/", 1, -1, 1)

Bonne continuation.

merci pour ton code, mais il peux ne pas suffir si le texte était plus complexe, par exemple:

Code :

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

1
2
3
4
5
6
7
8
9
 
lavoitureestbelle
/jesuisdaccord
lecielestbleu
/toutestbien
         /foo
mercidevotreaide
/super
  /bar

il vaux mieux dans ce cas trimmer le tout avant d'operer le remplacement..

sinon voici une autre alternative:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
strFile = "a.txt"
Set objFso = CreateObject("Scripting.FileSystemObject")
strFileContent = objFso.OpenTextFile(strFile, 1).ReadAll
 
set rx = New RegExp
with rx
' matcher un retour à la ligne suivi par des espaces optionels suivi par un "/"
.Pattern = "\r?\n\s*(?=/)" : .Global = true
end with 
objFso.OpenTextFile(strFile, 2).Write rx.Replace(strFileContent, "")

[sebastien2975000]

excellent

fonctionne parfaitement

merci