L'idée : Moi SmErT
Les développeur merci
ORAX : Pour le scripte de transcodage
ARRKHAN:
de l'interfaceANI :la commande de l'application
est un merci à Eliferion
Code : Tout sélectionner
#include <GuiConstantsEx.au3>
#Include <GuiEdit.au3>
;creation de l'interface graphique.
$Gui = GUICreate("Fr to Ru", 800, 600)
GUICtrlCreateLabel("Texte en français : ", 10, 10)
;je tape mon texte
$PrononciationFrancais = GUICtrlCreateEdit("", 10, 30, 780, 250) ;la j'ai pas pu faire introduire cette ligne en tant que variable.
;puis la je clique sur le bouton.
$Button = GUICtrlCreateButton(" Transcoder en russe ", 10, 290); mais j'ai aucune idée pour commander la traduction avec le bouton.
;et la le texte sera Transcoder en russe a l'aide de ton script
$PrononciationRusse = GUICtrlCreateEdit(conv_PrononciationFr_vers_Ru(""), 10, 325, 780, 250);sa veux dire salut comment ça va lol
GUISetState()
Func conv_PrononciationFr_vers_Ru($PrononciationFrancais)
; séparateur pour déterminer si l'élément a déjà été converti
Local Const $S="/"
Local Const $NB_CARACTERES=41
; IMPORTANT : les caractères sont à placer dans l'ordre prioritaire
Local Const $fr[$NB_CARACTERES] = ["ie", "ye", "io", "yo", "kh", "ts", "chtch", "iou", "ïou", "you", "ia", "ïa", "ya", "ou", "tch", "ch", "а", "b", "v", "g", "d", "j", "z", "i", "ï", "k", "l", "m", "n", "o", "p", "r", "s", "t", "u", "f", "h", '"', "y", "'", "e"]
Local Const $ru[$NB_CARACTERES] = ["е", "е", "ë", "ë", "х", "ц", "щ", "ю", "ю", "ю", "я", "я", "я", "у", "ч", "ш", "a", "б", "в", "г", "д", "ж", "з", "и", "й", "к", "л", "м", "н", "о", "п", "р", "с", "т", "у", "ф", "х", "ъ", "ы", "ь", "э"]
Local $c=$PrononciationFrancais
; double la chaine repréntant le séparateur pour la reconnaître
$c=StringReplace($c,$S,$S & $S)
; remplacement des caractères
For $i=0 To $NB_CARACTERES-1
$c=StringRegExpReplace($c,$fr[$i] & "(?=" & $S & $S & "|[^/]|)",$ru[$i] & $S)
Next
; supprime les séparateurs ajoutés
$c=StringRegExpReplace($c,$S & "(?!" & $s & ")","")
$c=StringReplace($c,$S & $S,$S)
Return $c
EndFunc
While 1
$msg = GuiGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
case $Button
GUICtrlSetData($PrononciationRusse,conv_PrononciationFr_vers_Ru(GUICtrlRead($PrononciationFrancais, 1)))
EndSwitch
WEnd
Pour que les caractères cyrillique soie afficher dans SciTE sélectionner UTF-8 BOM dans Encoding.
aaaa si vous voulez améliore tous sa c'est a vous.
moi je crois que je vais ajouter un petit dictionnaire qui souligne les mots avec des erreur car le transcodage phonétique est a 65% de juste
. Merci a AUTOIT.