ghans
Messages postés12Date d'inscriptionmardi 16 juillet 2002StatutMembreDernière intervention14 juin 2005
-
8 juin 2004 à 09:49
ghans
Messages postés12Date d'inscriptionmardi 16 juillet 2002StatutMembreDernière intervention14 juin 2005
-
8 juin 2004 à 17:58
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...
crenaud76
Messages postés4172Date d'inscriptionmercredi 30 juillet 2003StatutMembreDernière intervention 9 juin 200628 8 juin 2004 à 10:19
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