View set.xpx
<debug mode="normal">
<html>
<head>
<title>TEST PHC VERSION $phcversion$</title>
<meta http-equiv="Cache-Control" content="no-cache">
<meta http-equiv="Expires" content="0">
</head>
<set name="i" expr="0"> <!--Déclare i à 0-->
<set name="module0" value="#CCCCCC"><!--Déclare un module de couleur gris-->
<body bgcolor="$module[i]$"> <!--Met un fond de couleur module0-->
<a href="ViewFile.xpx?fileName=$phccurrentfile$">Voir le source</a>
<br>
<font face="Verdana">
Session = $userid$<br>
<cond expr="$userid$!=monid">
<set session="userid" value="monid">
</cond>
<scope name="scopeup">
<set local="testvar" value="La 1ere variable locale">
testvar = $testvar$<br>
<scope>
<set local="testvar" value="$testvar$ modifiée">
<set local="testvar" value="$testvar$ scopeup" scope="scopeup">
testvar = $testvar$<br>
</scope>
testvar = $testvar$<br>
<set global="chaine" value="$testvar$ devient Globale">
</scope>
$phcstartprint$ - $testvar$
<h2>SET TEST</h2>
$LC_ALL$
<!--calcul de la longueur de la chaine-->
<set name="lentest" len="$chaine$">
LEN="$chaine$" = $lentest$<br>
<set name="abs" abs="-1">
abs(-1) = $abs$<br>
<set name="mod" expr="11 % 3">
11%3= $mod$<br>
<!--$cr$ = met un espace-->
<set name="cr" value="\n">
cr = ($cr$)<br>
<!--$tab$ = met une tabulation-->
<set name="tab" value="\t">
tab = ($tab$)<br>
<!--met des majuscules à la phrase-->
<set name="uptest" upcase="Caractères majuscule">
UPCASE="Caractères majuscule" = $uptest$<br>
$uptest(5,4)$<br>
<!--met des minuscules à la phrase-->
<set name="lowtest" lowcase="CARACTÈRES \Minuscule accentués">
LOWCASE="CARACTÈRES Minuscule" = $lowtest$<br>
<!--enleve tous les accents à la phrase-->
<set name="acctest" noaccent="Caractères \"non-accentuées\"">
NOACCENT="Caractères non-accentuées" = $acctest$<br>
<!--remplace une chaine de caracteres par une clé cryptée de 16 caractères-->
<set name="keytest" keycode="$HTTP_USER_AGENT$ 1">
KEYCODE="webmaster@indexa.fr" = $keytest$<br>
<set name="keytest" keycode="$HTTP_USER_AGENT$ 2">
KEYCODE="webmaster@indexa.fr" = $keytest$<br>$HTTP_USER_AGENT$
<!--affecte une valeur aléatoire entre 1 et 256-->
<set name="randtest" rand="256">
RAND="256" = $randtest$<br>
<!--converti un entier en binaire-->
<set name="bit0" expr="$randtest$" bit="0">
<set name="bit1" expr="$randtest$" bit="1">
<set name="bit2" expr="$randtest$" bit="2">
<set name="bit3" expr="$randtest$" bit="3">
<set name="bit4" expr="$randtest$" bit="4">
<set name="bit5" expr="$randtest$" bit="5">
<set name="bit6" expr="$randtest$" bit="6">
<set name="bit7" expr="$randtest$" bit="7">
<!--affiche le nombre converti en binaire-->
BIT = $bit7$$bit6$$bit5$$bit4$$bit3$$bit2$$bit1$$bit0$<br>
<set name="i" expr="0">
<while expr="$i$<=7">
$bit[i]$
<set name="$i$val" value="$bit[i]$$i$">
<set name="i" expr="$i$+1">
</while>
<br>
<set name="i" expr="0">
<while expr="$i$<=7">
$[i]val$
<set name="i" expr="$i$+1">
</while>
<br>
<set name="res" expr="$randtest$" biton="1">
bit1on = $res$<br>
<set name="res" expr="$randtest$" bitoff="1">
bit1off = $res$<br>
<!--Permet de rajouter une ' ou \ pour la compatibilité avec des serveurs de BDD-->
<set name="strtest" strescape="L'appel d'aujourd'hui">
STRESCAPE="L'appel d'aujourd'hui" = $strtest$<br>
<set name="strtest2" strescape="PHC, c'est le langage du \"net\"">
STRESCAPE="PHC, c'est le langage du \"net\"" = $strtest2$<br>
<set name="calcul" expr="2*4+5">
EXPR CALC: $calcul$<br>
<set name="test" value="((3*4)/2)+(3+5)*(4-2)">
<set name="r" expr="$test$">
$test$=$r$<br>
<set name="soul" strcode="je suis énervè, ça fait tr€s mâl!">
ENCODE=$soul$<br>
<set name="soul" strdecode="je suis énervè, ça fait tr€s mâl!">
DECODE=$soul$<br>
<set name="url" urlcode="http://www.mémégégé.fr">
URLCODE=$url$<br>
<set name="soul2" xmlcode="je suis énervè, ça fait tr€s mâl!">
XMLCODE=$soul2$<br>
<set name="orig" value="--------|-------"><br>
<set name="replace1par0" value="$orig$" replace="-" by=""> replace1par0 = $replace1par0$<br>
<set name="replace1par1" value="$orig$" replace="-" by="*"> replace1par1 = $replace1par1$<br>
<set name="replace3par1" value="$orig$" replace="---" by="*"> replace3par1 = $replace3par1$<br>
<set name="replace1par3" value="$orig$" replace="-" by="*+*"> replace1par3 = $replace1par3$<br>
<set name="replace" value="$orig$" replace="-------" by="*+*"> replace = $replace$<br>
<br><br>
<setarea name="area">
<u>setarea</u> : Permet facilement des "trucs entre guillements"<br>
et des CR $url$
</setarea>
<br>$area$
<setarea name="area" option="noparse">
<u>setarea noparse</u> : Permet facilement des > et "trucs entre guillements"<br>
et des CR <b>$url$</b> en gras <a href="/" title="test" >lien</a>
</setarea>
<br>$area$
<br>
<set name="nohtml" html2text="$area$">
html2text = $nohtml$
<br><h1>Liste des variables</h1>
<set name="arg" expr="1">
<while expr="!$#[arg]$">
$#[arg]$ = $[arg]$<br>
<set name="arg" expr="$arg$+1">
</while>
</font>
</body>
</html>
20240429