SI Asc(f.Texte) = 34 ALORS

// Recherche de tous les guillemets

tabGuillemetsOuvrants = DocRecherche({chTTX,indChamp},Caract(171))

tabGuillemetsFermants = DocRecherche({chTTX,indChamp}, Caract(187))

// On vérifie le sens du guillemet précédent.

SI tabGuillemetsOuvrants.Occurrence > 0 ALORS

SI tabGuillemetsFermants..Occurrence > 0 ALORS

SI tabGuillemetsOuvrants[tabGuillemetsOuvrants.Occurrence].PositionDébut > tabGuillemetsFermants[tabGuillemetsFermants.Occurrence].PositionDébut ALORS

// Le dernier guillemet est ouvrant, on utilise un guillemet fermant.

f.Texte = Caract(187)

SINON

// Le dernier est fermant, on utilise un guillemet ouvrant.

f.Texte = Caract(171)

FIN

SINON

// Le seul guillemet existant est ouvant, on utilise un guillemet fermant.

f.Texte = Caract(187)

FIN

SINON

// Il n'y a pas encore de guillemets, on utilise un guillemet ouvant.

f.Texte = Caract(171)

FIN

FIN