Remplacer un LF par un CRLF

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

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.

Ca marche nickel !!!
Merci bcp
je connaissais pas LOF... de suite ca aide !!!

encore merci

Gh@ns