A
Anonyme
Invité
Bonjour,Raahhh...
Décidément je sèche encore sur un truc : écrire dans un fichier.texte existant et ce en ajoutant le nouveau texte à la ligne suivante, j'ai donc écrit ce code :
Bloc de code:Dim FLASHAGE as FolderItem Dim stream3 as TextOutputStream FLASHAGE = SAVE.child("FLASHAGE du " + DATE).child("Flashage amalgames du " + DATE) If FLASHAGE <> Nil then stream3 = TextOutputStream.Create(FLASHAGE) FLASHAGE.MacCreator="ttxt" Stream3.WriteLine (Archive) Stream3.Close elseif FLASHAGE.Exists = true then Stream3.Write (Archive) Stream3.Close End if
Mais sans succès... Comment donc écrire dans un fichier.texte ayant déjà un contenu, et ce sans écraser ce contenu ?
Merci ,
BBFUNK01
Le problème est que FLASHAGE n'est pas nil même s'il n'existe pas.
Il sera nil que si un des child avant le dernier child n'existe pas, c'est logique pour qu'on puisse créér le dernier child ( un dossier ou un fichier)
Le code sera comme ceci.
Bloc de code:
Dim stream3 as TextOutputStream
FLASHAGE = SAVE.child("FLASHAGE du " + DATE).child("Flashage amalgames du " + DATE)
If FLASHAGE = Nil then // le dossier "FLASHAGE du " + DATE n'existe pas
SAVE.child("FLASHAGE du " + DATE).createAsFolder // création du dossier
FLASHAGE = SAVE.child("FLASHAGE du " + DATE).child("Flashage amalgames du " + DATE)
End if
if not FLASHAGE.Exists then // le fichier n"existe pas
stream3 = TextOutputStream.Create(FLASHAGE)
FLASHAGE.MacCreator="ttxt"
else // le fichier existe
stream3 = TextOutputStream.append(FLASHAGE)
End if
Stream3.Write (Archive)
Stream3.Close