COLORISATION STYLE VB

<?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('<','&lt;',$Texte);
	$Texte = str_replace('>','&gt;',$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
}
?>