[R] Ecrire ce qu'il y'as dans un fichier texte.

[Kikoolol]

Bonsoir a tous et a tous !

Donc voici mon code :

Code : Tout sélectionner

While True 
    MouseClick( "left", 165, 973, 1, 0)
    sleep(1500)
    Send("[color=#FF0000]LE TEXTE[/color]")
    sleep(2000)
    send("{ENTER}")
WEnd

Donc je voudrais savoir si c'est possible, que mon texte varie en fonction d'un fichier.
J'explique, je voudrais que le script écrive ce qu'il y'as dans un fichier, il entame la boucle,
il regarde dans le fichier texte en question ce qu'il y'as marquer, et il écrit la même chose entre les guillemets.

Voilà je voudrais savoir si c'est possible ! Merci d'avance.

[genaille08]

cela depend de l'extension du fichier a lier

regarde dans l'help du coter de fileread ou filereadline ...

si c'est un fichier en extension ini regarde iniread ... inireadsection ...

[Kikoolol]

Mon extension et en .txt (je peux aussi mettre .ini si je le souhaite)

La plupart des fonctions (FileRead ou autre) Ne fond que me lire le fichier texte,
ecrire dedans, ou bien me présenter les lignes.

Moi je voudrais que AutoIT ouvre le fichier (Dans sa tête), copie ce qu'il y'as dedans, et le copie a la suite du script.
Je sais pas si tout le monde ma compris donc je vais essayer d'être clair

Le script ( le seul l'unique )

= Démarrage :

Lit ce qu'il y'as de la fichier bidule.txt et fait copier.
Ouvre un autre fichier .au3 et copie ça, dans cette endroit précis !
Sauvegarde. End

Ece que juste la partie en rouge et possible ?

[Tlem]

Ece que juste la partie en rouge et possible ?

Oui, mais ce n'est pas très logique/précis.

Si je m'en tiens à votre demande, vous voulez lire le contenu d'un fichier texte, puis le coller dans un fichier .au3 !!!
Mais si c'est bien cela, il vous suffit tout simplement de copier le fichier bidule.txt vers le fichier bidule.au3 !!!

Utilisez la fonction FileCopy().

[genaille08]

pourquoi pas un $var = filereadline ( bidule.txt ... )
avec un filewriteline ( $var, bidule.au3 ... )

[Kikoolol]

[Wow quelle rapidité de réponse ]
En fait je ne sais pas exactement quelle technique utilisé,
je vais donc vous dire ce que je veux réaliser, vous me direz la meilleurs solution :

Mon script

Alors, je voudrais que mon application fonctionne en .exe

Donc je vais essayer de vous expliquer clairement ce que je veux que le programme (ou le script fasse)

- Imagine, une fenêtre ou ont peut écrire (une fenêtre de Chat par exemple)

- 4 fichiers .txt situé dans le même dossier que le script

Voilà ce que je dirait a mon script si il parlait français ( ) =

"Alors mon coco, c'est très simple, tu copie le texte qui se trouve dans le fichier texte n°1,
tu réecrit le même (ou tu le colle) dans la fenêtre de chat, et t'appuie sur "Entrée" !
Et tu fait pareil avec les 3 autres fichiers texte en boucle !"

Voilà merci d'avance vous êtes géniaux !

(Juste une dernière petite précision : Pour le chemin des fichiers .txt , ce serait cool que le script cherche dans le dossier ou il est lancer, et non pas dans c:/programme.....
Et aussi, pour la fenêtre de chat faite juste comme si c'était un endroit, l'important c'est surtout le txt :=) )

[genaille08]

(Juste une dernière petite précision : Pour le chemin des fichiers .txt , ce serait cool que le script cherche dans le dossier ou il est lancer, et non pas dans c:/programme.....

ça c'est facile
regarde la macro @scriptdir

après pour le reste je ne connais pas d'autre technique que la mienne donc je laisse la main

[Kikoolol]

Ah bhin oui suis-je bête !
J'avais oublier le "@scriptdir" !

Mais, pour le reste, j'ai chercher toutes la journée, et nada ...

[Kikoolol]

Personne ?
C'est impossible ou bien c'est a cause des vacances ? ^^

[Artemis]

Bien sûr que si c'est possible . Voila une possibilité :

Code : Tout sélectionner

#NoTrayIcon
#include <File.au3>

Dim $fichiern, $filelines, $line
$fichiern = 0

While 1
    $fichiern = $fichiern + 1
    If Not FileExists("fichier" & $fichiern & ".txt") Then
        MsgBox(64,"Boucle","Boucle terminée !")
        Exit
    Else
        _FileReadToArray("fichier" & $fichiern & ".txt",$filelines)
        $line = 0
        While $line < $filelines[0]
            $line = $line + 1
            Send($filelines[$line])
            Send("{ENTER}")
            Sleep(100)
        WEnd
    EndIf
WEnd       

Tes fichiers doivent se nommer fichier1.txt, fichier2.txt, etc...

Artemis

[Kikoolol]

Wow merci beaucoup Artemis ça marche nickel !
Exactement ce que je voulais !

Mais par contre, quand le script a finit de taper mes 4 fichiers, il m'affiche une msgbox avec "boucle Terminer", et je voudrais savoir si c'est possible de dire que dés qu'il a taper les 4 fichiers, qu'il recommence a les taper en boucle, c'est faisable ?

Encore un gros merci !

[Artemis]

Bien sur, voilà le code :

Code : Tout sélectionner

#NoTrayIcon
#include <File.au3>

Dim $fichiern, $filelines, $line

While 1
    $fichiern = 0
    While 1
        $fichiern = $fichiern + 1
        If Not FileExists("fichier" & $fichiern & ".txt") Then
        ExitLoop
        Else
            _FileReadToArray("fichier" & $fichiern & ".txt",$filelines)
            $line = 0
            While $line < $filelines[0]
                $line = $line + 1
                Send($filelines[$line])
                Send("{ENTER}")
                Sleep(100)
            WEnd
        EndIf
    WEnd
WEnd

Tout simplement

Artemis