[..] Afficher un tableau dans un RichEdit

[TomAijerrie]

Bonjour,

Pour ceux qui ont du temps devant eux, je vous propose de m'aider à résoudre mes problèmes.

Voulant participer à la traduction de la doc Autoit, je me suis créé un script pour rendre un peut plus ludique ces heures de labeur.

La base du script fonctionne mais je rencontre des petites difficultés dès que je veux utiliser des fonctions que je ne connais pas.

Par exemple, après avoir traduit une fonction je voudrais la prévisualiser.
J'utilise _GUICtrlRichEdit_Create et ses autres fonctions mais je ne sais pas créé un tableau dedans.

► Afficher le texte

Code : Tout sélectionner

#Region visualiseur de fonction
            If GUICtrlRead($Edit1) = "" Then
                MsgBox(48,"Erreur","Il n'y a aucune fonction à visualiser",5)
                Return SetError(1)
            EndIf

            Global $decal = 0

            Global $Form2 = GUICreate("Visionnese", 810, 800, 200, 120, $GUI_SS_DEFAULT_GUI,-1,$Form1)
            Global $hRichEdit = _GUICtrlRichEdit_Create($Form2, "", 10, 35, 790, 700, BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))
            If @error Then MsgBox(48,"Erreur","")
            Local $arrayfile = FileReadToArray($list[$funcnbr][MsgBoxAskLang()])
            GUISetState(@SW_SHOW,$Form2)

            If $arrayfile[0] = "" Then _ArrayDelete($arrayfile,0)
            For $k = 0 To UBound($arrayfile) -1
                Switch $arrayfile[$k]
                    Case "###Function###"
        ;~              richedit_titre("Fonction",8)
                        _GUICtrlRichEdit_setText($hRichEdit,"Fonction")
                        _GUICtrlRichEdit_SetSel($hRichEdit, 0 , 8)
                        _GUICtrlRichEdit_ChangeFontSize($hRichEdit,7)
                        _GUICtrlRichEdit_SetCharColor($hRichEdit,0x000080)
                        _GUICtrlRichEdit_AppendText($hRichEdit,@CRLF)
                        $decal += 1
                    Case "###Description###"
                        richedit_titre("Description",11)
                    Case "###Syntax###"
                        richedit_titre("Syntaxe",7)
                    Case "###Parameters###"
                        richedit_titre("Paramètres",10)
                    Case "###Example###"
                        richedit_titre("Exemple(s)",10)
                    Case "###Remarks###"
                        richedit_titre("Remarques",9)
                    Case Else
                        _GUICtrlRichEdit_AppendText($hRichEdit, $arrayfile[$k] & @CRLF)
                        $decal += 1
                        Sleep(500)
                EndSwitch
            Next
            Do
            Until GUIGetMsg() = $GUI_EVENT_CLOSE
            _GUICtrlRichEdit_Destroy($hRichEdit)
            GUIDelete($Form2)
            #EndRegion
 

Code : Tout sélectionner

Func richedit_titre($data,$taille)
    $tmp = _GUICtrlRichEdit_GetTextLength($hRichEdit,True,True) - $decal;_GUICtrlRichEdit_GetLineCount($hRichEdit);nombre de caractères autres que les retours à la ligne
    _GUICtrlRichEdit_AppendText($hRichEdit,$data);on met le texte
    _GUICtrlRichEdit_SetSel($hRichEdit, $tmp, $tmp + $taille);sélection de la dernière ligne écrite
    _GUICtrlRichEdit_ChangeFontSize($hRichEdit,7);on augmente la taille
    _GUICtrlRichEdit_SetCharColor($hRichEdit,0x000080);on change la couleur
    _GUICtrlRichEdit_AppendText($hRichEdit,@CRLF);on ajoute le retour à la ligne
    $decal += 1
EndFunc
 

Je voudrais ajouter la création d'un tableau lors de la détection de @@ParamTable@@ ou @@ReturnTable@@

Je ne suis pas obliger de passer par un RichEdit mais c'est la meilleur solution que j'ai actuellement trouvée.
Si vous avez d'autre idées ou codes...

J'ai aussi du mal à détecter un double clic sur une ligne de ListView

► Afficher le texte

Code : Tout sélectionner

Func _MyArrayDisplay(Const ByRef $avArray, $sSeparator = Chr(124), $sReplace = "|")
    If Not IsArray($avArray) Then Return SetError(1, 0, 0)
    ; Dimension checking
    Local $iDimension = UBound($avArray, 0), $iUBound = UBound($avArray, 1) - 1, $iSubMax = UBound($avArray, 2) - 1
    If $iDimension > 2 Then Return SetError(2, 0, 0)

    ; Swap dimensions if transposing
    If $iSubMax < 0 Then $iSubMax = 0

    ; Set limits for dimensions
    $iItemLimit = $iUBound
    If $iUBound > $iItemLimit Then $iUBound = $iItemLimit

    ; Convert array into text for listview
    Local $avArrayText[$iUBound + 1]
    For $i = 0 To $iUBound
        $avArrayText[$i] = $i
        For $j = 0 To 1;$iSubMax
                If Not $j Then
                    $vTmp = StringReplace(FileFindNextFile(FileFindFirstFile($avArray[$i][0])),".txt"," ");nom de la fonction
                Else
                    $vTmp = $BddArrey[$i + 1][3];Etat (traduit ?)
                EndIf
            ; Add to text array
            $vTmp = StringReplace($vTmp, $sSeparator, $sReplace, 0, 1)
            ; Set max buffer size
            If StringLen($vTmp) > 100 Then $vTmp = StringLeft($vTmp, 100);bloquer la ligne à 100 caractères max
            $avArrayText[$i] &= $sSeparator & $vTmp
        Next
    Next

    ; Set interface up
    Local $iWidth = 640, $iHeight = 480
    Local $hGUI = GUICreate("Choix d'une fonction", $iWidth, $iHeight, Default, Default, 0x00070000,-1,$Form1)
    GUISetBkColor(0xFFA080)
    Local $aiGUISize = WinGetClientSize($hGUI)

    Local $hListView = GUICtrlCreateListView("N° de la fonction|Nom de la fonction|Traduit ?  ", 0, 0, $aiGUISize[0], $aiGUISize[1] - 26, $LVS_SHOWSELALWAYS,4)
    $hNumber = GUICtrlCreateInput("0", 3, $aiGUISize[1] - 23, $aiGUISize[0]  - 113, 20)
    GUICtrlCreateUpdown(-1,36)
    Local $hOk = GUICtrlCreateButton("OK",($aiGUISize[0] ) -107 ,$aiGUISize[1] - 23,100 ,20)
    GUICtrlSetResizing(-1,4 + 64 + 256 + 512)

    GUICtrlSetResizing($hListView, $GUI_DOCKBORDERS)
    GUICtrlSetResizing($hNumber, $GUI_DOCKLEFT + $GUI_DOCKRIGHT + $GUI_DOCKBOTTOM + $GUI_DOCKHEIGHT)
    GUICtrlSendMsg($hListView, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_GRIDLINES, $LVS_EX_GRIDLINES)
    GUICtrlSendMsg($hListView, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_FULLROWSELECT, $LVS_EX_FULLROWSELECT)
    GUICtrlSendMsg($hListView, $LVM_SETEXTENDEDLISTVIEWSTYLE, $WS_EX_CLIENTEDGE, $WS_EX_CLIENTEDGE)

    ; Fill listview
    For $i = 0 To $iUBound
        GUICtrlCreateListViewItem($avArrayText[$i], $hListView)
    Next

    ; adjust window width
    $iWidth = 0
    For $i = 0 To $iSubMax + 1
        $iWidth += GUICtrlSendMsg($hListView, $LVM_GETCOLUMNWIDTH, $i, 0)
    Next
    If $iWidth < 250 Then $iWidth = 230
    $iWidth += 20

    If $iWidth > @DesktopWidth Then $iWidth = @DesktopWidth - 100

    WinMove($hGUI, "", (@DesktopWidth - $iWidth) / 2, Default, $iWidth)

    ; Show dialog
    GUISetState(@SW_SHOW, $hGUI)
    ToolTip("Le numero de la fonction sélectionnée change " & @CRLF & "quand on passe la souris sur la listview",Default,Default,"Attention",0,1)
    Sleep(2000)
    ToolTip("")
    While 1
        Switch GUIGetMsg()
            Case -3 , $hOk
                ExitLoop
            Case $GUI_EVENT_PRIMARYDOWN
                If StringInStr(ControlGetFocus("Choix d'une fonction"),"SysListView32") Then
;~                  ToolTip("1",Default,Default,"",0,1)
                    Sleep(100)
                    If GUIGetMsg() = $GUI_EVENT_PRIMARYUP Then
;~                      ToolTip("2",Default,Default,"",0,1)
                        Sleep(500)
                        If GUIGetMsg() = $GUI_EVENT_PRIMARYDOWN Then
;~                          ToolTip("3",Default,Default,"",0,1)
                            ExitLoop
                        EndIf
                    EndIf
                EndIf
        EndSwitch
        If ControlGetFocus("Choix d'une fonction") = "SysListView321" Then
            $hot = _GUICtrlListView_GetHotItem($hListView)
            If $hot <> -1 Then
                GUICtrlSetData($hNumber,$hot)
            EndIf
        EndIf
    WEnd
    $tmp = GUICtrlRead($hNumber)
    GUIDelete($hGUI)
    Return $tmp
EndFunc   ;==>_MyArrayDisplay

J'ai trouvé des réponses mais je ne les ai pas comprises.

Voici mon code entier :

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <GuiRichEdit.au3>
#include <GUIListview.au3>
#include <Excel.au3>

