AutoIt Français

Nouveau forum : http://www.autoitscript.fr/
 
AccueilFAQRechercherS'enregistrerMembresGroupesConnexionhttp://www.autoitscript.fr

Partagez | 
 

 Convertisseur Texte <=> Hexa

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
hellboy_21
Membre avancé


Nombre de messages : 56
Date d'inscription : 10/11/2006

MessageSujet: Convertisseur Texte <=> Hexa   2006-11-23, 10:15

Voici un petit convertisseur qui vous permettra de passer du texte à du code hexadécimal et vice versa en quelques clics ! Vous pourrez entre autre ouvrir un fichier comportant du texte ou de l'hexa et biensur vous pourrez enregistrer le code hexa ou le texte ainsi obtenu dans un fichier texte.

Voici le code :
[code]
#include
#include
#include
GUICreate("Texte / Hexadécimal",500,535)
Opt("GUIOnEventMode", 1)
$lblTexte = GUICtrlCreateLabel("Texte :",10,10)
$txtTexte = GUICtrlCreateEdit("",10,30,480,200)
$lblHexa = GUICtrlCreateLabel("Hexadécimal :",10,240)
$txtHexa = GUICtrlCreateEdit("",10,260,480,200)
$cmdConvertEnHexa = GUICtrlCreateButton("Texte => Hexadécimal",10,470,150)
GUICtrlSetOnEvent($cmdConvertEnHexa,"convertirEnHexa")
$cmdEffacer = GUICtrlCreateButton("Tout effacer",200,470,100)
GUICtrlSetOnEvent($cmdEffacer,"effacer")
$cmdConvertEnTexte = GUICtrlCreateButton("Hexadécimal => Texte",340,470,150)
GUICtrlSetOnEvent($cmdConvertEnTexte,"convertirEnTexte")
GUISetOnEvent($GUI_EVENT_CLOSE,"quitter")
$cmdSauvegarderEnHexa = GUICtrlCreateButton("Sauvegarder Hexadécimal",10,500,150)
GUICtrlSetOnEvent($cmdSauvegarderEnHexa,"SauvegarderEnHexa")
$cmdOuvrir = GUICtrlCreateButton("Ouvrir un fichier",200,500,100)
GUICtrlSetOnEvent($cmdOuvrir,"ouvrir")
$cmdSauvegarderEnTexte = GUICtrlCreateButton("Sauvegarder Texte",340,500,150)
GUICtrlSetOnEvent($cmdSauvegarderEnTexte,"SauvegarderEnTexte")
GUISetOnEvent($GUI_EVENT_CLOSE,"quitter")
GUICtrlSetState($txtTexte,$GUI_FOCUS)
$texteHexa = ""
GUISetState()
While 1
Sleep(10)
WEnd
Func ouvrir()
If GUICtrlRead($txtTexte) <> "" Or GUICtrlRead($txtHexa) <> "" Then
$choixOuverture = MsgBox(36,"Confirmation d'ouverture de fichier","Souhaitez-vous ouvrir un fichier bien que du texte ou du code hexadécimal existe déjà ?")
If $choixOuverture = 6 Then
Call("ouvertureFichier")
EndIf
Else
Call("ouvertureFichier")
EndIf
EndFunc
Func ouvertureFichier()
Call("effacer")
$choixFichier = FileOpenDialog("Choisissez le fichier texte à convertir",@MyDocumentsDir, "Fichier texte (*.txt)",1)
If Not @error Then
$fichier = FileOpen($choixFichier,0)
SplashTextOn("Travail en cours...",@CR & @LF&"Patientez...",200,60)
For $i = 1 To _FileCountLines($choixFichier)
$ligne = FileReadLine($fichier)
If StringIsXDigit($ligne) = 1 Then
GUICtrlSetData($txtHexa,GUICtrlRead($txtHexa)&$ligne&@CR & @LF)
Else
GUICtrlSetData($txtTexte,GUICtrlRead($txtTexte)&$ligne&@CR & @LF)
EndIf
Next
SplashOff()
FileClose($fichier)
EndIf
EndFunc
Func effacer()
GUICtrlSetData($txtTexte,"")
GUICtrlSetData($txtHexa,"")
GUICtrlSetState($txtTexte,$GUI_FOCUS)
EndFunc
Func convertirEnHexa()
If GUICtrlRead($txtTexte) <> "" Then
If GUICtrlRead($txtHexa) = "" Then
SplashTextOn("Travail en cours...",@CR & @LF&"Patientez...",200,60)
GUICtrlSetData($txtHexa,_StringToHex(GUICtrlRead($txtTexte)))
SplashOff()
Else
$choix = MsgBox(36,"Code hexadécimal déjà existant","Souhaitez-vous convertir le texte malgré le code hexadécimal déjà existant ?")
If $choix = 6 Then
SplashTextOn("Travail en cours...",@CR & @LF&"Patientez...",200,60)
GUICtrlSetData($txtHexa,_StringToHex(GUICtrlRead($txtTexte)))
SplashOff()
EndIf
EndIf
Else
MsgBox(64,"Impossible de convertir","Pour convertir du texte en hexadécimal, vous devez tout d'abord saisir du texte")
EndIf
EndFunc
Func convertirEnTexte()
If GUICtrlRead($txtHexa) <> "" Then
If GUICtrlRead($txtTexte) = "" Then
SplashTextOn("Travail en cours...",@CR & @LF&"Patientez...",200,60)
GUICtrlSetData($txtTexte,_HexToString(GUICtrlRead($txtHexa)))
SplashOff()
Else
$choix = MsgBox(36,"Texte déjà existant","Souhaitez-vous convertir le code hexadécimal malgré le texte déjà existant ?")
If $choix = 6 Then
SplashTextOn("Travail en cours...",@CR & @LF&"Patientez...",200,60)
GUICtrlSetData($txtTexte,_HexToString(GUICtrlRead($txtHexa)))
SplashOff()
EndIf
EndIf
Else
MsgBox(64,"Impossible de convertir","Pour convertir de l'hexadécimal en texte, vous devez tout d'abord saisir du code hexadécimal")
EndIf
EndFunc
Func SauvegarderEnHexa()
If GUICtrlRead($txtHexa) = "" Then
MsgBox(64,"Sauvergarde du code hexadécimal impossible","Pour effectuer la sauvegarde vous devez avant tout avoir du code hexadécimal")
Else
$texteHexa = "Hexa"
Call("sauvegarder")
EndIf
EndFunc
Func SauvegarderEnTexte()
If GUICtrlRead($txtTexte) = "" Then
MsgBox(64,"Sauvergarde du texte impossible","Pour effectuer la sauvegarde vous devez avant tout avoir du texte")
Else
$texteHexa = "Texte"
Call("sauvegarder")
EndIf
EndFunc
Func sauvegarder()
$fichierSauvegarde = FileSaveDialog( "Choisissez un nom de fichier",@MyDocumentsDir, "Texte (*.txt)", 19,$texteHexa&".txt")
If Not @error Then
If StringRight($fichierSauvegarde,4) <> ".txt" Then
$fichierSauvegarde = $fichierSauvegarde&".txt"
EndIf
If Not FileExists($fichierSauvegarde) Then
_FileCreate($fichierSauvegarde)
EndIf

