Salut à tous ! Ca fait un bail dis-donc ! J'espère que les lois anti-terroriste qui se préparent ne vous empêchent pas de vous exprimer. MDR !!!
Je vous propose aujourd'hui un concept pour relativement se faciliter la lecture de texte complexe lorsqu'on est déficient visuel. En effet pour tout ceux qui se sont frotté par exemple au développement web, il arrive qu'on tombe sur une URL avec un nombre important de paramètre, et le tout écrit sur une seule ligne. En général cette ligne unique se lit de caractère en caractère, et c'est particulièrement chiant pour sa compréhension ou même sa modification. Imaginez maintenant qu'il existe un moyen de décomposer cette ligne en plusieurs de telle sorte que chaque paramètres se trouve sur la sienne. Permettant ainsi de la parcourir de ligne en ligne. Avec un script que j'ai conçu dans mon éditeur de code html préféré, il me suffit de sélectionner le texte de la ligne de l'URL, d'effectuer le raccourci qui exécute le script de décomposition, qui va m'ouvrir une inputbox dans laquelle je dois taper le caractère ou la chaîne devant servir de délimiteur, ici en l'occurence pour ce qui est du cas d'une URL avec paramètre, c'est le caractère "&". Puis je fait entrer, et comme par magie, une URL comme ceci : http://fr.wikipedia.org/w/index.php?title=Sp%C3%A9cial:Recherche&limit=20&offset=40&profile=default&search=le+plus+grand est transformé en le texte suivant: http://fr.wikipedia.org/w/index.php?title=Sp%C3%A9cial:Recherche & limit=20 & offset=40 & profile=default & search=le+plus+grand Et bien entendu, je peux encore faire une sélection pour décomposer cette fois-ci les différentes parties de l'adresse du site séparées par des /. Et pour finir, je me suis également fait un script pour éliminer tous les retours à la ligne dans une sélection. Question de restaurer l'URL tel qu'elle était à l'origine. Pour moi je trouve ça tout à fait savoureux. Bon maintenant, je vais vous proposer les deux fonctions qui constituent ce script codé en VBScript. N'ayez pas peur, c'est simple à comprendre et peut aisément se reproduire dans tous les éditeurs avec langage de macro ou de script. Début du code vbScript Function SeparateOnSeveralLines() ' script de séparation sur plusieurs lignes ' du texte sélectionné par un caractère ' ou une expression à donner. ' identification du texte sélectionné s = ActiveDocument.SelText ' vérification if s =vbNullString then exit function end if ' demande du séparateur separator = inputbox("Tapez le caractère ou l'expression qui va séparer la chaîne sélectionnée sur plusieurs lignes") if separator = vbNullString then exit function end if ' on décompose dans un tableau Array tbl = split(s, separator) on error resume next ' selon la taille du tableau i = -1 i = ubound(tbl) if i <= 0 then exit function ' on reconstitut le texte, mais avec des retours à la ligne en plus avant et après le séparateur s = join(tbl, vbcrlf & separator & vbcrlf) ' et on remplace la sélection ActiveDocument.SelText = s end function Function JoinSeveralLines() ' joint les lignes sélectionnées ' en supprimant les retours à la lignes. ' on trouve le texte sélectionné s = ActiveDocument.SelText ' on supprime les retours à la ligne dans cette sélection s = replace(s, vbcrlf, "") ' on remplace la sélection ActiveDocument.SelText = s end function Fin du code vbScript Puisse cela inspirer quelqu'un ! Bisou à tous ! Yannick Daniel Youalé La programmation est une religion. Aimez-la, ou quittez-la. Mon site: www.visuweb.net
