Page 1 sur 1

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

Posté : jeu. 07 août 2008 19:10
par 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.

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

Posté : ven. 08 août 2008 00:19
par 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 ...

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

Posté : ven. 08 août 2008 22:42
par 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 :mrgreen:

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 ?

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

Posté : ven. 08 août 2008 22:50
par Tlem
Kikoolol a écrit :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 !!! :shock:

Utilisez la fonction FileCopy().

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

Posté : sam. 09 août 2008 01:05
par genaille08
pourquoi pas un $var = filereadline ( bidule.txt ... )
avec un filewriteline ( $var, bidule.au3 ... )

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

Posté : sam. 09 août 2008 03:35
par 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 ( :lol: ) =

"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 :=) )

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

Posté : sam. 09 août 2008 14:13
par 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

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

Posté : sam. 09 août 2008 21:52
par 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 ...

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

Posté : mar. 12 août 2008 01:51
par Kikoolol
Personne ?
C'est impossible ou bien c'est a cause des vacances ? ^^

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

Posté : mar. 12 août 2008 12:36
par Artemis
Bien sûr que si c'est possible Image . 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... Image

Artemis :D

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

Posté : jeu. 14 août 2008 00:19
par 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 !

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

Posté : jeu. 14 août 2008 10:49
par 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 Image

Artemis