$fichier = FileOpen($fichierSauvegarde, 2)
If $texteHexa = "Texte" Then
FileWrite($fichier,GUICtrlRead($txtTexte))
Else
FileWrite($fichier,GUICtrlRead($txtHexa))
EndIf
FileClose($fichier)

MsgBox(64,"Sauvegarde effectuée","La sauvegarde s'est bien déroulée")
EndIf
EndFunc
Func quitter()
If GUICtrlRead($txtTexte) <> "" Or GUICtrlRead($txtHexa) <> "" Then
$choixOuverture = MsgBox(36,"Fermeture du convertisseur","Êtes-vous certain de vouloir quitter l'application en cours ?")
If $choixOuverture = 6 Then
Exit
EndIf
Else
Exit
EndIf
EndFunc
[/code]
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
TerminAdminAtor
Admin
Admin


Nombre de messages : 234
Date d'inscription : 22/10/2006

MessageSujet: Re: Convertisseur Texte <=> Hexa   2006-11-23, 22:30

Et bien moi je l'aime bien ton petit convertisseur, graphique sympa et tout mais... j'ai encore dû chercher les includes qu'il fallait .

Je viens de remarquer ce bug, on dirait que les includes sont effacés automatiquement, donc je te conseil de les mettres en normal avant le code à chaque fois.

Sinon on pourrait ajouter le 'à la ligne' automatique.

#include <GUIConstants.au3>
#include <File.au3>
#include <string.au3>
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://autoit-fr.realbb.net
hellboy_21
Membre avancé


Nombre de messages : 56
Date d'inscription : 10/11/2006

MessageSujet: Re: Convertisseur Texte <=> Hexa   2006-11-23, 22:53

merci pour : [quote:08d8="TerminAdminAtor"]Et bien moi je l'aime bien ton petit convertisseur, graphique sympa[/quote] , moi aussi j'avais remarqué ce bug mais il est vrai que je n'ai pas pensé à les mettre en normal.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
josnaker
Membre


Nombre de messages : 42
Age : 25
Date d'inscription : 05/03/2007

MessageSujet: Re: Convertisseur Texte <=> Hexa   2007-03-06, 20:15

Merci,

Très pratique pour la création de .dll comme plugins;)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
ani
Modérateur
Modérateur


Nombre de messages : 563
Date d'inscription : 23/01/2007

MessageSujet: Re: Convertisseur Texte <=> Hexa   2007-03-07, 19:58

? tu peux expliquer stp
sa sert a quoi ce genre d'utilitaire ?

*vais de se code tester*


merci hellboy_21
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
josnaker
Membre


Nombre de messages : 42
Age : 25
Date d'inscription : 05/03/2007

MessageSujet: Re: Convertisseur Texte <=> Hexa   2007-03-26, 02:35

Sert à :



Text -> Hexadecimal

Hexadecimal -> Text
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
ani
Modérateur
Modérateur


Nombre de messages : 563
Date d'inscription : 23/01/2007

MessageSujet: Re: Convertisseur Texte <=> Hexa   2007-03-26, 02:49

[quote]Très pratique pour la création de .dll comme plugins;)[/quote]

je débute josnaker
héxa j'ai vu , idem pour le txt, mais ....voilà

merci pour vos aide
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
josnaker
Membre


Nombre de messages : 42
Age : 25
Date d'inscription : 05/03/2007

MessageSujet: Re: Convertisseur Texte <=> Hexa   2007-04-10, 00:49

Ce que je voulais dire c'est que certain .dll (Dynamic Link Library) utilise le language Hexadécimal, donc en transférant le text en hexadécimal, tu peux monter t'es propres .dll. Tandis que certain autre utilise le language C++ (que je ne comprend rien d'ailleurs)
Voila
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Convertisseur Texte <=> Hexa   Aujourd'hui à 22:41

Revenir en haut Aller en bas
 
Convertisseur Texte <=> Hexa
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» [Résolu] Texte impossible dans Outlook Express
» [résolu]Programmation - rotationde texte
» "Retenir un texte"
» texte défilant
» Texte flash + php

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
AutoIt Français :: AutoIt v3 :: Scripts-
Sauter vers: