Modification d'un gros fichier texte sans

Question

Bonjour,
J'ai un très gros fichier XML à lire en VB en mode texte.
Le problème est qu'il n'y a pas de retour chariot dans le fichier. Quand je lis la ligne, ça fait tout planter.
Mon but est de rajouter des retours chariot (entre chaque balise XML par exemple).
Comment faire sans avoir à récupérer toute la ligne ?

Merci

fredlynx · Answer

je ne vois pas ce qui peut tout planter ... il fait quelle taille ton fichier ? http://www.fredlynx.com

cs_Kloun · Answer

Le fichier en question fait 6Mo
Il y a 4 lignes mais tout est sur une seul ligne. Quand on fait un read, ça plante

Kloun

fredlynx · Answer

C chelou !? Comment tu fais pour lire ton fichier tu utilises quelles commandes ? En quel mode tu l'ouvres ? http://www.fredlynx.com

cs_rene38 · Answer

Bonjour
Voici un petit code qui te recopie le fichier d'origine (sans le modifier) dans un nouveau fichier en ajoutant un VbCrLf après chaque fin de balise (de début ou de fin)

Dim Octet As String * 1, Ligne As String
Open "C:\CheminOrigine\FichierOriginal.xml" For Binary As #1
Open "C:\CheminDestination\FichierModifié.xml" For Output As #2
Do While Not EOF(1)
    Get 1, , Octet
    Ligne = Ligne & Octet
    If Octet = ">" Then
        Ligne = Ligne & vbCrLf
        Print #2, Ligne
        Ligne = ""
    End If
Loop
Close

cs_Kloun · Answer

Merci, 

J'essaie ça demain (ou plus tard ...)

JMC70 · Answer

il n'y a pas de retour à la ligne dans les fichiers xml. C'est le navigateur ou le parseur qui doit interpréter les balises.
Ceci fait qu'il est difficile de l'attaquer depuis VB comme fichier texte pur (à moins de l'ouvrir en binaire comme le suggère rene38). Aussi, il est préférable d'utiliser le DOM pour lire les données.
Voir http://www.vbfrance.com/code.aspx?id=27570 pour la gestion des fichiers xml en vb6.
JMC70

Modification d'un gros fichier texte sans <CR><LF>

6 réponses

Discussions similaires