Enlever les retours chariot d'un fichier texteRésolu

Question

j'ai un probl&#232;me : je dois enlever tous les retours chariots dans un fichier texte mais le pb c que mon programme ne les enl&#232;ves pas .
pourtant j'ai tout essay&#233;: vbcr, vblf, vbcrlf, chr(10) chr(13) mais au final toujours les retours chariots et en plus il me manque une ligne du fichier texte
voici ma source

' Fonction qui nettoie un fichier texte des retours chariots (vbcrlf ou vbcr)
Public Function VireRetourChariot(fichier As String)
    ' Variables locales
    Dim buffer As String
    Dim fichier2 As String

    ' Pr&#233;pare le nom du fichier2
    Call PrepareFichTemp(fichier, fichier2)
    
    ' Ouverture des fichiers
    Open fichier For Input As #1
    Open fichier2 For Output As #2
    
    ' Premiere lecture
    Line Input #1, buffer

    ' Boucle de traitement
    While EOF(1) = False
        ' Nettoie le buffer
        buffer = Trim(buffer)
        'buffer = Replace(buffer, vbLf, " ")
       buffer = Replace(Replace(buffer, Chr(13), ""), Chr(10), "")
        'buffer = Replace(buffer, Chr(10) & Chr(13), " ")
        Print #2, buffer
        Line Input #1, buffer
        
    Wend
    
    ' Fermeture des fichiers
    Close #1
    Close #2
    
    ' Efface le fichier 1
    Kill (fichier)
    
    ' Renomme le fichier 2 pour remplacer le fichier 1
    Name fichier2 As fichier
End Function

merci d'avance

cs_casy · Accepted Answer

Le probl&#232;me vient de l'instruction Print #2, buffer
 
qui t'&#233;crit une ligne dans le fichier. Avec la syntaxe utilis&#233;e, elle
rajoute syst&#233;matiquement et automatique un retour chario &#224; la fin de la
ligne.



Essaye peut-etre avec cette syntaxe : Print #2, buffer;


Tu peux virer tes Replace(), a priori ils servent &#224; rien car Line Input te vire automatiquement les CR et LF



<hr size="2" width="100%">Si le cerveau &#233;tait assez simple pour que nous puissions le comprendre,

nous serions assez b&#234;te pour ne pas le comprendre malgr&#233; tout.

denirobert · Answer

Merci beaucoup, je vais pour voir avance plus vite parce que je travaille sur des fichiers textes de grande taille et &#231;a m'emb&#234;tait de devoir enlever quasiment tous les retours chariot &#224; la main

crenaud76 · Answer

Essaye cela :

Dim Buffer as string
Open "Fic.txt" for input as #1
Buffer = Input(Lof(1), 1)
Close #1
Buffer = Replace$(Buffer, vbCRLF, " ")
Kill "Fic.txt"
Open "Fic.txt" for output as #1
Print #1, Buffer
Close #1

Christophe R

cqui789 · Answer

Le suivant devrait faire le boulot, en effet, le line imput te rend
teout ce qui est entre le point de lecture et le prochain retour a la
ligne, donc sans le retour a la ligne.

le point virgule a la fin du print pose le buffer, sans ajouter de retour.


Open fichier For Input As #1
    Open fichier2 For Output As #2
    
    ' Premiere lecture
    Line Input #1, buffer

    ' Boucle de traitement
    While EOF(1) = False
       
        Print #2, buffer;
        Line Input #1, buffer
        
    Wend
  
   Print #2, buffer;
     
  
    ' Fermeture des fichiers
    Close #1
    Close #2

cqui789 · Answer

Tu peux marquer la reponse de Crenaud76 comme acceptee, je l'ai teste et elle marche.



Je croyait qu'il y avait une limite a la taille des string mais ca marche avec un ficher de 1380Ko!



(Je n'ai pas encore essaye la mienne!!)

crenaud76 · Answer

Une string est effectivement limit&#233; mais la limite est &#224; 2^31 caract&#232;res soit 2 milliards de caract&#232;res

Christophe R

Enlever les retours chariot d'un fichier texte

6 réponses

Discussions similaires