[R] Afficher TxT dans une Gui

[auto]

Bonjour à tous

Voila donc je voudrais savoir s'il est possible d'afficher dans une gui le contenu d'un fichier texte ?

[ani]

Bonjour et soit le bienvenu auto

la réponse sera oui

Code : Tout sélectionner

#include <GUIConstants.au3>
$Tonfichier = ".\Affiche.txt"  ; le fichier se trouve à l'emplacement du script
$iFile = Fileread($Tonfichier, FileGetSize($Tonfichier))

$Form = GUICreate("TEST", 322, 186, 193, 125)
$Edit = GUICtrlCreateEdit("", 8, 40, 305, 137) 
Guictrlsetdata($Edit,$iFile) ; on ajoute au controle edit le fichier texte

GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

[auto]

ok merci ani !

C'est ce que je cherchais.
Cependant comment obtenir le texte brute s'affichant dans la gui, c'est à dire sans bordure ni "fenêtre blanche d'édition" ?

[Tlem]

Comme ceci :

Code : Tout sélectionner

#include <GUIConstants.au3>

$File = FileOpen("test.csv", 0)
If $file = -1 Then
    MsgBox(0, "Erreur", "Impossible d'ouvrir le fichier.")
    Exit
EndIf

$Text = FileRead($file)

FileClose($file)

$Gui = GUICreate("TEST", 322, 186, 193, 125)

$Label1 = GUICtrlCreateLabel($Text, 30, 10, 310, 186) ; Modifier les valeurs pour
;                                                       placer le text ou vous voulez.

GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

@ani : n'oublie pas qu'il faut utiliser FileOpen avant le FileRead

[ani]

il me semble que dans ce cas il ne faut pas
mais bon vu que je suis novice, je vais t'écouter
merci

[Tlem]

il me semble que dans ce cas il ne faut pas

Il n'y a pas de : Il faut ou Il faut pas !
Tu peut faire sans si tu le veut, mais cela ne te fera rien gagner de plus (A part 2 lignes de code), mais surtout tu risque de prendre de mauvaises habitudes, et de l'oublier.
Pour un texte court ça va, mais pour un texte beaucoup plus conséquent cela risque de fortement ralentir le code.
Voici ce que dit l'aide de FileRead :

If a filename is given rather than a file handle - the file will be opened and closed during the function call - for parsing large text files this will be much slower than using filehandles.

Comme nous sommes sur un forum d'entraide, il me semble plus judicieux de donner la méthode complète pour lire un fichier, et si au final l'utilisateur veux simplifier le code en supprimant la gestion d'erreur et l'ouverture du fichier ... libre a lui.

[auto]

merci

une autre question aussi :
Que dois-je ajouter pour pouvoir superposer le texte sur une image de fond

Quand je met un GUICtrlCreatePic() une partie de l'image est couverte par un rectangle dedier a l'affichage du texte

Y a t-il un truc du genre transparence a ajouter ?

[auto]

non ?

[Firefox2]

Tu peux utiliser

Code : Tout sélectionner

GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)