[R] Convertir en html

Linox · #1

Bonjour, existe il une fonction pour convertir du texte en html, je n'en voi pas sur le tuto ?

#2

A part mettre les balises <body> et <br>, c'est assez difficile. Il faudrait recreer un editeur pour voir la couleur, etc...

Linox · #3

je me sui aranger comme ca:

► Afficher le texte

Code : Tout sélectionner

Dim $vrTxt2Html


$vrTxt2Html = InputBox("Nom de la galerie", "Entrer ici le nom souhaité de la galerie:", "", "")

 If $vrTxt2Html = "" Then 
    MsgBox(0,"Info","Vous n'avez pas saisie de texte, opération anulée") 
    exit
 Else
 Endif


_lunna_txt2html($vrTxt2Html)


MsgBox(0,"Info", $vrTxt2Html) 



exit


Func _lunna_txt2html($vrTxt2Html2)

 $vrTxt2Html3 = StringReplace($vrTxt2Html2, "à", "%E0")
 $vrTxt2Html4 = StringReplace($vrTxt2Html3, "â", "%E2")
 $vrTxt2Html5 = StringReplace($vrTxt2Html4, "ä", "%E4")
 $vrTxt2Html6 = StringReplace($vrTxt2Html5, "Â", "%C2")
 $vrTxt2Html7 = StringReplace($vrTxt2Html6, "Ä", "%C4")
 $vrTxt2Html8 = StringReplace($vrTxt2Html7, "é", "%E9")
 $vrTxt2Html9 = StringReplace($vrTxt2Html8, "è", "%E8")
 $vrTxt2Html10 = StringReplace($vrTxt2Html9, "ê", "%EA")
 $vrTxt2Html11 = StringReplace($vrTxt2Html10, "ë", "%EB")
 $vrTxt2Html12 = StringReplace($vrTxt2Html11, "Ê", "%CA")
 $vrTxt2Html13 = StringReplace($vrTxt2Html12, "Ë", "%CB")
 $vrTxt2Html14 = StringReplace($vrTxt2Html13, "î", "%EE")
 $vrTxt2Html15 = StringReplace($vrTxt2Html14, "ï", "%EF")
 $vrTxt2Html16 = StringReplace($vrTxt2Html15, "Î", "%CE")
 $vrTxt2Html17 = StringReplace($vrTxt2Html16, "Ï", "%CF")
 $vrTxt2Html18 = StringReplace($vrTxt2Html17, "û", "%FB")
 $vrTxt2Html19 = StringReplace($vrTxt2Html18, "ü", "%FC")
 $vrTxt2Html20 = StringReplace($vrTxt2Html19, "Û", "%DB")
 $vrTxt2Html21 = StringReplace($vrTxt2Html20, "Ü", "%DC")
 $vrTxt2Html22 = StringReplace($vrTxt2Html21, "ô", "%F4")
 $vrTxt2Html23 = StringReplace($vrTxt2Html22, "ö", "%F6")
 $vrTxt2Html24 = StringReplace($vrTxt2Html23, "Ô", "%D4")
 $vrTxt2Html25 = StringReplace($vrTxt2Html24, "Ö", "%D6")
 $vrTxt2Html26 = StringReplace($vrTxt2Html25, "û", "%FB")
 $vrTxt2Html27 = StringReplace($vrTxt2Html26, "ü", "%FC")
 $vrTxt2Html28 = StringReplace($vrTxt2Html27, "Û", "%DB")
 $vrTxt2Html29 = StringReplace($vrTxt2Html28, "Ü", "%DC")

 $vrTxt2Html =  $vrTxt2Html29

EndFunc

#4

Vous pouvez utiliser la même variable pour le texte :

Code : Tout sélectionner

$vrTxt2Html3 = StringReplace($vrTxt2Html2, "à", "%E0")

peut être remplacé par

Code : Tout sélectionner

[b]$vrTxt2Html2[/b] = StringReplace($vrTxt2Html2, "à", "%E0")

Linox · #5

ca ne marche pas si je met la même variable

#6

Linox a écrit :ca ne marche pas si je met la même variable

C'est étrange

Peut être que vous avez laissé sur la ligne suivante la variable $vrTxt2Html3

Linox · #7

eu début j'avai mi la même variable pour tous les remplacement il manquer des caractére dans le chaine modifier

#8

Simplifiez votre fonction _lunna_txt2html comme ceci :

Code : Tout sélectionner

Func _lunna_txt2html($vrTxt2Html)
    Local $Str1 = StringSplit("à,â,ä,Â,Ä,é,è,ê,ë,Ê,Ë,î,ï,Î,Ï,û,ü,Û,Ü,ô,ö,Ô,Ö,û,ü,Û,Ü", ",")
    Local $Str2 = StringSplit("%E0,%E2,%E4,%C2,%C4,%E9,%E8,%EA,%EB,%CA,%CB,%EE,%EF,%CE,%CF,%FB,%FC,%DB,%DC,%F4,%F6,%D4,%D6,%FB,%FC,%DB,%DC", ",")

    For $i = 1 to $Str1[0]
        $vrTxt2Html = StringReplace($vrTxt2Html, $Str1[$i], $Str2[$i])
    Next
    
    Return $vrTxt2Html
EndFunc

AutoIt Français

[R] Convertir en html

[R] Convertir en html

Re: [..] Convertir en html

Re: [..] Convertir en html

Re: [R] Convertir en html

Re: [R] Convertir en html

Re: [R] Convertir en html

Re: [R] Convertir en html

Re: [R] Convertir en html