#Region ### START Koda GUI section ### Form=
; - - - -  Fenêtre  - - - -
Global $Form1 = GUICreate("Traducteur", 870, 800, 100, 90, $WS_MINIMIZEBOX+$WS_CAPTION+ $WS_POPUP+ $WS_SYSMENU+ $WS_MAXIMIZEBOX)
GUISetBkColor(0xFFFF80)

; - - - -  Zones de texte  - - - -
Global $Edit1 = GUICtrlCreateEdit("", 10, 210, 425, 575)
GUICtrlSetResizing(-1,32+64)
Global $Edit2 = GUICtrlCreateEdit("", 440, 210, 425, 575)
GUICtrlSetResizing(-1,32+64)

; - - - -  Partie traduction  - - - -
GUICtrlCreateLabel("Remplacer :", 20, 20)
GUICtrlSetResizing(-1,802)
Global $Label2 = GUICtrlCreateLabel("Texte à remplacer", 20, 50, 480, 40)
GUICtrlSetBkColor(-1,0xFFFFFF)
GUICtrlSetResizing(-1,2+4+32+512)
GUICtrlCreateLabel("Par :", 20, 100)
GUICtrlSetResizing(-1,802)
Global $Input1 = GUICtrlCreateInput("Texte à remplacer", 20, 120, 480, 22)
GUICtrlSetResizing(-1,32+2+4+512)

; - - - -  Boutons  - - - -
Global $Button1 = GUICtrlCreateButton("OK", 10, 150, 55, 31)
GUICtrlSetResizing(-1,802)
GUICtrlSetState(-1,$GUI_Disable)
Global $Button2 = GUICtrlCreateButton("", 70, 150, 60, 31)
GUICtrlSetResizing(-1,802)
Global $Checkbox1 = GUICtrlCreateCheckbox("  Ignorer les fichiers traduits", 135, 148,95,35,0x2000 + $WS_TABSTOP + $BS_AUTOCHECKBOX)
GUICtrlSetResizing(-1,802)
Global $Button3 = GUICtrlCreateButton("Chercher une fonction", 230, 150, 120, 31)
GUICtrlSetResizing(-1,802)
Global $Button4 = GUICtrlCreateButton("Choisir le chemin des fonctions", 355, 150, 155, 31)
GUICtrlSetResizing(-1,802)
Global $Button5 = GUICtrlCreateButton("Base de données", 515, 150, 95, 31)
GUICtrlSetResizing(-1,802)
Global $Button6 = GUICtrlCreateButton("Prévisualliser", 615, 150, 70, 31)
GUICtrlSetResizing(-1,802)

Global $Button7 = GUICtrlCreateButton("Valider", 690, 150, 70, 31)
GUICtrlSetResizing(-1,802)

; - - - -  Nom des "édit"  - - - -
GUICtrlCreateLabel("Anglais", 10, 187)
GUICtrlSetResizing(-1,32+512)
GUICtrlCreateLabel("Francais", 440, 187)
GUICtrlSetResizing(-1,32+512)

; - - - -  Logo  - - - -
GUICtrlCreatePic(StringReplace(@AutoItExe,"\AutoIt3.exe", "\Examples\GUI\logo4.gif"),512 , 10,338,132)
GUICtrlSetResizing(-1,4+32+256+512)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

#Region   - - - - - - - - - - - - - - - -    Declaration des variables et initialisation   - - - - - - - - - - - - - - - - - - -
Global $dirEN1 = @ScriptDir & "\English\txt2htm\txtFunctions\";chemin des fichiers de la documentation
Global $dirFR1 = @ScriptDir & "\Francais\txt2htm\txtFonctions\"

Global $dirEN2 = $dirEN1;utile pour changedir()
Global $dirFR2 = $dirFR1;quand on change le chemin des fichiers

setlist();initialise la liste des fonctions à traduire
Global $adv = -1
OpenBDD(ChoixBDD(Not (MsgBox(4,"Ouverture d'une Base De Données","Ouvrir la BDD réseau ?",0,$Form1) - 6),1));initialise la BDD
#EndRegion
;echap pour quitter en cas d'erreur
HotKeySet("{esc}","Quitter")

main()

#Region Fonctions
;- - - - - - - - - - - - - - - - - - - -     Fonctions     - - - - - - - - - - - - - - - - - - -
#region temporaire fonction déjà réparées
Func main()
;  - - - -   boucle principale   - - - -

;la boucle principale doit être une fonction afin de permetre les GoTO's
    GUICtrlSetData($Button2,"Suivant")
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Quitter()
        Case $Button2
            Do
            Until chosefile() <> 2
        Case $Button4
            changedir()
        Case $Button3
            chosefunc()
            Do
            Until chosefile() <> 2
        Case $Button5
            GestionBDD()
        Case $Button6
            afficherfunc($adv)
        Case $Button7
            ValiderLaFonction()
 EndSwitch
WEnd
EndFunc


Func setlist()
    Global $list[countfile()][2]
    $h_txtEN = FileFindFirstFile($dirEN2 & "*.txt")
    For $i = 0 To UBound($list) -1
        $list[$i][0] = $dirEN2 & FileFindNextFile($h_txtEN);liste des fichiers de la doc anglaise
        $list[$i][1] = StringReplace($list[$i][0],$dirEN2,$dirFR2); liste des fichiers theoriques de la doc française
    Next

EndFunc
Func countfile();retourn ne nombre de fichiers .txt dans le dosssier de la documentation Anglaise
    Global $h_txtEN = FileFindFirstFile($dirEN2 & "*.txt")
    $tmp = 0
    Do
    $h_nexttxtEN = FileFindNextFile($h_txtEN)
    $tmp += 1
Until @error
Return $tmp
EndFunc

Func chosefunc()
    Do
        $tmp = _MyArrayDisplay($list)
        $func = FileFindNextFile(FileFindFirstFile($list[$tmp][0]))
    Until MsgBox(4,StringReplace($func,".txt"," "),StringReplace($func,".txt"," ") & @CRLF & "Valider cette fonction ?",0,$Form1) = 6

    $adv = $tmp
    GUICtrlSetData($Edit2,FileRead($list[$adv][1]));"")
    Global $texteEN = FileRead($list[$adv][0])
    GUICtrlSetData($Edit1,$texteEN)
    Return $tmp

EndFunc
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
Func chosefile();parcourt la liste des fonction dans l'odre
    If $adv < 0 Then $adv = 0;si l'avancement n'a pas été initialisé, on commence à zero

If $adv >= UBound($list) Then;si toutes les fonctions ont été vues
    MsgBox(64,"Information","Toutes les fonctions on été vues. Retour au debut de la liste.",0,$Form1)
    $adv = 0;on retourne au debut de la liste
    Return 1
EndIf
If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then;si on oublie les fonction déjà traduites
    If FileExists($list[$adv][1]) Then; si la fonction est déjà traduite
        GUICtrlSetData($Edit2,"");  on nettoye la zone d'edition de la version francaise
        $adv += 1;  on passe à la suivante
        Return 2
    Else
        Global $texteEN = FileRead($list[$adv][0]);recuperation du texte en anglais
        GUICtrlSetData($Edit1,$texteEN);affichage du texte
        GUICtrlSetData($Edit2,"");nettoyage de la zone FR
        If MsgBox(260,"","Ok ?",0,$Form1) = 7 Then;si l'utilisateur ne veut pas travailler sur cette fonction
            $adv += 1;  on passe à la suivante
            Return 2; on quitte la fonction
        EndIf
        If MsgBox(36,"Traducteur","Traduire cette fonction ?",0,$Form1) = 6 Then remplace();si l'utilisateur veut la traduire alors on traduit
    If MsgBox(36,"Traducteur","Passer à la fonction suivante maintenant ?",0,$Form1) = 6 Then;si l'utilisateur veut passer directement à la fonction suivante
        $adv += 1;  on passe à la suivante
        Return 2
    Else
        Return 1;sinon on quitte la fonction et on retoune dans la boucle principale
    EndIf
    EndIf
Else; si on affiche touts les fonctions
    GUICtrlSetData($Edit2,FileRead($list[$adv][1]));"")
    Global $texteEN = FileRead($list[$adv][0])
    GUICtrlSetData($Edit1,$texteEN)

    If MsgBox(36,"Traducteur","Traduire cette fonction ?",0,$Form1) = 6 Then remplace()
    If MsgBox(36,"Traducteur","Passer à la fonction suivante maintenant ?",0,$Form1) = 6 Then
        $adv += 1
        Return 2
    Else
        Return 1
    EndIf
EndIf
EndFunc

Func remplace()
    GUICtrlSetData($Button2,"Changer")
    GUICtrlSetState($Button1,$GUI_Enable)
    Local $line = 0
    Do
        $line += 1
        $lineEN = FileReadLine($list[$adv][0],$line)
        $lineFR = $lineEN
        GUICtrlSetData($Label2,$lineEN)
        If StringInStr($lineEN,"Failure") Then $lineFR = StringReplace($lineFR,"Failure","Échec")
        If StringInStr($lineEN,"Success") Then $lineFR = StringReplace($lineFR,"Success","Succès")
        If StringInStr($lineEN,"[optional]") Then $lineFR = StringReplace($lineFR,"[optional]","[optionnel]")
        GUICtrlSetData($Input1,$lineFR)
        If Not ($lineEN = "" Or StringInStr($lineEN,"###") Or StringInStr($lineEN,'@@')) Then
            While 1
                $nMsg = GUIGetMsg()
                Switch $nMsg
                    Case $GUI_EVENT_CLOSE
                        Exit
                    Case $Button2
                        main()

                    Case $Button1
                        ExitLoop
                EndSwitch
            WEnd
        EndIf
        GUICtrlSetData($Edit2,GUICtrlRead($Edit2) & @CRLF & GUICtrlRead($Input1))
    Until MsgBox(4,"Traduction","Ligne suivante ?",0,$Form1) = 7 Or GUICtrlRead($Input1) = "@@IncludeExample@@"

    StringInStr(GUICtrlRead($Edit2),"###Function###",0,0,4)
    If @error Then;si le fichier n'a pas été traduit 2 fois
        Switch MsgBox(36,"","Sauvgarder le fichier ?",0,$Form1)
            Case 6 ;Yes
                SaveFunc()
                GUICtrlSetData($Edit2,"")
                GUICtrlSetState($Button1,$GUI_Disable)
            Case 7 ;No
                GUICtrlSetState($Button1,$GUI_Disable)
                Return
        EndSwitch
    EndIf
