Page 1 sur 1
[R] fileclose() ne ferme pas mon fichier txt
Posté : mar. 11 nov. 2008 10:28
par Linox
Bonjour, mon script ne ferme pas le fichier après la lecture:
► Afficher le texte
Code : Tout sélectionner
Dim $s_tex, $file
If FileExists("PostIT.txt") Then
$file = FileOpen("PostIT.txt", 0)
While 1
$line = FileReadLine($file)
_TalkOBJ($line)
Wend
Else
_TalkOBJ("Vous n'avez pas encore ajouter de texte au post it")
EndIf
Func _TalkOBJ($s_text)
Local $o_speech
$o_speech = ObjCreate("SAPI.SpVoice")
$o_speech.Speak ($s_text)
EndFunc
FileClose($file)
exit
Pouriez vous me dire ce qui ne va pas ?
Re: [..] Probléme avec fileclose
Posté : mar. 11 nov. 2008 12:14
par timmalos
Premièrement, merci de RESPECTER les règles de presentation.
Ce n'est pas la première fois qu'on vous le dit, et j'espère que ca sera la dernière.
La prochaine fois : Avertissement
Re: [..] fileclose() ne ferme pas mon fichier txt
Posté : mar. 11 nov. 2008 12:23
par Linox
Encore désolé
mais tou et différent d'un forum à l'autre et je me perd des fois
Re: [..] fileclose() ne ferme pas mon fichier txt
Posté : mar. 11 nov. 2008 12:59
par Tlem
Utilisez Scite4AutoIt et la fonction CTRL+T pour mieux présenter vos code.
Inutile de mettre autant d'espace entre les lignes...
Ceci fonctionne t-il ?
► Afficher le texte
Code : Tout sélectionner
Dim $s_text, $file
If FileExists("PostIT.txt") Then
$file = FileOpen("PostIT.txt", 0)
While 1
$line = FileReadLine($file)
_TalkOBJ($line)
WEnd
FileClose($file)
Else
_TalkOBJ("Vous n'avez pas encore ajouter de texte au post it")
EndIf
Exit
Func _TalkOBJ($s_text)
Local $o_speech
$o_speech = ObjCreate("SAPI.SpVoice")
$o_speech.Speak($s_text)
EndFunc ;==>_TalkOBJ
Re: [..] fileclose() ne ferme pas mon fichier txt
Posté : mar. 11 nov. 2008 13:20
par Linox
OK, je ne connaisser pas ce bbcode
non il ne se ferme toujours pas
Re: [..] fileclose() ne ferme pas mon fichier txt
Posté : mar. 11 nov. 2008 13:50
par Tlem
Cela veut sans doute dire que votre fonction _TalkOBJ() ne se termine pas correctement, et ne permet pas au script de se terminer correctement.
Re: [..] fileclose() ne ferme pas mon fichier txt
Posté : mar. 11 nov. 2008 13:52
par Linox
existe il un moyen de tuer la fonction ?
Re: [..] fileclose() ne ferme pas mon fichier txt
Posté : mar. 11 nov. 2008 14:09
par Tlem
Au lieu de lire les lignes une par une, stocker le texte dans une variable puis lisez le dans la fonction.
► Afficher le texte
Code : Tout sélectionner
Dim $s_text, $file, $txt
If FileExists("PostIT.txt") Then
$file = FileOpen("PostIT.txt", 0)
$txt = FileRead($file)
FileClose($file)
_TalkOBJ($txt)
Else
_TalkOBJ("Vous n'avez pas encore ajouter de texte au post it")
EndIf
Exit
Func _TalkOBJ($s_text)
Local $o_speech
$o_speech = ObjCreate("SAPI.SpVoice")
$o_speech.Speak($s_text)
EndFunc ;==>_TalkOBJ
Re: [..] fileclose() ne ferme pas mon fichier txt
Posté : mar. 11 nov. 2008 14:14
par Linox
Merci beaucoup c'est parfait
Re: [R] fileclose() ne ferme pas mon fichier txt
Posté : mar. 11 nov. 2008 14:49
par Linox
une autre question: serait-il possible d'enregsitrer la voi dans un fichier mp3 ou wav ?
Re: [R] fileclose() ne ferme pas mon fichier txt
Posté : mar. 11 nov. 2008 15:53
par Tlem
Utilisez le magnétophone de Windows en ajoutant l'entrée Mixage stéréo.
Cliquez sur le bouton rouge d'enregistrement, puis lancez votre script puis enfin le bouton stop.
Enregistrez votre fichier Wav et/ou convertissez le en MP3 avec un outil adéquate.
Re: [R] fileclose() ne ferme pas mon fichier txt
Posté : mar. 11 nov. 2008 16:05
par Linox
Donc il n'y a pas moyen de faire ca par le script lui même ?
Re: [R] fileclose() ne ferme pas mon fichier txt
Posté : mar. 11 nov. 2008 17:44
par Tlem