[R] Filewrite qui me rend fou

[cedric]

Bonjour à tous,

J'essaie de faire écrire un fichier au3 en me servant de filewrite.
Je me galère un peu car je n'arrive pas à avoir le résultat que je veux.

J'aimerais que le filewrite m'écrive ceci dans un fichier au3 (par exemple test.au3 :

Code : Tout sélectionner

If FileExists (@ProgramFilesDir & "\Agent\agent.exe") Then
    fileCopy ("Agent-National.exe", @StartupDir & "\Agent-National.exe")
Else
    $installocsagent MsgBox (4,"Information", "L'agent n'est pas installé sur cette machine, voulez-vous l'installer ?")
    if $installocsagent = 7 Then
        MsgBox (16, "Information", "Installation annulée par l'utilisateur")
        Exit
    Else
        RunWait ("\AgentSetup.exe /S /NOSPLASH /SERVER:srv.fr /NP /TAG:' & $tagunity & '")
        SplashTextOn ("Information", "Installation de l'agent terminée")
        Sleep (2000)
        fileCopy ("Agent-National.exe", @StartupDir & "\Agent-National.exe")
        SplashOff ()
    EndIf
EndIf
 

Je me suis repris comme je fais d'habitude pour plusieurs lignes, mais là impossible de mettre le tout ligne par ligne .....
J'ai mis des @CRLF, j'ai essayé en faisant plusieurs filewrite mais je n'y arrive pas.... (je doit être un peu fatigué aussi .... c'est lundi )
Est ce que quelqu'un aurait une technique infaillible pour ça ?

Merci d'avance

[pop45]

Code : Tout sélectionner

filewrite ( "test2.au3",'If FileExists (@ProgramFilesDir & "\Agent\agent.exe") Then' & @CRLF & _
'    fileCopy ("Agent-National.exe", @StartupDir & "\Agent-National.exe")' & @CRLF & _
'Else' & @CRLF & _
'    $installocsagent MsgBox (4,"Information", "L' & "'" & 'agent n' & "'" & 'est pas installé sur cette machine, voulez-vous l'& "'"&'installer ?")' & @CRLF & _
'    if $installocsagent = 7 Then' & @CRLF & _
'        MsgBox (16, "Information", "Installation annulée par l' & "'" & 'utilisateur")' & @CRLF & _
'        Exit' & @CRLF & _
'    Else' & @CRLF & _
'        RunWait ("\AgentSetup.exe /S /NOSPLASH /SERVER:srv.fr /NP /TAG:" & $tagunity & ")' & @CRLF & _
'        SplashTextOn ("Information", "Installation de l' & "'" &'agent terminée")' & @CRLF & _
'        Sleep (2000)' & @CRLF & _
'        fileCopy ("Agent-National.exe", @StartupDir & "\Agent-National.exe")' & @CRLF & _
'        SplashOff ()' & @CRLF & _
'    EndIf' & @CRLF & _
'EndIf' & @CRLF )

Voila un code fonctionnel, du moin, sur ma machine

[cedric]

Bonjour,

En fait j'ai réussit il y a une petite demi heure.

Merci.

[Jerome]

Coucou,


Sa serait bien de donner le code de la solution ...
M'enfin ...




Jérôme