Fichier texte, trier. [Résolu]

Signaler
Messages postés
38
Date d'inscription
mardi 4 avril 2006
Statut
Membre
Dernière intervention
19 septembre 2006
-
Messages postés
8
Date d'inscription
vendredi 28 septembre 2007
Statut
Membre
Dernière intervention
8 janvier 2010
-
bonjous a tous voilà mon brobleme est simple a poser mais peut etre un peut plus dur a repondre (pour ma part en tous cas je n'y suis pas arrivé)
je possede un fichier text "mon fichier.txt" dont le nombre de ligne est totalement aleatoire
et j'aimerai garder de ce text que l'avant derniere ligne
voila s'est fait s'est dit
si ququ'un pouvait m'aider ce serai top merci a tous

6 réponses

Messages postés
28
Date d'inscription
dimanche 26 janvier 2003
Statut
Membre
Dernière intervention
16 août 2009

Désoler il manque un ligne qui conserve toute les lignes du tableau
Dim textline
    Dim sAvandernierLigne
       hFile = FreeFile
      
    Open App.Path & "\datas" & "\com.txt" For Input As #hFile
        Do While Not EOF(hFile) ' Effectue la boucle jusqu'à la fin du fichier.
            Line Input #hFile, textline
            lsTab = textline
            redim preseve lsTab(ubound(lsTab)+1)
        Loop
    Close #hFile
    sAvandernierLigne = lsTab(Ubound(lsTab)-2)
  -2 car on retrouve une ligne vide après avoir entrer le dernirer élément dans le tableau

Duracelle
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 115 internautes nous ont dit merci ce mois-ci

Messages postés
28
Date d'inscription
dimanche 26 janvier 2003
Statut
Membre
Dernière intervention
16 août 2009

Dim hFile As Integer
Dim sAvandernierLigne As String
Dim lsTab() As String

hFile = FreeFile

Open App.Path & "" & NomDuFichier For Input As #hFile
Do While Not EOF(hFile) ' Effectue la boucle jusqu'à la fin du fichier.
Line Input #hFile, TextLine
lsTab() = TextLine
Loop
Close #hFile
sAvandernierLigne = lsTab(Ubound(lsTab)-1)

Duracelle
Messages postés
38
Date d'inscription
mardi 4 avril 2006
Statut
Membre
Dernière intervention
19 septembre 2006

ok ca devrais marcher mais cela ne marche pas par contre j'ai fait comme ca

Dim hFile As Integer
Dim derniereLigne
Dim lsTab
Dim textline
Dim sAvandernierLigne
hFile = FreeFile

Open App.Path & "\datas" & "\com.txt" For Input As #hFile
Do While Not EOF(hFile) ' Effectue la boucle jusqu'à la fin du fichier.
Line Input #hFile, textline
lsTab = textline
Loop
Close #hFile
sAvandernierLigne = lsTab

et la lsTab = ma derniere ligne

donc n'aurrier vous pas de quoi effacer ma dernier ligne (sans imoptance) que mon avant derniere ligne devienne la derniere et que je puisse la lire avec le code ci desus
Messages postés
38
Date d'inscription
mardi 4 avril 2006
Statut
Membre
Dernière intervention
19 septembre 2006

ok s'est cool s'est sa  merci beaucoup
Messages postés
1
Date d'inscription
vendredi 18 janvier 2008
Statut
Membre
Dernière intervention
19 janvier 2008

bonjour

moi aussi j'ai le même probleme
j'essaye de trier un fichier texte plusieurs ligne avec tabulation

exemple

tel nom adresse ville cp

et des fois je veux trier par tel ou par adresse etc ...

merci de me repondre

Mourad
Messages postés
8
Date d'inscription
vendredi 28 septembre 2007
Statut
Membre
Dernière intervention
8 janvier 2010

Meme topo pour moi qui galer avec VB.
dur de trier par nom, prenom,age etc...
Pour le stockage des donnees, un ichier texte séparé par un trait vertical est il LA solution à preferer ?
Merci pour votre réponse
SPHERIS5