lecture fichier txt sans retour charriot et réécriture du même fichier avec reto

Question

Bonjour, 

Je dois lire un fichier txt sans retour chariot et le transformer (créer un autre fichier) en ajoutant tous les 240 caractères un retour charriot pour créer une nouvelle ligne dans un nouveau fichier txt.

Si vous avez des infos je serai super content.
Merci d'avance

lolokun · Answer

Bonjour,

Et où donc bloques-tu? ouvrir le fichier?en créer un nouveau?lire 240 caractères par 240 en ajoutant le vbcrlf??

Qu'as-tu essayé?As-tu effectué des recherches avec des mots clés??


L'expérience, c'est une connerie par jour, mais jamais la même..

Claiyah · Answer

bonjour 
Si vous avez des infos je serai super content. 

1- lire le fichier texte
2- parcourir le texte
3- ajouter un vbnewline après chaque 240 caractère
4- ré enregistrer le fichier texte

tu seras super content très vite

Quand on pose une question  on est con 5 minutes,Quand on ne la pose pas on le reste toute sa vie  (mon site)

nathansecret · Answer

Dim Fichier1 As String
Fichier1 = "C:\Fichier a ouvrir.txt"
'Fichier1 à modifier
Dim Fichier2 As String
Fichier2 = "C:\Fichier a creer.txt"
'Fichier2 à modifier
Dim Caracteres As Integer
Caracteres = 240 'Nombre de caractères avant saut de ligne

On Error Resume Next
Dim Lignes As String
Dim Ligne As String
Open Fichier1 For Input As #1
    While Not EOF(1)
        Line Input #1, Ligne
        Lignes = Lignes & Ligne
    Wend
Close #1
Lignes = Replace(Lignes,vbCrlf,"")
Open Fichier2 For Output As #2
    While Len(Lignes= >= Caracteres
        Print #2, Left(Lignes,Caracteres)
        Lignes = Right(Lignes,Len(Lignes)-Caracteres)
    Wend
    If Len(Lignes) <> 0 Then Print #2, Lignes
Close #2


Et voilà un code...

PS: Je ne l'ai pas testé, alors dites-moi si il fonctionne (si non, merci de me dire l'erreur et la ligne)... Je reviendrais le corriger...

nathansecret · Answer

: Le code précèdent lit le premier fichier complètement et enlève (en mémoire uniquement) tout les retours charriot avant de réécrire le fichier...

Il n'est pas optimisé au maximum, mais cela devrait faire l'affaire...

Lecture fichier txt sans retour charriot et réécriture du même fichier avec reto

4 réponses

Votre réponse

Discussions similaires