[Résolu][Writer]Programmer une colorisation automatique

[MantesURH17]

Bonjour, je ne sais pas si cela est possible, mais je souhaiterais pouvoir mettre une certaine couleur à mon texte suivant les caractères.
Par exemple, si j'ai un texte comme celui-ci :

Ceci est mon texte
/* Ceci est mon texte */
( Ceci est mon texte )

Si c'est possible de mettre "/* Ceci est mon texte */" en vert et "( Ceci est mon texte )" en rouge ?

Merci d'avance

[marco]

Bonjour
Se servir des styles de caractère ne serait-il pas plus simple ?

[MantesURH17]

C'est à dire ?

J'aimerais que ça le fasse automatique entre certaines suites de caractères.

[joel275]

Bonjour,

quand tu dis "automatique", tu veux mettre en couleurs les morceaux de textes une fois que tout le texte est tapé (par exemple en appuyant sur un bouton) ou au fur et à mesure que le texte est tapé (à chaque fois qu'on tape un caractère donné)?
dans le premier cas, une recherche avec caractères génériques et le styliste conviendrait peut-être
dans le deuxième cas, il faut faire faire une macro avec un listener, ce qui est plus compliqué à mettre en oeuvre et beaucoup plus long à faire

A plus.

[MantesURH17]

Ce serait la deuxième solution du coup .

[jeanmimi]

Bonjour,
Le premier sujet ayant été posté sans demande de Macro, l'utilisation Rechercher&Remplacer après avoir sélectionné Expressions régulières et avoir créé un Style de caractère :
Recherche d'un mot entre parenthèses :

Code : Tout sélectionner

(\(([.*)])+\))\(\)

Application d'un Style de caractère, appelé ici CR_Accentuation_forte :

Code : Tout sélectionner

\C{CR_Accentuation_forte}

[MantesURH17]

Je t'avouerai que je n'ais pas compris ce que tu viens de m'expliquer

[Piaf]

Bonjour
Tu peux tester

Code : Tout sélectionner

Sub RegisterKeyHandler
Dim oView as Object
	oView = ThisComponent.getCurrentController
	oKeyHandler = createUnoListener("Color_", "com.sun.star.awt.XKeyHandler")
	oView.addKeyHandler(oKeyHandler)
End Sub

Sub UnregisterKeyHandler
	on error resume next
	oDocView.removeKeyHandler(oKeyHandler)
End Sub

Function Color_KeyPressed(oEv) as Boolean
Dim oDoc as Object
	Color_KeyPressed = False
End Function

Function Color_KeyReleased(oEv) As Boolean
	Color_KeyReleased = False
	oDoc = thisComponent
	curseurVisible = oDoc.CurrentController.ViewCursor
	monCurseur = oDoc.Text.createTextCursor
	Select Case oEv.KeyChar
		Case "*"
			monCurseur.gotoRange(curseurVisible, False)
			monCurseur.goLeft(2,True)
			If moncurseur.String = "/*" Then
			oDoc.CurrentController.Select(monCurseur)
			curseurVisible.CharColor = RGB(0,255,0)
			curseurvisible.goRight(2,False)
			End If
		Case "\"
			monCurseur.gotoRange(curseurVisible, False)
			monCurseur.goLeft(2,True)
			If moncurseur.String = "*\" Then
			oDoc.CurrentController.ViewCursor.CharColor = -1
			End If
		Case "("
			monCurseur.gotoRange(curseurVisible, False)
			monCurseur.goLeft(1,True)
			oDoc.CurrentController.Select(monCurseur)		
			oDoc.CurrentController.ViewCursor.CharColor = RGB(255,0,0)
			curseurvisible.goRight(1,False)
		Case ")"
			oDoc.CurrentController.ViewCursor.CharColor = -1		
	End Select	
End Function

Sub Color_disposing(oEv As Object)
End Sub

Le caractère de fin de couleur verte est la barre oblique inversée (antislash).

Couleurs.gif

A+

[MantesURH17]

Que doit-je faire du code ?

[Piaf]

Re
Le code est dans le fichier mis en ligne.
Le principe est celui exposé par joel275, la mise en place d'un listener surveillant l'appuie des touches, à l'ouverture du document.
Si les caractères /* sont tapés, la couleur passe en vert, si les caractères *\ sont tapés, la couleur repasse en automatique.
Si le caractère ( est tapé, la couleur passe au rouge, si le caractère ) est tapé, la couleur repasse en automatique.
A+

[MantesURH17]

Jessayerai ça une fois chez moi merci

[MantesURH17]

Effectivement cela marche ! ^^
Où es-ce que je peux trouver ces lignes de codes et comment les remettre dans mes futurs documents ?
Merci encore !

Edit : C'est bon j'ai trouvé ! ^^
Je ne peux pas changer la fin de colorisation "*\" par "*/" ?

[Piaf]

Re

Je ne peux pas changer la fin de colorisation "*\" par "*/" ?

Tu as déjà ce caractère en début de la coloration verte.
Teste, tu verras le résultat.
A+

[MantesURH17]

J'ai /* en début j'aimerais */ en fin c'est pas le même ... si ? ^^

[Piaf]

Re
Le déclenchement du listener se fait à chaque fois qu'un caractère du select case est tapé.
À priori */ en fin de couleur verte semble fonctionner sous AOO, pas sous LibO.
A+

[MantesURH17]

Comment puis je le changer ? J'ai essayer de le modifier dans le code que tu m'as donné mais ça ne semble pas fonctionner

[Piaf]

Bonjour
Le fichier modifié.
A+

[MantesURH17]

Ca marche merci !