Ignorer des lignes a la lecture d'un fichier textRésolu

Question

Salut, je voudrais ignorer des lignes a la lecture d'un fichier text.

En r&#233;alit&#233; le fichier text est un fichier C# duquel je r&#233;cup&#232;re des infos.

Les lignes a ignorer etant les commentaires ...

Jusque la c'est facile, mais le probleme c'est que je lis mes fichiers de la sorte



Private Function lire(fichier As String)



    On Error Resume Next

    

    Dim zone_text As String    

    Open fichier For Input As #1

    DoEvents

    zone_text = Input(LOF(1), #1)

    Close #1

    lire = zone_text



End Function



Et je ne peux pas lire ligne par ligne (les fichiers sont &#233;normes et la
lecture ligne par ligne est bien trop longue) sinon le soft ne sert a
rien (sa rapidit&#233; est son atout)



Donc, est il possible en utilisant ma syntaxe d'ignorer certaines lignes rapidement ?



Merci

ZeGuizmo

cs_Jack · Accepted Answer

Salut
Comme le dit PCPT, tu lis la totalit&#233; du fichier dans "zonetext", donc tout.
A toi de d&#233;pouiller le r&#233;sultat pour &#233;liminer les lignes de commentaire.
- Soit tu changes la mani&#232;re de lire les donn&#233;es en les lisant ligne par ligne
Open ...
Do While Not EOF(1)
   Line Input #1, Chaine
   If Left(Trim(Chaine, 1), 1) <> ";" Then zoneText = zoneText & Chaine
Loop
Close #1
- Soit tu travailles sur ta chaine globale :
Dim Lignes() As String
Lignes = Split(zoneText, vbCrLf)   ' Transforme chaine en lignes
For r = 0 To Ubound(Lignes)
   ' Si chaine commence par ; --> vide la ligne   If Left(Trim(Lignes(r)), 1) ";" Then Lignes(r) ""
Next r
' Recompose la chaine
zoneText = Join(Lignes, vbCrLf)
' Elimine les doubles vbCrLf qui sont l&#224; &#224; cause des lignes vides
zoneText = Replace(zoneText, vbCrLf & vbCrLf, vbCrLf)

Vala
Jack, MVP VB
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)

PCPT · Answer

salut,
encore faut-il &#234;tre certain de la syntaxe.
si le commentaire commence en d&#233;but de ligne, tu peux alors chercher le VbCrLf & "//"
mais s'il y a un espace avant, etc.... tu ne pourras pas de cette mani&#232;re.
dans la m&#234;me id&#233;e, tu peux chercher sur tout le fichier (en variable) les "//" puis replace par rien du mid de cette position jusqu'au prochain VbCrLf.

et il faut penser aussi que si ces fichiers sont si ~&#233;normes~, il te faut la RAM disponible au hauteur de la taille du fichier.

PCPT  [AFCK]

cs_zeguizmo · Answer

Salut, 

Merci jack c'est en fait ce qu'il me fallait, (le travail en lecture
ligne par ligne est trop long, mais c'est a cause du temps d'ouverture
du fichier texte) alors que le travail sur la variable est instantan&#233; 



Je comprend bien la fonction mais celle ci ne marche pas.

En fait j'ai isol&#233; le probleme, il vient du stockage dans la variable lignes

La fonction split(text, vbcrlf) n'a pas l'air de fonctionner.

Quand je lui demande de m'afficher ligne(r) par exemple, il m'affiche tout le texte.


Une solution ?

Merci encore.


ZeGuizmo

cs_zeguizmo · Answer

Une remarque qui peut avoir son importance, je suis sous VB 6 pas sous VB.NET

Ca changerait la donne ?


ZeGuizmo

cs_zeguizmo · Answer

Its works, je ne sais pas pourquoi mais avec vbcrlf ca marche pas, et avec chr(10) ca marche.



Merci beaucoup et a une prochaine fois :)

ZeGuizmo

Ignorer des lignes a la lecture d'un fichier text

5 réponses

Discussions similaires