Colorisation style vb

Soyez le premier à donner votre avis sur cette source.

Vue 3 352 fois - Téléchargée 138 fois

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.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_Tortuegeniale
Messages postés
1123
Date d'inscription
lundi 7 janvier 2002
Statut
Membre
Dernière intervention
26 juin 2008
1 -
je m'y prend peut etre mal mais
ColorisationVB("Dim a As String,Dim b As String,Dim c As String,Dim d As String,Dim e As String,Dim f As String"); marche pas :-/ sinon c interessant comme principe :)
SupraDolph
Messages postés
196
Date d'inscription
samedi 12 janvier 2002
Statut
Membre
Dernière intervention
1 septembre 2008
1 -
je ne comprend pa pourquoi tu rentre autemp de parametre en plus dim a as string c de la VB or ma fonction est faite en php. pour l'utilisée : echo ColorisationVB ($texte);
cs_Tortuegeniale
Messages postés
1123
Date d'inscription
lundi 7 janvier 2002
Statut
Membre
Dernière intervention
26 juin 2008
1 -
Tu vois je connais bien la différence entre php et vb ... mouarf en plus je rentre pas de parametre je rentre juste du code vb a coloriser

Critique :
- Ta fonction sert a afficher du text donc met le echo dans la fonction pour que ça fasse un peu comme les fonction highlight de php
- Fait une fonction qui va aller chercher le code dans un fichier et ki le colorise. Je sais pas si tu connais highlight_file de php (sinon va voir sur dev.nexen.net), une fonction comme ça ça serai pas mal
SupraDolph
Messages postés
196
Date d'inscription
samedi 12 janvier 2002
Statut
Membre
Dernière intervention
1 septembre 2008
1 -
Bonnes Idées Tortuegeniale je les prend en compte si j'ai le temps je regarderai ce que je peut faire (Mais en ce moment je vais m'atarder sur VB.net). Effectivement je ne connaissai pas highlight_file mais je connaissai dev.nexen.net qui m'aide ennormement pour mes début en php.
a+

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.