EndFunc

Func changedir()
    HotKeySet("{esc}");desactivation du blocage de la touche Echap
    $dirEN1 = FileSelectFolder("Documentation en Anglais","",0,$dirEN2)
    $dirFR1 = FileSelectFolder("Documentation en Français","",7,$dirFR2)
    HotKeySet("{esc}","Quitter")
    If $dirEN1 <> $dirEN2 And $dirEN1 <> "" Then
        $dirEN2 = $dirEN1
    EndIf
    If $dirFR1 <> $dirFR2 And $dirFR1 <> "" Then
        $dirFR2 = $dirFR1
    EndIf
    If $dirEN2 = $dirFR2 Then
        MsgBox(48,"Erreur","Le chemin de la documentation en Anglais et le chemin de la documentation en Français sont identiques" & @CRLF & @CRLF & "Veuillez selectionner d'autres dossiers",0,$Form1)
        changedir()
    Else
        For $i = 0 To UBound($list) - 1
            _ArrayDelete($list,0)
        Next
        $adv = 0
        setlist()
    EndIf

EndFunc

Func Quitter()
    If MsgBox(4,"Traducteur","Voulez-vous enregistrer la Base de Données avant de quitter ?",0,$Form1) = 6 Then exportBDD()
    If MsgBox(4,"Quitter ?","",0,$Form1) = 6 Then Exit
EndFunc
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Func MsgBoxAskLang()
;  retourne le choix de la langue du texte à afficher
    Global $msgGUI = GUICreate("Langue", 220, 100,Default,Default,0,-1,$Form1)
    Global $msgLabel = GUICtrlCreateLabel("Veuillez selectionner la langue du fichier à traduire", 9, 9, 196, 25)
    Global $msgB1 = GUICtrlCreateButton("Français", 8, 43, 95, 25)
    Global $msgB2 = GUICtrlCreateButton("Anglais", 111, 43, 95, 25)
GUISetState(@SW_SHOW)
While 1
 Switch GUIGetMsg()
    Case $msgB1;Francais 1
        GUIDelete($msgGUI)
        Return 1
    Case $msgB2;Anglais 0
        GUIDelete($msgGUI)
        Return 0
 EndSwitch
WEnd
EndFunc ;==> MsgBoxAskLang

Func afficherfunc($funcnbr = -1)
;  - - - -  Visualise la fonction  - - - -

If $funcnbr < 0 Then
    $funcnbr = chosefunc()
EndIf
;-----------------------------------------------------------------------------------------------------------
Local $Form6 = GUICreate("", 350, 420, Default , Default ,BitOR($WS_SYSMENU,$WS_POPUP),-1,$Form1)
GUISetBkColor(0xFF80FF)
Local $a_func = GUICtrlCreateLabel("", 8, 8, 340, 41,0x201)
    GUICtrlSetFont(-1,18,700)
    GUICtrlSetColor(-1,0x1010FF)
    GUICtrlSetData(-1,StringReplace(FileFindNextFile(FileFindFirstFile($list[$adv][0])),".txt"," "))
Local $a_B1 = GUICtrlCreateButton("&Changer de fonction", 16, 80, 321, 57)
Local $a_B2 = GUICtrlCreateButton("Ouvrir avec le &BlocNotes", 16, 144, 321, 57)
Local $a_B3 = GUICtrlCreateButton("&Ouvrir avec l'éditeur associé", 16, 208, 321, 57)
Local $a_B4 = GUICtrlCreateButton("Aperçu avec le &visualisateur", 16, 272, 321, 57)
Local $a_B5 = GUICtrlCreateButton("&Annuler", 16, 336, 321, 57)
GUISetState(@SW_SHOW)

While 1
    Switch GUIGetMsg()
        Case $a_B5
            GUIDelete($Form6)
            ExitLoop
        Case $a_B4
            #Region visualisateur de fonction
            If GUICtrlRead($Edit1) = "" Then
                MsgBox(48,"Erreur","Il n'y a acucune fonction à visaliser",5)
                Return SetError(1)
            EndIf

            Global $decal = 0

            Global $Form2 = GUICreate("Visionnese", 810, 800, 200, 120, $GUI_SS_DEFAULT_GUI,-1,$Form1)
            Global $hRichEdit = _GUICtrlRichEdit_Create($Form2, "", 10, 35, 790, 700, BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))
            If @error Then MsgBox(48,"Erreur","")
            Local $arrayfile = FileReadToArray($list[$funcnbr][MsgBoxAskLang()])
            GUISetState(@SW_SHOW,$Form2)

            If $arrayfile[0] = "" Then _ArrayDelete($arrayfile,0)
            For $k = 0 To UBound($arrayfile) -1
                Switch $arrayfile[$k]
                    Case "###Function###"
                        _GUICtrlRichEdit_setText($hRichEdit,"Fonction")
                        _GUICtrlRichEdit_SetSel($hRichEdit, 0 , 8)
                        _GUICtrlRichEdit_ChangeFontSize($hRichEdit,7)
                        _GUICtrlRichEdit_SetCharColor($hRichEdit,0x000080)
                        _GUICtrlRichEdit_AppendText($hRichEdit,@CRLF)
                        $decal += 1
                    Case "###Description###"
                        richedit_titre("Description",11)
                    Case "###Syntax###"
                        richedit_titre("Syntaxe",7)
                    Case "###Parameters###"
                        richedit_titre("Paramètres",10)
                    Case "###Example###"
                        richedit_titre("Exemple(s)",10)
                    Case "###Remarks###"
                        richedit_titre("Remarques",9)
                    Case Else
                        _GUICtrlRichEdit_AppendText($hRichEdit, $arrayfile[$k] & @CRLF)
                        $decal += 1
                        Sleep(500)
                EndSwitch
            Next
            Do
            Until GUIGetMsg() = $GUI_EVENT_CLOSE
            _GUICtrlRichEdit_Destroy($hRichEdit)
            GUIDelete($Form2)
            #EndRegion
            ExitLoop
        Case $a_B1
            GUIDelete($Form6)
            afficherfunc(-1)
        Case $a_B2
            ShellExecute("notepad.exe",$list[$adv][MsgBoxAskLang()])
        Case $a_B3
            ShellExecute($list[$adv][MsgBoxAskLang()])
    EndSwitch
WEnd
GUIDelete($Form6)
EndFunc

Func richedit_titre($data,$taille)
    $tmp = _GUICtrlRichEdit_GetTextLength($hRichEdit,True,True) - $decal;_GUICtrlRichEdit_GetLineCount($hRichEdit);nombre de caracteres autres que les retours à la ligne
    _GUICtrlRichEdit_AppendText($hRichEdit,$data);on met le texte
    _GUICtrlRichEdit_SetSel($hRichEdit, $tmp, $tmp + $taille);selection de la dernière ligne écrite
    _GUICtrlRichEdit_ChangeFontSize($hRichEdit,7);on augmente la taille
    _GUICtrlRichEdit_SetCharColor($hRichEdit,0x000080);on change la couleur
    _GUICtrlRichEdit_AppendText($hRichEdit,@CRLF);on ajoute le retour à la ligne
    $decal += 1
EndFunc

Func ChoixBDD($type = 1,$open = 1)
    Global $BDDreseau = $type
    If $open = 1 Then
        If $type = 0 Then ;Base de données locale
            $BDDdir = @ScriptDir & "\bdd.txt"
            If Not FileExists($BDDdir) Then
            $BDDdir = FileOpenDialog("Choisir une Base de donnée",@ScriptDir,"Fichier TXT (*.txt)| Tous les fichiers (*.*)",1,"",$Form1)
            If @error Then Return SetError(2);Bdd inexistante
            EndIf
            Return $BDDdir
        ElseIf $type = 1 Then ;BDD en réseau
            MsgBox(48,"Désolé","Ce script ne gère pas encore les BDD en réseau")
        Else
            Return SetError(1);$type mal defini
        EndIf
    Else
        If $type = 0 Then ;Base de données locale
            $BDDdir = @ScriptDir & "\bdd.txt"
            If Not FileExists($BDDdir) Then $BDDdir = FileSaveDialog("Exporter une Base de donnée",@ScriptDir,"Fichier TXT (*.txt)",18,"bdd.txt",$Form1)
            If @error Then Return SetError(2)
            Return $BDDdir
        ElseIf $type = 1 Then ;BDD en réseau
            MsgBox(48,"Désolé","Ce script ne gère pas encore les BDD en réseau")
        Else
            Return SetError(1);$type mal defini
        EndIf
    EndIf
EndFunc

Func OpenBDD($BDDpath)

    $BddArrey1 = FileReadToArray($BDDpath)
    Global $BddArrey[UBound($BddArrey1)+1][11]
    For $i = 0 To UBound($BddArrey1) -1
        $BddArrey2 = StringSplit($BddArrey1[$i],@TAB,2)
        For $j = 0 To 10
            $BddArrey[$i][$j] = $BddArrey2[$j]
        Next
    Next
EndFunc

