Remplacer un LF par un CRLF

Signaler
Messages postés
12
Date d'inscription
mardi 16 juillet 2002
Statut
Membre
Dernière intervention
14 juin 2005
-
Messages postés
12
Date d'inscription
mardi 16 juillet 2002
Statut
Membre
Dernière intervention
14 juin 2005
-
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

2 réponses

Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
27
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.
Messages postés
12
Date d'inscription
mardi 16 juillet 2002
Statut
Membre
Dernière intervention
14 juin 2005

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

encore merci

Gh@ns