1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58
|
[PCOMM SCRIPT HEADER]
LANGUAGE=VBSCRIPT
DESCRIPTION=Recherche d'un mot
[PCOMM SCRIPT SOURCE]
OPTION EXPLICIT
autECLSession.SetConnectionByName(ThisSessionName)
REM This line calls the macro subroutine
subSub1_
sub subSub1_()
Dim col, row, lg, ind, retval
autECLSession.autECLOIA.WaitForAppAvailable
col = autECLSession.autECLPS.CursorPosCol
row = autECLSession.autECLPS.CursorPosRow
ind = -1
Retval = autECLSession.autECLPS.GetText(row, col, 1)
do until retval = " " or retval = ":" or retval = ")" or retval = "(" or retval = "," or retval = ";" or retval = "=" or retval = "'" or col+ind > autECLSession.autECLPS.NumCols -1
ind = ind + 1
Retval = autECLSession.autECLPS.GetText(row, col+Ind+1, 1)
loop
If Ind < 0 then
Exit sub
else
Retval = autECLSession.autECLPS.GetText(row, col, 1+ind)
end if
if autECLSession.autECLPS.GetText(1, 58, 18) = "Source d'un module" then
autECLSession.autECLPS.SetCursorPos 23,16
autECLSession.autECLPS.SendKeys "[ERASE EOF]" & "TOP" & "[ENTER]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SetCursorPos 23,16
autECLSession.autECLPS.SendKeys "[ERASE EOF] F " & retval & "[ENTER]"
elseif autECLSession.autECLPS.GetText(1, 32, 18) = "Source d'un module" then
autECLSession.autECLPS.SetCursorPos 20,16
autECLSession.autECLPS.SendKeys "[ERASE EOF]" & "TOP" & "[ENTER]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SetCursorPos 20,16
autECLSession.autECLPS.SendKeys "[ERASE EOF] F " & retval & "[ENTER]"
elseif autECLSession.autECLPS.GetText(1, 57, 14) = "Fichier spoule" then
autECLSession.autECLPS.SetCursorPos 3,22
autECLSession.autECLPS.SendKeys "[ERASE EOF]" & "T" & "[ENTER]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SetCursorPos 4,22
autECLSession.autECLPS.SendKeys "[ERASE EOF]" & retval & "[PF16]"
else
if autECLSession.autECLPS.GetText(15, 55, 6) = "Examen" and row > 13 then
autECLSession.autECLPS.SetCursorPos 16,9
else
autECLSession.autECLPS.SetCursorPos 2,9
end if
autECLSession.autECLPS.SendKeys "[ERASE EOF]" & "f " & retval & " all" & "[ENTER]"
end if
end sub |
Partager