Func AfficherBDD()
    $header = $BddArrey[0][0]
    For $i = 1 To 10
        $header &= "|"&$BddArrey[0][$i]
    Next
    _ArrayDisplay($BddArrey,"Base de données","1:",4+32+64,Default,$header)
EndFunc

Func ValiderLaFonction()
If $adv < 0 Then chosefunc()
#Region ### START Koda GUI section ### Form=

    Local $Form3 = GUICreate("", 358, 320, Default,Default,  BitOR($WS_SYSMENU,$WS_POPUP),-1,$Form1)
    GUISetBkColor(0)

    Local $username = GUICtrlCreateInput("", 16, 260, 329, 21)
    Local $v_B1 = GUICtrlCreateButton("&Signaler", 16, 285, 105, 25)

    Local $v_B2 = GUICtrlCreateButton("&Valider", 128, 285, 105, 25)
    If $BddArrey[$adv][10] <> "" Then GUICtrlSetState(-1,$GUI_Disable)
    Local $v_B3 = GUICtrlCreateButton("&Annuler", 240, 285, 105, 25)
    Local $v_func = GUICtrlCreateLabel("", 8, 8, 340, 41)
    GUICtrlSetFont(-1,18,700)
    GUICtrlSetColor(-1,0xA04020)
    GUICtrlSetData(-1,StringReplace(FileFindNextFile(FileFindFirstFile($list[$adv][0])),".txt"," "))
    GUICtrlCreateLabel("    Valider la fonction signifie que vous êtes d'accord avec la traduction proposée, que vous ne voyer pas comment l'améliorer." & @CRLF & @CRLF & "    La fonction doit être validée par cinq utilisateurs différents, en plus de son traducteur, pour être entièrement validée pour la compilation.", 8, 64, 205,110)
    GUICtrlSetColor(-1,0xFFFFFF)
    GUICtrlCreateLabel( "   Signalez la fonction pour qu'elle soit recorigée si elle contient des fautes ou si elle ne corespond pas à la fonction indiquée ou si la version indiquée n'est pas la bonne.", 8, 184, 340,40)
    GUICtrlSetColor(-1,0xFFFFFF)
    GUICtrlCreateLabel("Votre Nom d'utilisateur :", 16, 235,150,21)
    GUICtrlSetColor(-1,0xFFFFFF)

    GUICtrlCreatePic(@ScriptDir & "\3.bmp",215 , 55,120,120)

    GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $v_B3
                GUIDelete($Form3)
                Return
            Case $v_B1
                $BddArrey[$adv][3] = "À revoir"
                MsgBox(64,"Information","La fonction est signalée.")
                GUIDelete($Form3)
                Return
            Case $v_B2
                For $l = 6 To 10
                    If $BddArrey[$adv + 1][$l] = "" Then
                        $tmp = GUICtrlRead($username)
                        If $tmp <> "" Then
                            $BddArrey[$adv + 1][$l] = $tmp
                            $BddArrey[$adv + 1][4] = "3.3.12.0"
                            If $BddArrey[$adv + 1][3] = "À revoir" Then $BddArrey[$adv + 1][3] = "Maj"
                            MsgBox(64,"Information",$tmp & " à bien été ajouté à la liste des validateurs de cette fonction.")
                            GUIDelete($Form3)
                            Return
                        Else
                            MsgBox(48,"Erreur","Vous n'avez pas entré de nom d'utilisateur.")
                            ExitLoop
                        EndIf
                    EndIf
                Next

        EndSwitch
    WEnd
EndFunc

Func GestionBDD()
Local $Form4 = GUICreate("", 350, 420, Default , Default ,BitOR($WS_SYSMENU,$WS_POPUP),-1,$Form1)
GUISetBkColor(0x6080FF)
Local $Avi1 = GUICtrlCreateAvi(@ScriptDir & "\1.avi", 0, 32,16,321)
Local $b_B1 = GUICtrlCreateButton("&Importer une BDD existante", 16, 80, 321, 57)
Local $b_B2 = GUICtrlCreateButton("&Visualiser la BDD actuelle", 16, 144, 321, 57)
Local $b_B3 = GUICtrlCreateButton("&Enregister la BDD", 16, 208, 321, 57)
Local $b_B4 = GUICtrlCreateButton("E&xporter vers Excel", 16, 272, 321, 57)
Local $b_B5 = GUICtrlCreateButton("&Annuler", 16, 336, 321, 57)
GUISetState(@SW_SHOW)
GUICtrlSetState($Avi1,$GUI_AVISTART)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $b_B5
            GUIDelete($Form4)
            Return
        Case $b_B1
            OpenBDD(ChoixBDD(Not (MsgBox(4,"Ouverture d'une Base De Données","Ouvrir la BDD réseau ?") - 6),1))
        Case $b_B2
            AfficherBDD()
        Case $b_B3

            exportBDD()
            If @error Then MsgBox(16,"Erreur","Erreur de code : " & @error)
        Case $b_B4
            $txt = ""
            For $i = 0 To UBound($BddArrey) -1
                For $j = 0 To 10
                    $txt &= $BddArrey[$i][$j] & @TAB
                Next
                $txt &= @CRLF
            Next
            ClipPut($txt)
            $excel = _Excel_Open()
            _Excel_BookNew($excel)
            Sleep(1000)
            Send("^v")
 EndSwitch
WEnd



EndFunc

Func exportBDD();exporter la BDD
    $savedir = ChoixBDD(Not (MsgBox(4,"Ouverture d'une Base De Données","Actualiser la BDD réseau ?") - 6),0)
    If @error Then Return SetError(1);l'operation est annulée par l'utilisateur ou la boîte de message a renconté un problème
    FileMove($savedir,StringReplace($savedir,".","1."),1)
    If @error Then Return SetError(2);erreur lors du deplacement de la BDD actuelle
    FileWrite($savedir,"Nom" & @TAB & "Chemin source EN" & @TAB & "Chemin source FR" & @TAB & "Traduit" & @TAB & "Version" & @TAB & "Traducteur" & @TAB & "1" & @TAB & 2 & @TAB & 3 & @TAB & 4 & @TAB & 5)
    For $i = 1 to UBound($list)
        $lineBDD = $BddArrey[$i][0]
        For $j = 1 To 10
            $lineBDD &= @TAB&$BddArrey[$i][$j]
        Next
        FileWrite($savedir,$lineBDD)
    Next
;~  HotKeySet("b")
    If @error Then
        MsgBox(16,"Erreur","Erreur lors de la sinchronisation de la BDD.")
    Else
        MsgBox(64,"Information","La BDD a été enregistrée.")
    EndIf
EndFunc

Func SaveFunc()
#Region ### START Koda GUI section ### Form=
Global $Form5 = GUICreate("", 377, 360, Default,Default,$WS_SYSMENU+$WS_POPUP,-1,$Form1)
GUISetBkColor(0)

Global $v_func = GUICtrlCreateLabel("", 8, 8, 340, 32)
GUICtrlSetFont(-1,18,700)
GUICtrlSetColor(-1,0xA04020)
GUICtrlSetData(-1,"Nom de la fonction")
GUICtrlCreateLabel("    Enregistrer la fonction" & @CRLF & @CRLF & "Si vous avez fini de traduire la fonction et que vous avez corrigé vos eventuelles fautes, enregistez-la pour pouvoir sauvegarder votre traduction." & @CRLF & @CRLF & "    La fonction doit être validée par cinq utilisateurs différents, en plus de son traducteur, pour être entièrement validée pour la compilation.", 8, 45, 205,150)
GUICtrlSetColor(-1,0xFFFFFF)
GUICtrlCreateLabel( "   Veuillez indiquer votre nom d'utilisateur pour que les autres traducteurs puissent savoir qui l'a traduit.", 8, 200, 340,40)
GUICtrlSetColor(-1,0xFFFFFF)
GUICtrlCreateLabel("Votre Nom d'utilisateur :", 16, 265,150,21)
GUICtrlSetColor(-1,0xFFFFFF)

GUICtrlCreatePic(@ScriptDir & "\3.bmp",215 , 55,120,120)
Global $InputName = GUICtrlCreateInput("", 8, 288, 361, 21)
Global $s_B1 = GUICtrlCreateButton("&OK", 8, 320, 177, 33)
Global $s_B2 = GUICtrlCreateButton("&Annuler", 192, 320, 177, 33)
GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $s_B2
            GUIDelete($Form5)
            Return
        Case $s_B1
            If GUICtrlRead($InputName) = "" Then
                MsgBox(0,"Erreur","Vous n'avez pas entré de nom d'utilisateur")
            Else
                $tmp = GUICtrlRead($InputName)
                ExitLoop
            EndIf
    EndSwitch
WEnd
    If $BddArrey[$adv][3] <> "Non" Then
        $BddArrey[$adv][3] = "Maj"
    Else
        $BddArrey[$adv][3] = "Oui"
        $BddArrey[$adv][5] = $tmp
    EndIf
    $BddArrey[$adv][4] = "3.3.12.0"
    If FileWrite($list[$adv][1],GUICtrlRead($Edit2)) Then
        MsgBox(64,"Information","  Le fichier :"& @CRLF & $list[$adv][1] & @CRLF & "  à correctement été enregistré.")
    Else
        MsgBox(16,"Erreur...","  Le fichier :" & @CRLF & $list[$adv][1] & @CRLF & "  n'a pas put être enregistré.")
;~      MsgBox(0,"Erreur...","Veuillez reparer manuellement votre BDD en l'exportant en local et en léditnt, puis en la chargant en local.")
    EndIf
    GUIDelete($Form5)
EndFunc
#EndRegion

