[Résolu][Basic]Utilisation de Stream en mode Append.

[Thanauser]

Bonjour,
Pour écrire dans des fichiers au format UTF-8, j'utilise les 'streams' de la façon suivante :

Code : Tout sélectionner

	GlobalScope.BasicLibraries.loadLibrary("Tools")
	FileDirectory = Tools.Strings.DirectoryNameoutofPath(document.getURL(), "/")
	MyFile = FileDirectory & "/MyFile.txt"

	fileaccess = createUnoService ("com.sun.star.ucb.SimpleFileAccess")
	outtextstream = createUnoService ("com.sun.star.io.TextOutputStream")
	out = fileaccess.openFileWrite(MyFile)
	encoding = "UTF-8"
	outtextstream.setEncoding(encoding)
	outtextstream.setOutputStream(out)

Et j'écris avec l'instruction write :

Code : Tout sélectionner

outtextstream.writeString("bla bla")

ça fonctionne parfaitement, mais je n'ai pas trouvé comment écrire en fin de fichier, ça écrit (écrase) toujours au début le contenu du fichier. Je cherche donc à ouvrir un stream en mode "Append" similaire à :

Code : Tout sélectionner

Open MyFile For Append access write as #1

Ou à pointer à la fin du stream avec une méthode Seek ou autre.

Je ne vois pas de raison particulière à utiliser les streams (dont je n'ai pas saisi l'intérêt par rapport à l'autre méthode), mais vu que je n'arrive pas non plus à formater correctement via Open MyFile.

Donc les questions (j'aurais dû commencer par ça ) :
- Comment ouvrir un stream en mode append ?
- Ou Comment pointer sur la fin d'un stream (si ça a du sens de parler de fin de stream) ?
- Ou Comment écrire en UTF-8 dans un fichier texte via print ou write ?

Merci d'avance !

[Jurassic Pork]

Hello,
si tu utilises LibreOffice, depuis la version 7.2 il y a la bibliothèque ScriptForge qui est disponible et elle a en particulier des services pour gérer les fichiers.
Exemple d'utilisation :

Code : Tout sélectionner

Sub TestFicUTF8()
GlobalScope.BasicLibraries.LoadLibrary("ScriptForge")
Dim FSO As Variant
Dim myFile As Object
FSO = CreateScriptService("FileSystem")
FSO.FileNaming = "SYS"
Set myFile = FSO.OpenTextFile("D:\Temp\MonFichier.txt", FSO.ForWriting,True,"UTF-8")
myFile.Writeline("Première partie")
myFile.CloseFile()
Set myFile = FSO.OpenTextFile("D:\Temp\MonFichier.txt", FSO.ForAppending)
myFile.Writeline("Deuxième partie")
myFile.CloseFile()
End Sub

Résultat :

Monfichier.PNG

Ami calmant, J.P

[Thanauser]

Merci beaucoup !
ça me semble résoudre mes problèmes. Je vais tester de suite (le temps de reprendre une ancienne version de LO, suite à une màj, mon code ne fonctionne plus ).

Edit. Après tests ça fonctionne exactement comme souhaité (Vers l.o:7.2.6.2). Merci encore.

[Dude]

Salut,

comment écrire en fin de fichier

Il faut agir avec la méthode seek et la propriété Length du flux récupéré.

[Thanauser]

Merci pour cette précision. C'est bien ce que j'avais tenté mais j'ai dû mal m'y prendre. Je tenterai à nouveau.

[Dude]

C'est bien ce que j'avais tenté mais j'ai dû mal m'y prendre.

Je ne vois pas ces instructions dans le code que tu publies.