[R] Problème lecture fichier .txt toute provenance

[FloodAsh522]

Bonjour, je suis en train de créer un petit logiciel qui affiche un .txt via une GUICtrlCreateEdit, cependant le résulat est donné en langage qui n'a rien à voir avec le résulat voulu.

► Afficher le texte

Code : Tout sélectionner

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=favicon.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <array.au3>

Global $gui = GUICreate("Dokleia Info v1.0", @DesktopWidth/2 , @DesktopHeight/2)
Global $title = GUICtrlCreateLabel("Dokleia Info v1.0", 280, 0, 144, 22)
GUICtrlSetFont(-1, 14, 400, 0, "Calibri")
GUICtrlSetColor(-1, 0xFF0000)
$txt = InetRead("http://www.petit-fichier.fr/2014/06/04/new-1/new-1.txt",1)
Global $file = GUICtrlCreateEdit($txt, 5, 30, 250, 300, $ES_READONLY)
GUISetState(@SW_SHOW)

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE

        EndSwitch
WEnd

Le résulalt est:

► Afficher le texte

Code : Tout sélectionner

0x446F6B6C65696120312E372E322C2049703A2033372E3138372E3133362E3130303A32363130300D0A4C6520736572766575722061206265736F696E206465203130206575726F206176616E74206C652032322F30362F3230313420706F757220706F75766F69722061766F697220756E2068656265726765757220706C757320706572666F726D616E740D0A4661C3AE7465732064657320646F6E7320C3A0206365742075726C3A20687474703A2F2F7777772E6F6D67736572762E636F6D2F66722F636F6E747269627574652F3233303932322F0D0A56656E657A20746F75732021

Alors que cela aurait du être

► Afficher le texte

Code : Tout sélectionner

Dokleia 1.7.2, Ip: 37.187.136.100:26100
Le serveur a besoin de 10 euro avant le 22/06/2014 pour pouvoir avoir un hebergeur plus performant
Faîtes des dons à  cet url: http://www.omgserv.com/fr/contribute/230922/
Venez tous !

Je souligne que ce problème est aussi présent avec le FileRead, le FileWrite, avec les FTP, tout ce qui concerne les fichiers en fait.

Merci d'avance pour ceux qui m'aide

[blacksoul305]

Bonsoir,

il vous suffit de remplacer la ligne où vous créer l'edit par celle-ci.

Code : Tout sélectionner

Global $file = GUICtrlCreateEdit(BinaryToString($txt), 5, 30, 250, 300, $ES_READONLY)

En effet, vous récupérer le fichier sous forme binaire, vous avez donc besoin d'en faire la conversion en une chaîne de caractères.

EDIT :

Success: a binary string and @extended set to the number of bytes downloaded.

Ne pas hésiter à relire le fichier d'aide lorsque la commande que l'on utilise n'est pas assez familière.

[FloodAsh522]

Merci de ton aide tu me sauve la vie

[blacksoul305]

N'oubliez pas de passer le sujet en résolu en éditant le titre de votre premier message. Merci !

[yohan8]

Une alternative

Code : Tout sélectionner

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=favicon.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <array.au3>

Global $gui = GUICreate("Dokleia Info v1.0", @DesktopWidth/2 , @DesktopHeight/2)
Global $title = GUICtrlCreateLabel("Dokleia Info v1.0", 280, 0, 144, 22)
GUICtrlSetFont(-1, 14, 400, 0, "Calibri")
GUICtrlSetColor(-1, 0xFF0000)
$oIE = ObjCreate("InternetExplorer.Application")
$oIE.navigate ("http://www.petit-fichier.fr/2014/06/04/new-1/new-1.txt")
$txt = $oIE.document.body.innerText
Global $file = GUICtrlCreateEdit($txt, 5, 30, 250, 300, $ES_READONLY)
GUISetState(@SW_SHOW)

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