Func _MyArrayDisplay(Const ByRef $avArray, $sSeparator = Chr(124), $sReplace = "|")
    If Not IsArray($avArray) Then Return SetError(1, 0, 0)
    ; Dimension checking
    Local $iDimension = UBound($avArray, 0), $iUBound = UBound($avArray, 1) - 1, $iSubMax = UBound($avArray, 2) - 1
    If $iDimension > 2 Then Return SetError(2, 0, 0)

    ; Swap dimensions if transposing
    If $iSubMax < 0 Then $iSubMax = 0

    ; Set limits for dimensions
    $iItemLimit = $iUBound
    If $iUBound > $iItemLimit Then $iUBound = $iItemLimit

    ; Convert array into text for listview
    Local $avArrayText[$iUBound + 1]
    For $i = 0 To $iUBound
        $avArrayText[$i] = $i
        For $j = 0 To 1;$iSubMax
                If Not $j Then
                    $vTmp = StringReplace(FileFindNextFile(FileFindFirstFile($avArray[$i][0])),".txt"," ");nom de la fonction
                Else
                    $vTmp = $BddArrey[$i + 1][3];Etat (traduit ?)
                EndIf
            ; Add to text array
            $vTmp = StringReplace($vTmp, $sSeparator, $sReplace, 0, 1)
            ; Set max buffer size
            If StringLen($vTmp) > 100 Then $vTmp = StringLeft($vTmp, 100);bloquer la ligne à 100 caractères max
            $avArrayText[$i] &= $sSeparator & $vTmp
        Next
    Next

    ; Set interface up
    Local $iWidth = 640, $iHeight = 480
    Local $hGUI = GUICreate("Choix d'une fonction", $iWidth, $iHeight, Default, Default, 0x00070000,-1,$Form1)
    GUISetBkColor(0xFFA080)
    Local $aiGUISize = WinGetClientSize($hGUI)

    Local $hListView = GUICtrlCreateListView("N° de la fonction|Nom de la fonction|Traduit ?  ", 0, 0, $aiGUISize[0], $aiGUISize[1] - 26, $LVS_SHOWSELALWAYS,4)
    $hNumber = GUICtrlCreateInput("0", 3, $aiGUISize[1] - 23, $aiGUISize[0]  - 113, 20)
    GUICtrlCreateUpdown(-1,36)
    Local $hOk = GUICtrlCreateButton("OK",($aiGUISize[0] ) -107 ,$aiGUISize[1] - 23,100 ,20)
    GUICtrlSetResizing(-1,4 + 64 + 256 + 512)

    GUICtrlSetResizing($hListView, $GUI_DOCKBORDERS)
    GUICtrlSetResizing($hNumber, $GUI_DOCKLEFT + $GUI_DOCKRIGHT + $GUI_DOCKBOTTOM + $GUI_DOCKHEIGHT)
    GUICtrlSendMsg($hListView, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_GRIDLINES, $LVS_EX_GRIDLINES)
    GUICtrlSendMsg($hListView, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_FULLROWSELECT, $LVS_EX_FULLROWSELECT)
    GUICtrlSendMsg($hListView, $LVM_SETEXTENDEDLISTVIEWSTYLE, $WS_EX_CLIENTEDGE, $WS_EX_CLIENTEDGE)

    ; Fill listview
    For $i = 0 To $iUBound
        GUICtrlCreateListViewItem($avArrayText[$i], $hListView)
    Next

    ; adjust window width
    $iWidth = 0
    For $i = 0 To $iSubMax + 1
        $iWidth += GUICtrlSendMsg($hListView, $LVM_GETCOLUMNWIDTH, $i, 0)
    Next
    If $iWidth < 250 Then $iWidth = 230
    $iWidth += 20

    If $iWidth > @DesktopWidth Then $iWidth = @DesktopWidth - 100

    WinMove($hGUI, "", (@DesktopWidth - $iWidth) / 2, Default, $iWidth)

    ; Show dialog
    GUISetState(@SW_SHOW, $hGUI)
    ToolTip("Le numero de la fonction sélectionnée change " & @CRLF & "quand on passe la souris sur la listview",Default,Default,"Attention",0,1)
    Sleep(2000)
    ToolTip("")
    While 1
        Switch GUIGetMsg()
            Case -3 , $hOk
                ExitLoop
            Case $GUI_EVENT_PRIMARYDOWN
                If StringInStr(ControlGetFocus("Choix d'une fonction"),"SysListView32") Then
;~                  ToolTip("1",Default,Default,"",0,1)
                    Sleep(100)
                    If GUIGetMsg() = $GUI_EVENT_PRIMARYUP Then
;~                      ToolTip("2",Default,Default,"",0,1)
                        Sleep(500)
                        If GUIGetMsg() = $GUI_EVENT_PRIMARYDOWN Then
;~                          ToolTip("3",Default,Default,"",0,1)
                            ExitLoop
                        EndIf
                    EndIf
                EndIf
        EndSwitch
        If ControlGetFocus("Choix d'une fonction") = "SysListView321" Then
            $hot = _GUICtrlListView_GetHotItem($hListView)
            If $hot <> -1 Then
                GUICtrlSetData($hNumber,$hot)
            EndIf
        EndIf
    WEnd
    $tmp = GUICtrlRead($hNumber)
    GUIDelete($hGUI)
    Return $tmp
EndFunc   ;==>_MyArrayDisplay

#EndRegion
 

Comme vous pouvez le constater, mon scripts peut être énormément amélioré.
Merci de me dire que remplacer et par quoi.

[TomAijerrie]

Si des personnes veulent m'aider pour mon projet en créant par exemple une BDD commune et récupérer les fonction traduites, je veux bien.

En lançant mon script, cliquez sur "Non" quand il propose une BDD réseau, sinon il ne fonctionnera pas entierement.

[mikell]

Si c'est juste pour visualiser, le html est quand même plus simple (dans un objet shell.explorer.2 par exemple)
Pour le fun tu peux utiliser le css du fichier d'aide

► Afficher le textefichier test.css

Code : Tout sélectionner

html
{
    font-family:'Segoe UI', 'Lucida Grande', Verdana, Arial, Helvetica, sans-serif;
    font-size:0.8125em;  /* 13px; */
}
body
{
    background-color:#fff;
    color:#000;
    font-weight:400;
}

table
{
    border-collapse:collapse;
    border-color:silver;
    border-style:solid;
    border-width:1px;
    margin-top:5px;
    width:100%;
}

table.noborder
{
    border-width:0px;
}

th
{
    /* font-size:0.875em;  /* 14px; DOCTYPE without .dld*/
    background-color:#ededed;
    border-color:silver;
    border-style:solid;
    border-width:1px;
    color:#707070;
    padding:4px;
    text-align:left;
}

th.new
{
    width:224px;
}

th.old
{
    width:226px;
}

th.width25
{
    width:25%;
}

th.width75
{
    width:75%;
}

tr
{
    padding:4px;
}

tr.yellow,tr.yellowbold
{
    background-color:#ffff9C;
}

tr.yellowbold
{
    font-weight:700;
}

table td
{
    /* font-size:0.875em;  /* 14px; DOCTYPE without .dld*/
    border-color:silver;
    border-style:solid;
    border-width:1px;
    padding:4px;
}

table.noborder td
{
    border-width:0px;
}

td.center
{
    text-align:center;
}

td.right
{
    text-align:right;
}

td.sep
{
    border-color:white silver;
}

b
{
    font-weight:700;
}

u
{
    text-decoration:underline; /* for html5 compatibility if needed */
}

p
{
    margin:0;
    padding-bottom:5px;
    padding-top:5px;
}

p.center
{
    text-align:center;
}

span.underline
{
    text-decoration:underline;
}

.funcdesc
{
    font-size:1.25em; /* 20px; */
}

ul.cell
{
    margin:0 0 0 25px;
}

div.indent
{
    margin-left:32px;
}


a,a:link
{
    color:#00709f;
}

a:visited
{
    color:#03697a;
}

a:active
{
    color:#2a2a2a;
}

a:hover
{
    color:#3390b1;
}

a,a:link,a:visited,a:active
{
    text-decoration:none;
}

a:hover
{
    text-decoration:underline;
}

a.ext:link,a.ext:visited,a.ext:active
{
    text-decoration:underline;
}

a.codeSnippetLink:hover
{
    text-decoration:underline;
}

h1
{
    color:#707070;
    font-size:2.75em; /* 36-44px; */
    font-weight:400;
    margin:0;
    padding-bottom:15px;
    padding-top:15px;
}

.small
{
    font-size:.875em; /* 12-14px; */
    margin:-12px 0 -4px;
    padding-bottom:0;
    padding-top:9px;
}

h2
{
    color:#db7100;
    font-size:1.5em; /* 24px; */
    font-weight:400;
    line-height:normal;
    margin:0;
    padding-bottom:5px;
    padding-top:25px;
}

h3
{
    color:navy;
    font-size:1.0625em; /* 17px; */
    font-weight:700;
    line-height:normal;
    margin-bottom:0;
    margin-left:5px;
}

pre,.code,.codeheader,.codebox
{
    font-family:"Courier New", Courier, monospace;
}

.code
{
    white-space:nowrap;
}

.codeheader
{
    background-color:#ffa;
    border-bottom:1px solid #aaa;
    border-left:1px solid #aaa;
    border-right:1px solid #aaa;
    border-top:1px solid #aaa;
    padding:16px;
    white-space:normal;
}

.codebox
{
    border-bottom:1px solid #aaa;
    border-left:1px solid #aaa;
    border-right:1px solid #aaa;
    border-top:1px solid #aaa;
    color:#465584;
    overflow-x:auto;
    padding:8px 8px 16px;
    margin-top:5px;
    white-space:nowrap;
    width:99%;
}

.S0
{
    color:#2a2a2a;
}

.S1
{
    color:green;
    font-style:italic;
}

.S2
{
    color:green;
    font-style:italic;
}

.S3
{
    color:blue;
}

.S4
{
    color:#000090;
}

