Page 1 sur 1
[R] Problème lecture fichier .txt toute provenance
Posté : mer. 04 juin 2014 18:38
par 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
Re: [..] Problème lecture fichier .txt toute provenance
Posté : mer. 04 juin 2014 20:07
par 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.
Re: [..] Problème lecture fichier .txt toute provenance
Posté : mer. 04 juin 2014 20:22
par FloodAsh522
Merci de ton aide tu me sauve la vie
Re: [..] Problème lecture fichier .txt toute provenance
Posté : mer. 04 juin 2014 20:23
par blacksoul305
N'oubliez pas de passer le sujet en résolu en éditant le titre de votre premier message. Merci !
Re: [..] Problème lecture fichier .txt toute provenance
Posté : mer. 04 juin 2014 20:23
par 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