Dim tablo() As String
Dim sTemp As String
Dim sFileName As String
Dim i As Long
sFileName =
"C:\repertoire\fichier.txt"
sTemp = LoadTextFile(sFileName)
tablo = Split(sTemp,vbCrLf)
Open sFileName For Output As #1
For i = LBound(tablo) To UBound(tablo)-3
Print #1,tablo(i)
Next i
Close #1
Manu
--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.
cs_yvesyves
Messages postés561Date d'inscriptionsamedi 10 janvier 2004StatutMembreDernière intervention11 octobre 2010 12 déc. 2006 à 18:02
Ca aurait été bien que tu nous montre ta source.
Je ne sais pas quel est le codage du texte que tu as utilisé mais admettons que c'est ASCII
Dans le bloc note de Windows les saut de lignes peuvent être virtuel car le texte est redimenssioné à la taille de la fenêtre. Donc il faut que tu cherches dans la variable String récupéré quand tu ouvres ton fichier dans l'Ide grâce à la fonction InStr le caractère suivant "5;5;". Je sais plus le code correspondant dans la table ASCII. Le dernier "5;5;" trouvé correspont au saut de la dernière ligne. Autrement dit tu cherches les trois derniers "5;5;" et tu supprimes les lignes grâce à la fonction Mid par exemple. J'éspère t'avoir donné une piste.
cs_yvesyves
Messages postés561Date d'inscriptionsamedi 10 janvier 2004StatutMembreDernière intervention11 octobre 2010 12 déc. 2006 à 18:07
jmfmarques > J'aime bien ta méthode plus simple avec l'utilisation d'un tableau mais scoboy va devoir reconstituer sa chaîne de caractères. Tu fais NouveauTexte = Mid(MonTexte,1,Position_Du_3eme_Dernier_VbCrLf_Trouvé - 1)
Vous n’avez pas trouvé la réponse que vous recherchez ?
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 12 déc. 2006 à 18:10
Les lignes d'un fichier txt sont des lignes (et celà n'a rien à voir avec l'affichage, qui va uniquement dépendre de la largeur que l'on donne à la fenêtre de l'affichage de l'outil utilisé pour visualiser). Les lignes y sont séparées par un vbcrlf
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 12 déc. 2006 à 19:40
J'aurais vraiment préféré que tu n'aies pas ce poisson-là servi prêt à manger...
Tu serais sans doute arrivé au même résultat (plus lentement, certes) et il serait resté "gravé"...
Désolé.