.S5
{
    color:blue;
}

.S6
{
    color:olive;
}

.S7
{
    color:red;
}

.S8
{
    color:#FF8000;
}

.S9
{
    color:#2a2a2a;
}

.S10
{
    color:gray;
}

.S11
{
    color:olive;
}

.S12
{
    color:#dc143c;
}

.S13
{
    background-color:#DDE8F0;
    color:red;
}

.S14
{
    color:#939;
}

.S15
{
    color:#0080ff;
}

.bottom
{
    padding-bottom:0;
    margin-bottom:0;
}

.experimental
{
    background-color:#ffffe0;
    border:solid;
    border-color:red;
    font-size:1.5em; /* 24px; */
    font-weight:700;
    margin:12px;
    padding:4px;
}

.specialnote
{
    background-color:#fffffa;
    border:solid;
    border-color:blue;
    font-size:1.5em; /* 24px; */
    font-weight:500;
    padding:4px;
}

img.logo_v3
{
    box-shadow: 5px 5px 20px #aaa;
}

/* adapted from MSDN Web for example code open/copy actions */
.codeSnippetContainer
{
    min-width:260px;
    margin:0;
    padding:0;
}

.codeSnippetContainerTabs
{
    font-size:.8333em; /* 13.33px 10pt!important; */
    height:20px; /* 22px; */
    position:relative;
    vertical-align:middle;
    z-index:1;
}

.codeSnippetContainerTab
{
    /*background:none repeat scroll 0 0 #eff5ff; /* */
    border-bottom:2px solid #d0d2d2;
    border-top:1px solid #bbb;
    border-left:1px solid #929292;
    float:left;
    height:20px; /* 19px; */
    padding:0px 4px; /* 0px 8px; */
    width:auto;
    overflow:hidden;
    position:relative;
    font-weight:normal;
}

/* MSDN not used
.codeSnippetContainerTabActive
{
    height:21px;
    background:none repeat scroll 0 0 #fff;
    border-left:1px solid #bbb;
    border-bottom:none;
}

.codeSnippetContainerTabFirst
{
    border-radius:4px 0 0 0;
    padding:0 8px 0 6px;
}

.codeSnippetContainerTabLast
{
    border-right:1px solid #bbb;
    border-radius:0 4px 0 0;
    padding:0 6px 0 8px;
}
*/

.codeSnippetContainerTabSingle
{
    border:none;
    color:#00709f; /* #e66a38; */
    vertical-align:baseline;
    top:10px; /* 8px; */
    left:12px; /* 7px; */
    position:relative;
    background-color:#fff;
}

.codeSnippetContainerTabSingle a
{
    color:#e66a38; /* !important; */
}

.codeSnippetContainerTab a,.codeSnippetContainerTab a:link,.codeSnippetContainerTab a:visited,.codeSnippetContainerTab a:active
{
    color:#1364c4;
    text-decoration:none;
}

/* MSDN not used
.codeSnippetContainerTabActive a,.codeSnippetContainerTabActive a:link,.codeSnippetContainerTabActive a:visited,.codeSnippetContainerTabActive a:active
{
    color:#e66a38;
    text-decoration:none;
    position:relative;
}

.codeSnippetContainerTabPhantom a,.codeSnippetContainerTabPhantom a:link,.codeSnippetContainerTabPhantom a:visited,.codeSnippetContainerTabPhantom a:active
{
    color:#c2c2c2;
    text-decoration:none;
    position:relative;
}

.codeSnippetContainerTabPhantom a:link,.codeSnippetContainerTabPhantom a:visited,.codeSnippetContainerTabPhantom a:active
{
    color:#707070;
    text-decoration:none;
    position:relative;
}
*/

.codeSnippetContainerTab a:hover
{
    color:#e66a38;
    position:relative;
}

/* MSDN not used
.codeSnippetContainerTabPhantom a:hover
{
    color:#c2c2c2;
    position:relative;
}
*/

.codeSnippetContainerCodeContainer
{
    border-bottom:3px solid #e5e5e5;
    border-left:3px solid #e5e5e5; /* 1px */
    border-right:3px solid #e5e5e5; /* 1px */
    clear:both;
    margin-bottom:0; /* 12px; */
    position:relative;
    top:-3px;
}

.codeSnippetToolBar
{
    border-left:0px solid #e5e5e5; /* 1px */
    border-right:0px solid #e5e5e5; /* 3px */
    border-top:3px solid #e5e5e5;
    height:auto;
    width:auto;
}

div.codeSnippetToolBarText
{
    float:right;
    top:-12px; /* -8px; */
    position:relative;
    background-color:#fff;
    width:auto;
    padding-left:4px;
    padding-right:4px;
    height:0;
    vertical-align:top;
}

div.codeSnippetToolBarText>a:link,div.codeSnippetToolBarText>a:visited,div.codeSnippetToolBarText>a:active
{
    /* display:none; */
    margin-left:5px;
    margin-right:5px;
    /* font-size:100%; /* 83.33%; /* 10pt */
    /* font-style:normal!important; */
    /*color:#1364c4;*/
    text-decoration:none;
    background-color:#fff;
    padding-left:4px;
    padding-right:4px;
}

div.codeSnippetToolBarText>a:hover
{
    text-decoration:underline;
}

.codeSnippetContainerCode
{
    margin-top:14px; /* 0; */
    padding:5px 10px; /* 9px 21px; */
    width:auto;
}

.codeSnippetContainerCode div
{
    padding:0;
    margin:0;
}

.codeSnippetContainerCode pre
{ 
    padding-left:5px; /* 5px; */
    margin:0;
    word-break:break-all;
    word-wrap:break-word;
    font-style:normal;
    font-weight:normal;
    overflow:auto;
}

#hhctrl
{
    vertical-align:middle;
}

#hhctrl-bottom
{
    vertical-align:bottom;
}

.codeSnippetContainerTab object
{
    cursor:pointer;
    text-decoration:underline;
}
 

► Afficher le textefichier htm

Code : Tout sélectionner

<!DOCTYPE html>
<html>
<head>
  <title>Function WinActivate</title>
  <meta charset="utf-8">
  <link href="test.css" rel="stylesheet">
</head>

<body>
<h1 class="small">Function Reference</h1>
<hr style="height:0px">
<h1>WinActivate</h1>
<p class="funcdesc">Activates (gives focus to) a window.<br /></p>
<p class="codeheader">WinActivate ( "title" [, "text"] )<br />
</p>

<h2>Parameters</h2>
<table>
  <tr>
    <td style="width:15%">title</td>
    <td style="width:85%">The title/hWnd/class of the window to activate. See <a href="../intro/windowsadvanced.htm">Title special definition</a>.</td>
  </tr>
  <tr>
   <td>text</td>
   <td> <strong>[optional]</strong> The text of the window to activate. Default is an empty string. See <a href="../intro/windowsbasic.htm#specialtext">Text special definition</a>.</td>
  </tr>
</table>


<h2>Return Value</h2>
<table class="noborder">
  <tr>
    <td style="width:10%" class="valign-top">Success:</td>
    <td style="width:90%">the handle of the window.</td>
  </tr>
  <tr>
    <td class="valign-top">Failure:</td>
    <td>0 if window is not found or cannot be activated.</td>
  </tr>
</table>

<h2>Remarks</h2>
You can use the <a href="WinActive.htm">WinActive()</a> function to check if <a href="WinActivate.htm">WinActivate()</a> succeeded.  If multiple windows match the criteria, the window that was most recently active is the one activated.  <a href="WinActivate.htm">WinActivate()</a> works on minimized windows.  However, a window that is "Always On Top" could still cover up a window you Activated.<br />
<br />
Afer a successful activation @extended is set to 1 if the the window was already active, 2 if not.<br />
<br />

<h2>Related</h2>
<a href="WinClose.htm">WinClose()</a>, <a href="WinKill.htm">WinKill()</a>, <a href="WinMove.htm">WinMove()</a>, <a href="WinSetState.htm">WinSetState()</a>, <a href="AutoItSetOption.htm#WinTitleMatchMode">WinTitleMatchMode (Option)</a>

<br /><br /><br />

</body>
</html>
 

La conversion d'un txt en html devrait être assez simple vu que sa structure a été prévue pour ça

[TomAijerrie]

La conversion d'un txt en html devrait être assez simple vu que sa structure a été prévue pour ça

En effet, il y a un code autoit fourni avec la doc anglaise, mais je ne le comprends pas en entier.

► Afficher le texte

Code : Tout sélectionner

;
; AutoIt Version: 3.0
; Language:       English
; Platform:       Win9x/NT
; Author: jpm
; Email : jpm@autoitscript.com
;
; Script Function:
; Cleaning old unreferenced .htm files from examples or html dirs

#include "..\..\_build\include\OutputLib.au3"
#include <Constants.au3>

Opt("TrayIconDebug", 1)

Global $g_sINPUT_DIR
Global $g_sOUTPUT_DIR
Global $g_sTEMP_LIST = "fileList.tmp"

_OutputBuildWrite("Scanning AutoIt old .htm  ..." & @CRLF)

FileChangeDir(@ScriptDir)

$g_sINPUT_DIR = IniRead("txt2htm.ini", "Input", "examples", "ERR")
$g_sOUTPUT_DIR = IniRead("txt2htm.ini", "Output", "examples", "ERR")
Clean("examples", 1)

$g_sINPUT_DIR = IniRead("txt2htm.ini", "Input", "libexamples", "ERR")
$g_sOUTPUT_DIR = IniRead("txt2htm.ini", "Output", "examples", "ERR")
Clean("libexamples", -1)

$g_sINPUT_DIR = IniRead("txt2htm.ini", "Input", "functions", "ERR")
$g_sOUTPUT_DIR = IniRead("txt2htm.ini", "Output", "functions", "ERR")
Clean("functions")

