Salut a tous, je poste ma premiére source en php.
C'est en fait une fonction qui permet de colorisé un texte Visual Basic.
La fonction repére les mot clef et les commentaire. Il est possible que j'ai oublié des mots clef si tel est le cas je vous serais reconnaissant de me le faire parvenir. Merci.
__________________________________
Bonne Prog. A tous
SupraDolph.
Source / Exemple :
<?php
//Fonction ColorisationVB de SupraDolph le 06/06/03
// #string ColorisationVB ( #string )
function ColorisationVB($Texte)
{
//Liste des mots a colorisé en bleu
$ListMot = Array("Alias", "And", "As", "Boolean", "Binary", "ByRef", "Byte", "ByVal", "Call", "Case", "Case Is", "Close", "Const", "Currency", "Date", "Declare", "Dim", "Do", "Double", "Else", "ElseIf", "End", "Enum", "Erase", "Error", "Events", "Exit", "Exit For", "False", "For", "Function", "Get", "GoTo", "If", "Input", "Integer", "Let", "Lib", "Line", "Long", "Loop", "New", "Next", "Not", "Nothing", "Object", "On", "Open", "Option Explicit", "Optional", "Or", "Output", "Print", "Private", "Property", "Public", "ReDim", "Resume", "Select", "Set", "Single", "Static", "Step", "String", "Sub", "Then", "To", "Put", "True", "Type", "Variant", "Wend", "While", "With", "Xor");
//On indique que les <> ne sont pas des balises
$Texte = str_replace('<','<',$Texte);
$Texte = str_replace('>','>',$Texte);
//On supprime les slash
$Texte = stripslashes($Texte);
//Découpage du texte lignes par lignes dans un tableau
$T=split(chr(13),$Texte);
//Boucles qui permet de traité le document lignes par lignes
for($k = 0; $k < count($T); $k++)
//On supprime les espaces rajouter par la textarea
{$T[$k]=trim($T[$k]);
/*..........*/
/* Fonction */
/*..........*/
//Boucle qui permet de traiter tout les mots speciaux
for($i = 0; $i < count($ListMot); $i++)
{
$Fin = 0; //Réinitialisation de Debut et Fin qui sont la position du mot trouver dans le document
$Debut = 0;
while($Debut !== false)
{
$Debut = strpos(ucwords($T[$k]),$ListMot[$i],$Fin); //On regarde si le mot actuel est dans le document
if($Debut !== false)
{
$Fin = $Debut + strlen($ListMot[$i]); //Position après le mot
//On teste ce qu'il y a avant et après le mot
if(($T[$k]{$Debut - 1} == NULL) || ($T[$k]{$Debut - 1} == " ") || ($T[$k]{$Debut - 1} == "(") || ($T[$k]{$Debut - 1} == ")") || ($T[$k]{$Debut - 1} == ",") || ($T[$k]{$Debut - 1} == ":"))
{
if (($T[$k]{$Fin} == '') || ($T[$k]{$Fin} == " ") || ($T[$k]{$Fin} == "(") || ($T[$k]{$Fin} == ")") || ($T[$k]{$Fin} == ",") || ($T[$k]{$Fin} == ":"))
{
//Compte le nombre de "
$Nombre = substr_count(substr($T[$k], 1, $Debut),'"');
//s'il y en a un nombre paire (ce n'est pas du text) et que ce n'est pas du commentaire...
if (($Nombre % 2 == 0) && (strpos(substr($T[$k], 1, $Debut - 1), "'", 1) === false) && (strpos(substr($T[$k], 1, $Debut - 1), "Rem", 1) === false))
{
$deb = substr($T[$k], 0, $Debut); //Avant le mot
$col = $ListMot[$i]; //Le mot
$fini = substr($T[$k], $Fin, strlen($T[$k])); //Après le mot
$T[$k] = $deb.'<font color="#3333CC">'.$col.'</font>'.$fini; //On rassemble la ligne
}
}
}
}
}
}
/*.............*/
/* Commentaire */
/*.............*/
$Debut = strpos($T[$k], "'", 0); //On recherche un "'" dans la ligne en cours
if (ucfirst(substr($T[$k], 0, 4))=='Rem ') //On regarde si les premiéres lettres sont Rem<espace>
{
$Debut = 0;
$T[$k] = 'R'.substr($T[$k], 1); //On met un "R" majuscule ucfirst ne marchais pas je ne sais pas pourquoi
}
if ($Debut !== false)
{
//Compte le nombre de "
$Nombre = substr_count(substr($T[$k], 1, $Debut),'"');
//Si il y a un nombre paire de guillemet (") devant la quote (') c'est que c'est du commantaire car ce n'est pas du texte
if ($Nombre % 2 == 0)
{
$deb = substr($T[$k], 0, $Debut);
$col = substr($T[$k], $Debut, strlen($T[$k]));
$T[$k] = $deb.'<font color="#009900">'.$col.'</font>';
}
}
}
/*............................*/
/* Reconstitution Du Document */
/*............................*/
$Texte = ""; //On vide la variable
for ($i = 0; $i < count($T) - 1; $i++) //Boucle parcourant les lignes du document excepté laa derniére
$Texte = $Texte.$T[$i].'<br>'; //On met un "<br>" qui replace un retour chariot
$Texte = $Texte.$T[count($T) - 1]; //On met la derniére ligne
return '<font size="1" face="Courier New, Courier, mono">'.$Texte.'</font>'; //On renvoi le texte
}
?>
Conclusion :
Rem j'ai commenté le texte mais si des questions persistent demander moi.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.