Remplacer un LF par un CRLF

Question

Bonjour,

Déjà merci à tous pour votre aide précieuse... bien souvent vous etes ma boué de sauvetage.... merci bcp

Alors voila mon pb... j'ai un fichier texte avec des LF (chr(10))entre chaque enregistrement et je voudrais les transformer en CRLF (chr(13)+chr(10)). 

Premier pb ouvrir le fichier en lecture ecriture.... que j'ai eviter en faisant un fichier en lecture et un en ecriture...

Maintenant LE pb, c'est que le input s'arrete soit a un CRLF, soit a un certain nombre de caractere... comment faire pour transformer chaque LF en CRLF ?

D'avance merci du temps que vous m'accorderez pour me repondre... Chaque piste m'interesse alors n'hesitez pas... 

Gh@ns

crenaud76 · Answer

Dim Src as string,FicSource as String, FicDest as String
FicSource = "...."
FicDest = "...."
Open FicSource For input as #1
Open FicDest For Output as #2
Src = Input(Lof(1),#1)
Src = Replace$(src,vbLF,vbCRLF)
Print #2,Src
Close

Cela doit fonctionner nromalement

Christophe R.

ghans · Answer

Ca marche nickel !!!
Merci bcp
je connaissais pas LOF... de suite ca aide !!!

encore merci

Gh@ns

Remplacer un LF par un CRLF

2 réponses

Discussions similaires