$g_sINPUT_DIR = IniRead("txt2htm.ini", "Input", "keywords", "ERR")
$g_sOUTPUT_DIR = IniRead("txt2htm.ini", "Output", "keywords", "ERR")
Clean("keywords")

$g_sINPUT_DIR = IniRead("txt2htm.ini", "Input", "libfunctions", "ERR")
$g_sOUTPUT_DIR = IniRead("txt2htm.ini", "Output", "libfunctions", "ERR")
Clean("libfunctions")

FileDelete($g_sTEMP_LIST)

_OutputBuildWrite("Finished" & @CRLF & @CRLF)
Exit

Func Clean($sIndir, $iIgnore = 0)
    #forceref $sIndir
    ;pipe the list of sorted file names to fileList.tmp:
    _RunCmd("dir " & $g_sOUTPUT_DIR & "*.htm /b | SORT > " & $g_sTEMP_LIST)
    Local $hFileList = FileOpen($g_sTEMP_LIST) ;read mode
    If $hFileList = -1 Then
        MsgBox($MB_SYSTEMMODAL, "Error", $g_sTEMP_LIST & " could not be opened and/or found.")
        Exit
    EndIf

    Local $sFilename, $sPath, $sPathin
    While 1 ;loop thru each filename contained in fileOutList.tmp
        $sFilename = FileReadLine($hFileList)
        If @error = -1 Then ExitLoop ;EOF reached
        $sPath = $g_sOUTPUT_DIR & $sFilename
        If $sFilename = "CVS" Then ContinueLoop ; Skip CVS
        If $sFilename = "Changelog.txt" Then ContinueLoop ; Skip ChangeLog.txt
        If StringStripWS($sPath, 3) = "" Then ExitLoop

        Switch $iIgnore
            Case 1
                If StringLeft($sFilename, 1) = "_" Then ContinueLoop ; skip UDF Examples
            Case -1
                If StringLeft($sFilename, 1) <> "_" Then ContinueLoop ; skip AutoIt Examples
            Case 0
                If StringInStr($sFilename, " Management") Then ContinueLoop ; skip generated TOC
                If StringInStr($sFilename, " Reference") Then ContinueLoop ; skip generated TOC
        EndSwitch

        If Not FileExists($sPath) Then
            FileWriteLine(@ScriptDir & "\txt2htm_error.log", $sPath & " WAS not found; skipping it.")
            ContinueLoop
        EndIf

        If $iIgnore Then
            $sPathin = $g_sINPUT_DIR & StringTrimRight($sFilename, 8) & ".au3" ; strip .txt.htm suffix
        Else
            $sPathin = $g_sINPUT_DIR & StringTrimRight($sFilename, 4) & ".txt" ; strip .htm suffix
        EndIf

        If Not FileExists($sPathin) Then
            FileDelete($sPath)
            _OutputBuildWrite($sPath & @CRLF)
        EndIf

    WEnd

    FileClose($hFileList)
EndFunc   ;==>Clean

; ------------------------------------------------------------------------------
; Run DOS/console commands
; ------------------------------------------------------------------------------
Func _RunCmd($sCommand)
    FileWriteLine("brun.bat", $sCommand & " > " & $g_sTEMP_LIST)
    RunWait(@ComSpec & " /c brun.bat", "", @SW_HIDE)
    FileDelete("brun.bat")
    Return
EndFunc   ;==>_RunCmd
 

► Afficher le texte#Include "..\..\OutPutLib.au3

Code : Tout sélectionner

;===================================================================
; Project: OutputLib Library
; Description: Provides an interface for creating a two-pane window useful for displaying build and
;   progress output.
; Author: Jason Boggs <vampire DOT valik AT gmail DOT com>
; ===================================================================
#include-once

#Region Members Exported
#cs Exported Functions
_OutputWindowCreate() - Creates the output window and both output panes.
_OutputWaitClosed() - When called in the same process as the window exists, waits for the window to be closed, otherwise returns immediately.
_OutputProgressWrite($sData) - Writes data to the progress pane.
_OutputBuildWrite($sData) - Writes data to the build pane.
_OutputBuildWriteLine($sData) - Writes data to the build pane (by entire line).
_OutputBuildWriteLineError($sData) - Writes data to the build pane (by entire line if error).
_OutputWindowSetState($nState) - Changes the state of the output window.
_OutputWindowHandle() - Returns the handle to the output window.
#ce Exported Functions
#EndRegion Members Exported

#Region Includes
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#EndRegion Includes

#Region Global Variables
Global Enum $OUTPUT_PROGRESS, $OUTPUT_BUILD
Global Const $COPYDATASTRUCT = "ulong_ptr;dword;ptr"
Global Const $g_sOutputWindowTitle = "AutoIt Build Script Output"
Global Const $g_sOutputWindowText = "This is hidden text"
Global $g_hWndOutputWindow = 0, $g_idEditProgress, $g_idEditBuild, $g_idCheckAutoClose, $g_sOutputBuffer = ""
#EndRegion Global Variables

#Region Public Members

#Region _OutputWindowCreate()
; ===================================================================
; _OutputWindowCreate()
;
; Creates the output window and both output panes.
; Parameters:
;   None.
; Returns:
;   HWND to the window.
; ===================================================================
Func _OutputWindowCreate()
    Local $nOld = Opt("WinDetectHiddenText", True)
    Local $bExists = WinExists($g_sOutputWindowTitle, $g_sOutputWindowText)
    Opt("WinDetectHiddenText", $nOld)
    If $bExists Then Return 0

    ; Variables used to control different aspects of the GUI.
    Local $w = 600, $h = 480
    Local $nFontSize = Default, $nFontWeight = 600
    Local $nEditColor = 0xFFFFFF, $nEditStyle = BitOR($WS_HSCROLL, $WS_VSCROLL, $ES_READONLY)

    $g_hWndOutputWindow = GUICreate($g_sOutputWindowTitle, $w, $h)
    ; We use a hidden label with unique test so we can reliably identify the window.
    Local $idLabelHidden = GUICtrlCreateLabel($g_sOutputWindowText, 0, 0, 1, 1)
    GUICtrlSetState($idLabelHidden, $GUI_HIDE)
    Local $idLabelProgress = GUICtrlCreateLabel("Progress Output:", 4, 4, $w - 88, 20)
    $g_idCheckAutoClose = GUICtrlCreateCheckbox("Auto-close?", $w - 80, 4, 76, 20)
    GUICtrlSetFont($idLabelProgress, $nFontSize, $nFontWeight)
    $g_idEditProgress = GUICtrlCreateEdit("", 4, 28, $w - 8, 150, $nEditStyle)
    GUICtrlSetBkColor($g_idEditProgress, $nEditColor)
    __OutputSetEditLimit($g_idEditProgress) ; Max the size of the edit control.

    Local $idLabelBuild = GUICtrlCreateLabel("Build Output:", 4, 186, $w - 8, 20)
    GUICtrlSetFont($idLabelBuild, $nFontSize, $nFontWeight)

    ; We define $y explicitly because it's used both for the y position and the height calculation.
    Local $y = 210
    $g_idEditBuild = GUICtrlCreateEdit("", 4, $y, $w - 8, $h - (4 + $y), $nEditStyle)
    GUICtrlSetBkColor($g_idEditBuild, $nEditColor)
    __OutputSetEditLimit($g_idEditBuild) ; Max the size of the edit control.

    GUIRegisterMsg($WM_COPYDATA, "__OutputOnWM_COPYDATA")
    GUISetState(@SW_SHOWNORMAL, $g_hWndOutputWindow)
    Return $g_hWndOutputWindow
EndFunc   ;==>_OutputWindowCreate
#EndRegion _OutputWindowCreate()

#Region _OutputWaitClosed()
; ===================================================================
; _OutputWaitClosed()
;
; When called in the same process as the window exists, waits for the window to be closed,
;   otherwise returns immediately.
; Parameters:
;   None.
; Returns:
;   None.
; ===================================================================
Func _OutputWaitClosed($nReturn = 0)
    ; Test the state of the Auto-close checkbox.  If the window isn't in this
    ; process then this will never be true.
    If BitAND(GUICtrlRead($g_idCheckAutoClose), $GUI_CHECKED) And ($nReturn = 0) Then GUIDelete($g_hWndOutputWindow)

    ; While the window exists in this process wait for the close event.
    While WinExists(HWnd($g_hWndOutputWindow))
        If GUIGetMsg() = $GUI_EVENT_CLOSE Then GUIDelete($g_hWndOutputWindow)
    WEnd
EndFunc   ;==>_OutputWaitClosed
#EndRegion _OutputWaitClosed()

#Region _OutputProgressWrite()
; ===================================================================
; _OutputProgressWrite($sData)
;
; Writes data to the progress pane.
; Parameters:
;   $sData - IN - The data to write.
; Returns:
;   True if successful, False otherwise.
; ===================================================================
Func _OutputProgressWrite($sData)
    Return __OutputWrite($OUTPUT_PROGRESS, $sData)
EndFunc   ;==>_OutputProgressWrite
#EndRegion _OutputProgressWrite()

#Region _OutputBuildWrite()
; ===================================================================
; _OutputBuildWrite($sData)
;
; Writes data to the build pane.
; Parameters:
;   $sData - IN - The data to write.
; Returns:
;   True if successful, False otherwise.
; ===================================================================
Func _OutputBuildWrite($sData)
    Return __OutputWrite($OUTPUT_BUILD, $sData)
EndFunc   ;==>_OutputBuildWrite
#EndRegion _OutputBuildWrite()

