Discussion :

[bob633]

Bonjour,

Désolé pour le titre peu explicite.

En fait, j'ai besoin de créer un fichier VBS qui sera exécuté par une tâche planifié. Voilà mon soucis ..

J'aimerais écrire une ligne dans ce fichier, avant qu'il soit liberé par le script.

Derrière j'ai un EAI, Biztalk pour les connaisseur qui va aspirer le fichier dès sa création.

voici le code de mon vbs :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Const ForReading = 1, ForWriting = 2
Set WshShell = WScript.CreateObject("WScript.Shell")
Dim fso, f, datejour, heure
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("E:\SAP_GAL\Outbound\entreeBiztalk.xml", ForWriting,true)
 
datejour = Date-1
heure = Time
f.writeline("<ns0:Y_TTIPMXX_EXTRACT_PM_DATA xmlns:ns0='http://Microsoft.LobServices.Sap/2007/03/Rfc/'><ns0:I_DATUM>" & Year(datejour) & Month(datejour) & Day(datejour) &"</ns0:I_DATUM><ns0:I_UZEIT>" & Hour(heure) & Minute(heure) & Second(heure) & "</ns0:I_UZEIT><ns0:OT_CHARACT_CHAR></ns0:OT_CHARACT_CHAR><ns0:OT_CHARACT_CURR></ns0:OT_CHARACT_CURR><ns0:OT_CHARACT_NUM></ns0:OT_CHARACT_NUM><ns0:OT_DATA></ns0:OT_DATA><ns0:OT_ETALON></ns0:OT_ETALON><ns0:OT_RETURN></ns0:OT_RETURN></ns0:Y_TTIPMXX_EXTRACT_PM_DATA>")

Le problème est que le fichier est crée, et on écrit la ligne après, non ? Y a t'il un moyen de créer le fichier une fois les lignes écrites ?

Merci !

[pitchalov]

Salut,

Ecrire des lignes dans un fichier qui n'existe pas risque d'être compliqué...
Par contre, tu peux écrire ton contenu dans le fichier dès sa création :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Const ForWriting = 2
Set fso = CreateObject("Scripting.FileSystemObject")
datejour = Date-1
heure = Time
fso.OpenTextFile("E:\SAP_GAL\Outbound\entreeBiztalk.xml", ForWriting,true).writeline("blablabla" & Year(datejour) & Month(datejour) & Day(datejour) &"blablabla" & Hour(heure) & Minute(heure) & Second(heure) & "blablabla")

Cela dit je ne pense pas que ça change grand chose par rapport à ton code, étant donné que très peu d'instructions sont faites entre la création de l'objet "File" et l'écriture de la ligne.

Autre chose, lorsque tu ouvres un fichier avec opentextfile ou createtextfile, il est conseillé de le fermer avec la méthode close après lecture ou écriture.

Bonne continuation.

[omen999]

salut,
si biztalk est réactif au point de pomper le fichier avant l'écriture de la ligne, il reste l'objet Stream du composant ADO