Problème pour Transformer EOL de Windows à Unix

**Manu79370** · 02/08/2024, 14h22

Bonjour,

J'utilise une macro "Changement_EOL_File" qui convertit toutes les sauts de ligne d'un fichier texte qui a précédemment était généra par la macro "Manipule_Datas" ==> le tout est dans le fichier excel "exemple_pour_aide.xlsm"

Les macros fonctionnent "parfaitement" mais j'ai un phénomène étrange qui se produit lors de la conversion de mes "fin de lignes". Je dois passer d'un format windows "vbCrLf" vers un format Unix "vbLf"

Lors de la conversion, dans mon fichier texte de retour, j'ai des lignes qui sont générées en doublon à la fin et qui conservent le format Windows contrairement aux premières lignes qui sont bonnes. ==> fichier "Pabx04_22_retours_en-utilisant-Changement_EOL_File.txt"

Si j'utilise la macro "Manipule_Datas" sans appeler à la fin de celle-ci la macro "Changement_EOL_File", mon fichier de retour contient exactement le même nombre de lignes que mon onglet "Retours" qui a été généré. ==> fichier "Pabx04_22_retours_sans-utiliser-Changement_EOL_File.txt"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub Changement_EOL_File(Fichier As String)
 
Dim FileLength As Long
Dim iFile As Integer
Dim strTemp As String
 
    iFile = FreeFile
    Open Fichier For Binary As #iFile
        FileLength = LOF(iFile)
        strTemp = String(FileLength, Chr(0))
        Get #iFile, 1, strTemp
        strTemp = Replace(strTemp, vbCrLf, vbLf)
        Put #iFile, 1, strTemp
    Close #iFile
 
End Sub

J'ai l'impression que c'est au moment d'utiliser la fonction Put que le problème se produit mais je ne vois pas comment faire autrement.

Si quelqu'un a une idée, je suis preneur.

Manu,

**deedolith** · 02/08/2024, 14h46

Salut,

Un fichier, ça se comporte un peut comme une bande magnétique.
Lorsque tu fait des opérations d'écriture, tu écrases son contenu (à ne pas confondre avec le fichier lui même).

Si le nouveau contenu est plus important que l'ancien, pas de problèmes, la taille du fichier sera agrandie, "la tête d'écriture à dépassé la fin du fichier".
Par contre, si le nouveau contenu est plus petit que l'ancien, la partie "en surplus" reste dans le fichier, "la tête d'écriture n'a pas dépassé la fin du fichier".
Dans ce cas, il n'y a pas 36 solutions:
1) Supprimer l'ancien fichier.
2) Le recréer.

PS:
C'est plutôt bizarre de lire en fichier texte en binaire.
Quid de la traiter comme ce qu'il est ? Un fichier texte ?
Et tant qu'a faire, par respect pour le SRP (https://fr.wikipedia.org/wiki/Princi...t%C3%A9_unique), diviser ton code en sous fonction plus petites, plus facile à comprendre et à maintenir:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub Changement_EOL_File(Fichier As String)
    Dim Data As String
    Data = ReadFile(Fichier)
 
    Data = Replace$(Data, vbCr, vbLf)
    WriteFile Fichier, Data
End Sub
 
Public Function ReadFile(ByVal Fichier As String) As String
    Dim Fso As Scripting.FileSystemObject
    Set Fso = CreateObject("Scripting.FileSystemObject")
 
    Dim IStream As Scripting.TextStream
    Set IStream = Fso.OpenTextFile(Fichier, ForReading)
 
    ReadFile = IStream.ReadAll
End Function
 
Public Sub WriteFile(ByVal Fichier As String, ByVal Data As String)
    Dim Fso As Scripting.FileSystemObject
    Set Fso = CreateObject("Scripting.FileSystemObject")
 
    Dim OStream As Scripting.TextStream
    Set OStream = Fso.OpenTextFile(Fichier, ForWriting, True)
 
    OStream.Write Data
End Sub