#Region _OutputBuildWriteLine()
; ===================================================================
; _OutputBuildWriteLine($sData)
;
; Writes data to the build pane.
; Parameters:
;   $sData - IN - The data to write.
; Returns:
;   True if successful, False otherwise.
; ===================================================================
Func _OutputBuildWriteLine($sData)
    $g_sOutputBuffer &= $sData
    Local $asLine = StringSplit($g_sOutputBuffer, @LF)
    If @error Then Return

    For $i = 1 To $asLine[0] - 1
        _OutputBuildWrite($asLine[$i] & @LF)
    Next

    $g_sOutputBuffer = $asLine[$asLine[0]]
    Return
EndFunc   ;==>_OutputBuildWriteLine
#EndRegion _OutputBuildWriteLine()

#Region _OutputBuildWriteLineError()
; ===================================================================
; _OutputBuildWriteLineError($sData)
;
; Writes data to the build pane.
; Parameters:
;   $sData - IN - The data to write.
; Returns:
;   True if successful, False otherwise.
; ===================================================================
Func _OutputBuildWriteLineError($sData)
    $g_sOutputBuffer &= $sData
    Local $asLine = StringSplit($g_sOutputBuffer, @LF)
    If @error Then Return

    For $i = 1 To $asLine[0] - 1
        If StringLeft($asLine[$i], 4) <> "html" Then _OutputBuildWrite($asLine[$i] & @LF)
    Next

    $g_sOutputBuffer = $asLine[$asLine[0]]
    Return
EndFunc   ;==>_OutputBuildWriteLineError
#EndRegion _OutputBuildWriteLineError()

#Region _OutputWindowSetState()
; ===================================================================
; _OutputWindowSetState($nState)
;
; Changes the state of the output window.
; Parameters:
;   $nState - IN - An @SW_ state flag to use.
; Returns:
;   None.
; ===================================================================
Func _OutputWindowSetState($nState)
    Local $nOld = Opt("WinDetectHiddenText", True)
    WinSetState($g_sOutputWindowTitle, $g_sOutputWindowText, $nState)
    If $nState = @SW_RESTORE Then WinActivate($g_sOutputWindowTitle, $g_sOutputWindowText)
    Opt("WinDetectHiddenText", $nOld)
EndFunc   ;==>_OutputWindowSetState
#EndRegion _OutputWindowSetState()

#Region _OutputWindowHandle()
; ===================================================================
; _OutputWindowHandle()
;
; Returns the handle to the output window.
; Parameters:
;   None.
; Returns:
;   The handle to the output window.
; ===================================================================
Func _OutputWindowHandle()
    Return WinGetHandle($g_sOutputWindowTitle, $g_sOutputWindowText)
EndFunc   ;==>_OutputWindowHandle
#EndRegion _OutputWindowHandle()

#EndRegion Public Members

#Region Callback Functions

#Region __OutputOnWM_COPYDATA()
; ===================================================================
; __OutputOnWM_COPYDATA($hWnd, $nMsg, $wParam, $lParam)
;
; Message handler for WM_COPYDATA which is called when new output needs written.
; Parameters:
;   $hWnd - IN - UNUSED.
;   $nMsg - IN - UNUSED.
;   $wParam - IN - UNUSED.
;   $lParam - IN - Pointer to the $COPYDATASTRUCT.
; Returns:
;   Non-zero if handled, 0 otherwise.
; ===================================================================
Func __OutputOnWM_COPYDATA($hWnd, $nMsg, $wParam, $lParam)
    #forceref $hWnd, $nMsg, $wParam
    Local $tCds = DllStructCreate($COPYDATASTRUCT, $lParam)
    Local $tString = DllStructCreate("char[" & DllStructGetData($tCds, 2) & "]", DllStructGetData($tCds, 3))
    Local $sData = DllStructGetData($tString, 1)
    Local $nID
    Switch DllStructGetData($tCds, 1)
        Case $OUTPUT_PROGRESS
            $nID = $g_idEditProgress
        Case $OUTPUT_BUILD
            $nID = $g_idEditBuild
        Case Else
            Return 0
    EndSwitch
    Local $nLen = GUICtrlSendMsg($nID, $WM_GETTEXTLENGTH, 0, 0)
    GUICtrlSendMsg($nID, $EM_SETSEL, $nLen, $nLen)
    GUICtrlSetData($nID, $sData, True)
    Return 1
EndFunc   ;==>__OutputOnWM_COPYDATA
#EndRegion __OutputOnWM_COPYDATA()

#EndRegion Callback Functions

#Region Private Members

#Region __OutputSetEditLimit()
; ===================================================================
; __OutputSetEditLimit($idControl)
;
; Sets an edit control's text limit.
; Parameters:
;   $idControl - IN - The handle to the control.
; Returns:
;   None.
; ===================================================================
Func __OutputSetEditLimit($idControl)
    Local Const $EM_LIMITTEXT = 0xC5
    GUICtrlSendMsg($idControl, $EM_LIMITTEXT, 0, 0)
EndFunc   ;==>__OutputSetEditLimit
#EndRegion __OutputSetEditLimit()

#Region __OutputWrite()
; ===================================================================
; __OutputWrite($nOutput, Const ByRef $sData)
;
; Handles writing to an output pane by taking care of the necessary communication logic.
; Parameters:
;   $nOutput - IN - An $OUTPUT_ flag.
;   $sData - IN - The data to write.
; Returns:
;   True if successful, False otherwise.
; ===================================================================
Func __OutputWrite($nOutput, Const ByRef $sData)
    ; Find the target window.
    Local $nOld = Opt("WinDetectHiddenText", True)
    Local $hTarget = WinGetHandle($g_sOutputWindowTitle, $g_sOutputWindowText)
    Opt("WinDetectHiddenText", $nOld)
    If Not $hTarget Then Return False

    ; Use the hidden window as the source.
    Local $hSource = WinGetHandle(AutoItWinGetTitle())

    ; Create the structures
    Local $tCds = DllStructCreate($COPYDATASTRUCT)
    Local $nSize = StringLen($sData) + 1
    Local $tString = DllStructCreate("char[" & $nSize & "]")

    ; Fill the structures
    DllStructSetData($tString, 1, $sData)
    DllStructSetData($tCds, 1, $nOutput)
    DllStructSetData($tCds, 2, $nSize)
    DllStructSetData($tCds, 3, DllStructGetPtr($tString))

    ; Send the message.
    Local $aRet = DllCall("user32.dll", "int", "SendMessage", "hwnd", $hTarget, "int", $WM_COPYDATA, _
            "hwnd", $hSource, "ptr", DllStructGetPtr($tCds))
    If @error Then
        Return False
    Else
        Return $aRet[0] = 1
    EndIf
EndFunc   ;==>__OutputWrite
#EndRegion __OutputWrite()

#EndRegion Private Members
 

Si c'est juste pour visualiser, le html est quand même plus simple (dans un objet shell.explorer.2 par exemple)
Pour le fun tu peux utiliser le css du fichier d'aide

Je ne maîtrise toujours pas les fonctions objets et je pense que c'est pour moi une occasion de les comprendre et de m’entraîner. Peux-tu developper ton idée ?
J'ignore tout des CSS, qu'est-ce que c'est et comment les utiliser ?

Merci de m'aider.

[mikell]

L'objet shell.explorer.2 est juste un moyen d'afficher une page internet ou autre fichier html dans une gui, mais c'est pas indispensable

Code : Tout sélectionner

$oIE=ObjCreate("Shell.Explorer.2")
$gui = GUICreate("", 700, 450, -1, -1, -1, 0x80) 
$gX = GUICtrlCreateObj($oIE, 0, 0, 700, 450)
GUISetState()
$oIE.Navigate("mk:@MSITStore:" & StringRegExpReplace(@Autoitexe, '(.+)\\[^\\]+', "$1") _  
    & "\AutoIt.chm::/html/functions/GUICtrlCreateObj.htm")
While GuiGetMsg()<>-3
Wend

Un fichier css est un fichier externe qui définit les styles à utiliser par le fichier html
Pour l'exemple de mon post précédent, tu fais un fichier "test.css" que tu mets dans le même dossier que le "test.htm"

[TomAijerrie]

Merci

Avant j'utilisai #include <IE.au3>

Maintenant, il faut traduire le fichier txt en .htm et là, je bloque.
PS: le code que j'ai fourni pour convertir le txt en htm dans l'un de mes messages précédents ne correspond peut-être pas.
Il y a plein de codes ensembles, je ne sais pas faire le tri.

[orax]

Maintenant, il faut traduire le fichier txt en .htm et là, je bloque.
PS: le code que j'ai fourni pour convertir le txt en htm dans l'un de mes messages précédents ne correspond peut-être pas.
Il y a plein de codes ensembles, je ne sais pas faire le tri.

• Pour générer toute la doc.
Je duplique docs\autoit\english dans docs\autoit\français.
Je copie le contenu des fichiers traduits dans docs\autoit\français\txt2htm.

Puis dans docs\autoit\français\ j'exécute, dans l'ordre :
All_Clean_Examples.au3
All_Gen_AutoIt3.au3

• Attention, tu as créé un dossier txtfonctions, mais dans le txt2html.ini ce dossier est nommé différemment : txtFunctions.

• Tu peux aussi, pour tester, générer juste 1 fichier à la fois.
Dans docs\_build\include\Gen_txt2htm.au3 cherche et décommente :

Code : Tout sélectionner

; TestingOnly()
; OnAutoItExitUnRegister("OnQuit") ; ### Debug Console
; Exit

Exécute le code et sélection un fichier dans le répertoire txtfonctions. Un fichier HTML sera généré dans ce répertoire.
La partie conversion se fait surtout avec ConvertTextToHTML(). Comme indiqué dans le code, c'est la fonction principale pour la conversion.

[TomAijerrie]

Merci beaucoup.

Je regarde ça dès que j'aurrais plus de temps.