Append inverseRésolu

Question

Bonjour ami(e)s programmeurs et programmeuzes,

Tout d'abord je m'excuse Oo... par ce que je suis presque sur d'avoir deja vu ce post sur le forum, mais je le retrouve pas T_T.

J'aurais voulu savoir si la fonction Append pouvait s'utiliser ... comment dire... a l'envers.

En fait dans un fichier texte, quand j'ecris quelque chose avec Append il me met le dernier element rentré en dernier, ce qui est tout a fait logique, mais j'ai besoin de l'inverse.

Est ce qu'il existe quelque chose du style "ppendA" ou est ce qu'il faut utilisé le bon vieu algo d'inversment des valeurs d'un tableau??

jrivet · Accepted Answer

Salut,
Je ne connais pas de telle fonction.
En revanche tu peux essayer ceci (en attendant qu'un autre membre t'éclaire un peu plus sur le sujet)

Dim Contenu As String
Dim NumFile As Integer
NumFile = FreeFile
   'Récupère le contenu entier du fichier
   Open "C:\Test.LOG" For Binary As NumFile
   Contenu = String(LOF(NumFile), 0)
   Get #NumFile, , Contenu
   Put #NumFile, 1, "insere un ligne" & vbCrLf & Contenu
   Close #NumFile, ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

jrivet · Answer

Salut,
Qu'entends exactement par "inverse":
- tu souhaites ajouter en index "0" 
- Tu souhaites Lire le dernier et supprimer.

@+: Ju£i?n
Pensez: Réponse acceptée

cs_faucheuse · Answer

Par exemple : le fichier texte contient "machin"
si je fait un append pour ajouter "truc"
le fichier texte sera de la forme : 
machin
truc

Or moi je voudrais qu'il soit de la forme :
truc 
machin


...c'est append...a l'envers XD

cs_MPi · Answer

Je ne vois pas mieux que ce que jrivet(salut) a inscrit.
Tu places le fichier dans une variable, et tu écrases le fichier en inscrivant la nouvelle entrée avant l'ancien texte. C'est simple, rapide et efficace...

Pense à valider sa réponse si ça résoud ton problème...

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

cs_faucheuse · Answer

Ok merci je vais essayer (et t'inquiete dont pas je marque toujours les les reponses acceptées^^... quoi tu me connait peut etre pas, je suis le noob eternel qui hante le forum VBA depuis un moi XD)

Avant de pouvoir dire si ca marche ou quoi que se soit je vais regarder a quoi correspondent les fonctions que tu utilise (yen a une ou deux que je connais pas)

Sur ceux... bonjour^^

cs_faucheuse · Answer

heyyyy, impressionant, je pensais pas pouvoir faire ca en si peu de ligne (j'ai tellement a apprendre encore^^)

Va falloir que j'etudie un peu plus le Binary de la fonction Open, ca a l'air bien utile.

cs_faucheuse · Answer

je profite de ce post deja creer sur ce sujet pour demander, la méthodes Binary n'utilise que Get et Put??(c'est ce que j'ai vu sur un site)

cs_MPi · Answer

Oui

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

Append inverse

8 réponses

Votre réponse

Discussions similaires