Colorisation style vb

Télécharger le projet
Commenter

Description

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.
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (SupraDolph)