Lire la ligne d'un fichier texte en dessous de celle sur laquelle on pointe

Question

Bonjour,

Voila mon souci

Je balaye mon fichier texte et je souhaite traiter la valeur de la ligne sur laquelle je suis à partir de la valeur du la ligne du dessous. C'est à dire que la valeur de la ligne du desous que je reécupére jouera sur le traitement que j'appliquerai à la ligne sur laquelle je suis. 

Comment récupérer la valeur de la ligne inférieur en restant sur la ligne sur laquelle je suis pour lui appliquer le traitement.

Ci joint mon bout de code merci d'avance

While Not EOF(1)
    i = i + 1
    j = 0
    ligne = ""
    'Recuperationde la valeur de la ligne
    Line Input #1, ligne
    pipe = InStr(1, ligne, "|", vbTextCompare)

    'Si pas de pipe j'écris directement dans le fichier de recuperation des données
    If pipe = 0 Then
        Print #2, ligne
    Else
        If pipe <> 0 Then
    
            arret1 = pipe 'Recuperation du debut pour tronquer
            arret2 = InStr(pipe + 1, ligne, "|", vbTextCompare)
        
            ''Je recupere la valeur incluse entre les deux pour pouvoir la tester
            valeur_intermediaire = Trim(Mid(ligne, arret1 + 1, ((arret2 - arret1) - 1)))
        
            'Je teste si ma valeur intermédiaire est égale à IDPOSTE
        
            idposte = InStr(1, valeur_intermediaire, "IDPOSTE", vbTextCompare)
            
                If idposte = 1 Then
                'Je vais ensuite tester si la premiere lettre de la ligne en dessous est egale a R
                'SI idposte  = 0 j'écris la ligne à suivre
 C'EST LA QUE JE VOUDRAIS LIRE LA LIGNE DU DESSOUS POUR DECIDER DE L'ACTION A
MENER SUR LA LIGNE SUR LAQUELLE JE SUIS
                Else
                
                    'Print #2, ligne
                
                End If
    
        End If
    End If

Wend

End Sub

econs · Answer

Avec un fichire texte tout b&#234;te, tu vas gal&#233;rer.

Parcours d'abord ton fichier texte, et enregistre chaque ligne dans une listbox. Tu auras ainsi une copie de ton fichier texte.

Ensuite, tu n'as qu'&#224; jongler avec les lignes d'une listbox. C'est plus
facile. Tu peux calculer quelquechose en utilisant ce qu'il y a deux
lignes au dessus ou trois lignes en dessous. C'est beaucoup plus souple.



Et tu r&#233;&#233;cris ton fichier texte APRES tous tes traitements.

Manu

drouault · Answer

Simple mais fallait y penser !! Merci bien c'est vrai que je vois tout de suite la soluce la maintenant !!!

A+

Pierre

crenaud76 · Answer

Plutot que de charger dans une listbox, je chargerais dans un tableau moi !

CR

econs · Answer

crenaud> C'est certes beaucoup mieux dans un tableau.

Quand j'ai des op&#233;rations complexes &#224; faire avec des tableaux, je les
affiche toujours dans une listbox. Ainsi, d'un coup d'oeil, je vois si
je fais des b&#234;tises ou pas. Ensuite, quand je sais que la gestion du
tableau est bonne, j'enl&#232;ve la listbox.



C'est juste une solution "visuelle". Le tableau est assur&#233;ment nettement mieux.

Manu

satrincha · Answer

Utilise 2 pointeurs en lecture sur le meme fichier texte.
Le premier lit la ligne courante, l'autre la ligne suivante.

crenaud76 · Answer

satrincha < "Deux pointeurs sur le meme fichier" ??????

CR

drouault · Answer

Bonsoir à tous

Tout d'abord merci beaucoup pour votre aide le pb est résolu grâce à un tableau.
En effet, j'avais plus de 200000 lignes à traiter et la listbox bugger apparament à cause de ça, et le temps d'éxécution avec un tableau est de plus bien plus courte.

Je ne vois pas comment avoir deux pointeurs décaler dans le même fichier ? mais ça m'intéresse moi aussi de savoir satrincha.

Encore merci

Bonne soirée

Gobillot · Answer

Salut,

c'est de la gestion de fichier avec une lecture d'avance.







Line Input #1, ligne1



While Not EOF(1)

    Line Input #1, ligne2

'   traitement ligne1   (avec ligne suivante = ligne2)

    ligne1 = ligne2

    Wend

Daniel

crenaud76 · Answer

drouault < Par contre, une remarque sur ton code. A un moment tu fais ca :
If pipe = 0 Then
        Print #2, ligne
    Else
        If pipe <> 0 Then
...

Le second "If" sous le Else est totalement inutile.
En effet, si tu arrives dans la clause {Else}, c'est que pipe est différent de zéro justement (rapport à ton 1er "If").
Tu peux donc supprimer celui-ci

CR

drouault · Answer

C'est exact Crenaud j'avais pas fais attention à ça ...

Merci

Pierre

satrincha · Answer

Je me suis peut etre mal fait comprendre.

' Une s&#233;rie de chiffre (s&#233;par&#233; par cr-lf) dans le fichier c:	est.txt
' 1,2,3,4,3,5,6


Dim F1 As Long
Dim F2 As Long
Dim Champs1 As String
Dim Champs2 As String


F1 = FreeFile
Open "c:	est.txt" For Input As F1
F2 = FreeFile
Open "c:	est.txt" For Input As F2


If Not EOF(F2) Then
    Line Input #F2, Champs2
    While Not EOF(F1)
        Line Input #F1, Champs1
        If Not EOF(F2) Then
            Line Input #F2, Champs2
            If Val(Champs1) > Val(Champs2) Then
                MsgBox "La ligne 1 qui &#224; la valeur " + Champs1 + " est sup&#233;rieur a la ligne 2 qui a comme valeur " + Champs2
            End If
        End If
    Wend
End If


Close #F1
Close #F2


J'utilise bien 2 pointeurs en lecture sur le m&#234;me fichier. Mais la r&#233;ponse de Gobillot est mieux adapt&#233;e.

Bonne soir&#233;e

crenaud76 · Answer

Satrincha <

F1 = FreeFile
Open "c:	est.txt" For Input As F1
F2 = FreeFile
Open "c:	est.txt" For Input As F2  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Ceci ne fonctionne pas !!
A partir du moment que "c:	est.txt" est ouvert par le 1er open, un second open NE PEUT PAS OUVRIR LE MÊME FICHIER "c:	est.txt"

CR

satrincha · Answer

crenaud76 < 

Bonjour,
Tu as peut etre raison, mais as-tu test&#233; le petit bout de code que j'ai mis ?
Je n'ai aucun message d'erreur et les valeurs sont bien lus.

L&#224; o&#249; je suis d'accord avec toi, c'est en mode ecriture o&#249; il est impossible d'ouvrir 2 fois le meme fichier puisque le premier open lock le fichier.

crenaud76 · Answer

mea culpa !!

Lire la ligne d'un fichier texte en dessous de celle sur laquelle on pointe

14 réponses

Discussions similaires