[..] Derniere ligne dans un fichier TXT, msgbox

Aide et conseils concernant AutoIt et ses outils.
Règles du forum
.
Répondre
Flop
Niveau 3
Niveau 3
Messages : 48
Enregistré le : lun. 20 oct. 2008 16:48
Status : Hors ligne

[..] Derniere ligne dans un fichier TXT, msgbox

#1

Message par Flop »

Bonsoir, à tous,

je n'arrive pas a faire ce que je veux, j'aimerais inclure dans mon script un code qui va me permettre d'ecrire dans un fichier txt les dernieres modifs, j'arrive à ecrire dans un fichier, mais pas comme je voudrais.. je vous explique :

la variable $ce_que_je_veux_ecrire, contient la date + le nom d'un fichier, et j'aimerais que ca s'inscrive dans mon txt, avec le dernier ajout toujours sur la premiere ligne et que ca décale les autres au fur et a mesure de facon a toujours avoir la derniere inscription sur la premiere ligne, par exemple

24/11/08 - inscription 1.txt
23/11/08 - inscription 2.txt
14/11/08 - inscription 8.txt

et ensuite si possible afficher une msgbox avec les "15" dernieres modifs.

J'ai essayer avec la fonction FileWrite, mais je n'arrive pas à décaler les précédentes inscriptions, merci d'avance de votre aide.
Avatar du membre
minoui
Niveau 4
Niveau 4
Messages : 58
Enregistré le : jeu. 01 mai 2008 21:01
Localisation : Paris 13
Status : Hors ligne

Re: [..] Derniere ligne dans un fichier TXT, msgbox

#2

Message par minoui »

As-tu penser a faire sa avant de placer tes infos ?:
► Afficher le texteCode
Boom head-shot
Flop
Niveau 3
Niveau 3
Messages : 48
Enregistré le : lun. 20 oct. 2008 16:48
Status : Hors ligne

Re: [..] Derniere ligne dans un fichier TXT, msgbox

#3

Message par Flop »

je viens d'essayer ca marche pas..
Avatar du membre
Tlem
Site Admin
Site Admin
Messages : 11796
Enregistré le : ven. 20 juil. 2007 21:00
Localisation : Bordeaux
Status : Hors ligne

Re: [..] Derniere ligne dans un fichier TXT, msgbox

#4

Message par Tlem »

De manière très épuré (sans tous les contrôles qu'il faudrait) :

Code : Tout sélectionner

$MyVar = @MDAY & "/" & @MON & "/" & @YEAR & " - " & @HOUR & ":" & @MIN & ":" & @SEC

_EcritAuDebutDuFichier("Fichier.log", $MyVar)


Func _EcritAuDebutDuFichier($File, $MyVar)
    Local $Log
    If FileExists($File) Then
        $Log = FileRead($File)
    EndIf

    $MyVar = $MyVar & @CRLF & $Log

    $hFile = FileOpen($File, 2)
    FileWrite($hFile, $MyVar)
    FileClose($hFile)
EndFunc   ;==>_EcritAuDebutDuFichier
Si le fichier doit être de taille assez conséquente (plusieurs dizaines de Mo), il faudra passer par une autre méthode.
Thierry

Rechercher sur le forum ----- Les règles du forum
Le "ça ne marche pas" est une conséquence commune découlant de beaucoup trop de raisons potentielles ...

Une idée ne peut pas appartenir à quelqu'un. (Albert Jacquard) tiré du documentaire "Copié n'est pas volé".
Répondre