AutoIt Français

Code : Tout sélectionner

    Func _ChaineSansAccents($sString)
        ; Les caractères exotiques d'autres langues ne sont pas pris en compte.
        ; Complètez les tableaux si dessous pour prendre en compte d'autres types
        ; de caractères accentués.
        Dim $Var1[27] = ["à", "á", "â", "ã", "ä", "å", "æ", "ç", "è", "é", "ê", "ë", "ì", "í", "î", "ï", "ò", "ó", "ô", "ö", "ù", "ú", "û", "ü", "ý", "ÿ", "œ"]
        Dim $Var2[27] = ["a", "a", "a", "a", "a", "a", "ae", "c", "e", "e", "e", "e", "i", "i", "i", "i", "o", "o", "o", "o", "u", "u", "u", "u", "y", "y", "oe"]

        For $i = 0 To UBound($Var1) - 1
            $sString = StringRegExpReplace($sString, $Var1[$i], $Var2[$i])
            $sString = StringRegExpReplace($sString, StringUpper($Var1[$i]), StringUpper($Var2[$i]))
        Next
        Return $sString
    EndFunc   ;==>_SansAccents

Code : Tout sélectionner

#include <Array.au3>
;$txt = "je suis le texte" & @CRLF &  "qu'il faut controler et découper en tranche"
$txt = FileRead(@ScriptDir & "\AA.txt")
$txt = StringReplace($txt,@CRLF, " ")
$txt = StringReplace($txt,@CR, " ")
$txt = StringStripWS($txt,4)
$nb = StringLen($txt)
$long = 80
Local $array[0], $TT
For $i = 1 To $nb
    ConsoleWrite($i & @CRLF)
    $text10 = StringMid($txt,$i,$long)
    $i += $long
    While 1
        ;MsgBox(0,"",$text10 & "  " & $i)
        If StringMid($txt,$i,1) = " " Then
        ExitLoop
        EndIf
        $txt1 = StringMid($txt,$i,1)
        $text10 &= $txt1
        $i += 1
        If StringLen($text10) > $long + 9 Then ExitLoop
        If $i > $nb Then ExitLoop
    WEnd
ReDim $array[UBound($array) + 1]
$array[UBound($array) - 1] = $text10
    ConsoleWrite(StringLen($text10) & ">>" & $text10 & @CRLF)
    $TT &= $text10 & @CRLF
    $text10 = ""
Next
_ArrayDisplay($array)
MsgBox(0,"",$TT)

Code : Tout sélectionner

#include "MPDF_UDF_FR.au3";<<<<<<<<<<<<<<<<<<<<< DON'T FORGET TO CHANGE THE PATH TO THE UDF

;set the properties for the pdf
_SetTitle("Demo PDF in AutoIt")
_SetSubject("Demo PDF in AutoIt, without any ActiveX or DLL...")
_SetKeywords("pdf, demo, AutoIt")
_OpenAfter(True);open after generation
_SetUnit($PDF_UNIT_CM)
_SetPaperSize("A4")
_SetZoomMode($PDF_ZOOM_FULLPAGE)
_SetOrientation($PDF_ORIENTATION_PORTRAIT)
_SetLayoutMode($PDF_LAYOUT_CONTINOUS)

;initialize the pdf
_InitPDF(@ScriptDir & "Example justified paragraph.pdf")

;=== load resources used in pdf ===
;fonts:
_LoadFontTT("_Calibri", $PDF_FONT_CALIBRI)

;=== create objects that are used in multiple pages ===
;create a header on all pages, except the first:

_BeginPage()
_Draw_Rectangle(1.8, 22.5, 16.8, 4, $PDF_STYLE_STROKED, 0.2, 0xcafea0, 0.02)
$sText = "Anna Montes ridiculus, in pénâtibus, in âliquâm énim sâgittis pélléntésqué? Mâttis duis ét ut nunc sâgittis énim "
$sText &= "tortor urnâ, éros? Scélérisqué? Dâpibus scélérisqué vél rhoncus porttitor! Porttitor ridiculus. In âdipiscing âugué "
$sText &= "vél pélléntésqué tortor portâ hâc tristiqué turpis plâcérât scélérisqué éléméntum hâc pulvinar mid dôlôr pélléntésqué "
$sText &= "lundium mattis néc. Néc séd. ét adipiscing néc nisi éléméntum natôqué! Turpis pénatibus ést dictumst magnis intégér "
$sText &= "scêlêrisquê, sôciis, risus scêlêrisquê ultricês auctôr pôrta, ênim? Ac môntês pêllêntêsquê cum ênim auguê pênatibus "
$sText &= "pulvinar? Vêl mid, cum habitassê êtiam urna? In? êt, natôquê! Intêgêr ôdiô êgêstas! Rhôncus a vut natoquê pëllëntësquë "
$sText &= "diam lundium auguë in mus. Auctor, dictumst lacus turpis phasëllus ëtiam, proin mauris. Natoquë ultriciës turpis nisi "
$sText &= "platëa parturiënt? Nunc nascëtur ëst, adipiscing ënim turpis Mihai."
_Paragraph($sText, 2, 26, 16.5, "_Calibri", 10, 0)
_EndPage()
;then, finally, write the buffer to disk
_ClosePDFFile()