je vous présente un de mes petits script , anti yaourt. on choisie les paroles a partir d'un fichier txt , puis on les mets dans un edit (et c'est la le problème) puis on choisie sa musique , et c'est partie
. Mon problème c'est que quand je c j'ai choisie le fichier txt , il m'affiche que la première ligne :$ j'ai essayer d'y remédier (aide d'autoit) mais je bloque... je vous montre le code :Code : Tout sélectionner
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <file.au3>
#include <Sound.au3>
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Anti yahourt", 422, 429, 467, 48)
Global $Edit1 = GUICtrlCreateEdit("", 16, 72, 297, 289)
GUICtrlSetData(-1, "Edit1")
Global $Button1 = GUICtrlCreateButton("Charger texte", 16, 24, 75, 25, $WS_GROUP)
Global $Label1 = GUICtrlCreateLabel("emplacement : ", 104, 32, 271, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
Global $Button2 = GUICtrlCreateButton("Charger Musique", 16, 384, 97, 25, $WS_GROUP)
Global $Label2 = GUICtrlCreateLabel("Emplacement :", 136, 392, 261, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
Global $Button3 = GUICtrlCreateButton("Go !", 328, 328, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$s = 0
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$SourceFile = FileOpenDialog("anti yahourt",@ScriptDir&'\',"fichiers txt (*.txt)",9)
GUICtrlSetData($Label1,""& $SourceFile)
If $SourceFile = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
$line = FileReadLine($SourceFile,1)
If @error = -1 Then ExitLoop
GUICtrlSetData($Edit1,$line)
Case $Button2
$SourceFile2 = FileOpenDialog("anti yahourt",@ScriptDir&'\',"fichiers mp3 (*.mp3)",9)
GUICtrlSetData($Label2, $SourceFile)
Case $Button3
SoundPlay($SourceFile2)
EndSwitch
WEnd
FileClose($SourceFile)EDIT: Modification du script + meilleur présentation
Code : Tout sélectionner
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <file.au3>
#include <Sound.au3>
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Anti yahourt", 480, 489, 362, 5)
GUISetBkColor(0xFFFFFF)
Global $Edit1 = GUICtrlCreateEdit("", 8, 72, 465, 297)
GUICtrlSetData(-1, "le texte s'affichera ici")
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xF0F0F0)
Global $Label1 = GUICtrlCreateLabel("emplacement : ", 72, 32, 271, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
Global $Label2 = GUICtrlCreateLabel("Emplacement :", 72, 392, 261, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
Global $Pic1 = GUICtrlCreatePic(@ScriptDir&"\data\images.jpg", 26, 384, 33, 34, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Global $Pic2 = GUICtrlCreatePic(@ScriptDir&"\data\61149.gif", 16, 16, 49, 41, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Global $Pic3 = GUICtrlCreatePic(@ScriptDir&"\data\266991.gif", 168, 440, 49, 33, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Global $Label3 = GUICtrlCreateLabel("By Kevzi", 408, 456, 45, 17)
GUICtrlSetColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Pic2
$SourceFile = FileOpenDialog("anti yaourt",@ScriptDir&'\',"fichiers txt (*.txt)",9)
GUICtrlSetData($Label1,""& $SourceFile)
If $SourceFile = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
$line = FileRead($SourceFile)
If @error = -1 Then ExitLoop
GUICtrlSetData($Edit1,$line)
Case $Pic1
$SourceFile2 = FileOpenDialog("anti yahourt",@ScriptDir&'\',"fichiers mp3 (*.mp3)",9)
GUICtrlSetData($Label2, $SourceFile2)
Case $Pic3
MsgBox(0, "Anti yaourt", "3")
MsgBox(0, "Anti yaourt", "2")
MsgBox(0, "Anti yaourt", "1")
SoundPlay($SourceFile2)
EndSwitch
WEnd
FileClose($SourceFile)
FileClose($SourceFile2)
suffit de remplacer