Bonjour à tous
voici la dernière version du script qui ne marche plu affin de ne pas
faire tourner la boucle sans fin en cas de ligne vide, j'ai ajouté une
condition dans la obucle while
Du coup la boucle ne s'arrête plu quand elle rencontre un caractère
mais quand la deuxième condition est vrai
Comment avoir le caractère asci d'un caractère affin de détecter les
tabulations ?
bon voila le script :
Luc
include "hjConst.jsh"
const
BASE_COL = 59,
FIRST_INDENT = 67,
SEGOND_INDENT = 75,
THIRTH_INDENT = 83,
FORTH_INDENT = 75,
FIVTH_INDENT = 83,
SIXTH_INDENT = 91
Script CalculIndent ()
Var
int Col,
int Cpt,
string Character,
string Char
let Cpt = 0
{home}
SaveCursor ()
JAWSCursor ()
SaveCursor ()
RouteJAWSToPc ()
While Char == "" || Cpt < 80
let Col = GetCursorCol( )
let Character = GetCharacter ()
if Character != " " then
let Char = Character
Endif
let Cpt = Cpt + 1
EndWhile
SayString ("nombre d'espaces ou tabulations")
SayInteger (Cpt)
SayString ("indentation en pixel :")
SayInteger (Col)
RestoreCursor ()
PCCursor ()
RestoreCursor ()
EndScript
Script GetColPixel ()
Var
int Col
let Col = GetCursorCol( )
SayInteger (Col)
EndScript
Progliste :
Pour se désinscrire de la liste :
mailto:[email protected]?subject=unsubscribe
Pour voir les archives de la liste :
http://www.mail-archive.com/[email protected]/
Pour accéder aux fichiers de la liste
http://outils.archive-host.com/partage.php?id=2Qar9Hy6ftzr
Pour y ajouter des fichiers demandez-moi le ou sur la liste ou en privé, je
vous répondrez en privé.
