Fin de ligne fichier texte format windows ou unix

Question

Bonjour,

Comment faire pour ouvrir un fichier texte, non pas termin&#233; par CR+LF (0D-0A), mais uniquement par LF (0A) sans passer par le mode binaire. En fait choisir la fin de ligne d'un fichier texte.
Dans l'aide des contantes il existe vbNewLine avec comme descriptions : choix en fonction de la plate-forme. Mais aucune autre explication.

D'avance merci pour votre aide.

cs_Jack · Answer

Salut
vbNewLine ne permet que provoquer un changement de ligne en utilisant soit LF (LineFeed), soit CRLF (CarriageReturn + LineFeed) en fonction du syst&#232;me sur lequel il est.
vbNewLine repr&#233;sente un ou des caract&#232;res &#224; l'&#233;criture, il ne s'agit pas d'une option de s&#233;lection.
Mais la lecture d'une fichier Unix (avec CR) n'est pas une grosse diffcult&#233; en VB :
- Charger tout le fichier dans une variable texte :
Open "Fichier" Access Binary As #1
' Dimensionner un chaine de la m&#234;me longueur avant de lire
Chaine = String(LOF(1), " ")
' Lire tout le fichier d'un coup
Get #1, , Chaine
Close #1

- Pour dissocier les lignes, il faut rep&#233;rer s'il y a un LF derri&#232;re un CR
' Par d&#233;faut, d&#233;cide LF
S&#233;parateur = vbLf
r = Instr(1, Chaine, vbLf)
' Si Cr devant Lf, on change de s&#233;parateurIf r And Mid(Chaine, r - 1, 1) vbCr Then S&#233;parateur vbCrLf
Dim Lignes() As String
Lignes = Split(Chaine, S&#233;parateur)

Voil&#224;, tu as chaque ligne du texte dans un tableau.
La premi&#232;re ligne est dans Lignes(0) et il y a "UBound(Lignes) + 1" lignes dans ce texte

Vala
Jack
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cs_gedy · Answer

Merci de ton aide.

J'ai fait un essai, une fois d&#233;clarer la variable chaine, j'ai r&#233;cup&#233;rer mes lignes dans le tableau Lignes.
Mon but est de remplacer vblf par vbcrlf donc voici mon code :

Dim Chaine As String
Dim nb As Long
Dim S&#233;parateur As String
Dim Lignes() As String


Open "Fichier1" For Binary As #1
' Dimensionner un chaine de la m&#234;me longueur avant de lire
Chaine = String(LOF(1), " ")
' Lire tout le fichier d'un coup
Get #1, , Chaine
Close #1

'Ouvre nouveau fichier pour sauvegarde
Open "Fichier2" For Output As #1

'Supprime les vbLf
Lignes = Split(Chaine, vbLf)

'Ecriture dans nouveau fichier
For x = 0 To UBound(Lignes) - 1
    Write #1, Lignes(x)
Next x


Close #1

, mais dans le fichier2 les d&#233;buts et fin de lignes contiennent des "

Un probl&#232;me en cache un autre...

Nic0s · Answer

je ressort ce vieux message mais je suis tomber plus ou moins sur le meme souci , et voici ma resolution:
Sub repareFile(filepath As String)
Dim Chaine As String
Dim nb As Long
Dim Séparateur As String
Dim ifile As Integer
Dim Lignes() As String
Dim pos As Integer


ifile = FreeFile


Open filepath For Binary As #ifile
' Dimensionner un chaine de la même longueur avant de lire
Chaine = String(LOF(1), " ")
' Lire tout le fichier d'un coup
Get #ifile, , Chaine
Close #ifile

ifile = FreeFile
'Ouvre nouveau fichier pour sauvegarde
Open filepath For Output As #ifile

'Supprime les vbLf
Lignes = Split(Chaine, vbLf)

'Ecriture dans nouveau fichier
For X = 0 To UBound(Lignes) - 1
    ' on localise le premier vbCR rencontré 
    pos = InStr(1, Lignes(X), vbCr)
    If pos <> 0 Then
     Print #ifile, Mid(Lignes(X), 1, pos - 1)
    End If
Next X

Close #ifile





End Sub

Fin de ligne fichier texte format windows ou unix

3 réponses

Discussions similaires