fichier texte, trier.Résolu

Question

bonjous a tous     voil&#224;   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&#233;)
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

Duracelle · Accepted Answer

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

Duracelle · Answer

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'&#224; la fin du fichier.
            Line Input #hFile, TextLine
            lsTab() = TextLine
        Loop
    Close #hFile
    sAvandernierLigne = lsTab(Ubound(lsTab)-1)

Duracelle

grosminou_55 · Answer

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'&#224; 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

grosminou_55 · Answer

ok s'est cool s'est sa  merci beaucoup

cs_zizou30 · Answer

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

spheris5 · Answer

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

Fichier texte, trier.

6 réponses

Discussions similaires