Discussion :

[chausette]

Bonjour,

Je suis débutant sous AS/400 et j'aimerai récupérer dans une variable une zone sélectionnée à l'écran.
Voici la macro que j'ai faite qui bien sur, ne fonctionne pas !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
[PCOMM SCRIPT HEADER]
LANGUAGE=VBSCRIPT
DESCRIPTION=
[PCOMM SCRIPT SOURCE]
OPTION EXPLICIT
autECLSession.SetConnectionByName(ThisSessionName)

REM This line calls the macro subroutine
subSub1_

sub subSub1_()

   
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "[up]"
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "[up]"
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "[right]"
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "[right]"
   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

   autECLMacro "[mark right]"

Dim test

test=autECLMacro "[edit-copy]"

   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "[tab]"
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys test
end sub

J'arrive bien à copier la valeur affichée à l'écran, mais je n'arrive pas à la stocker dans une variable

[FORMULARY]

Utilise plutôt la fonction GetText :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Ceci est un exemple de configuration de GetText : 

DIM RetVal 
	' Initialiser la connexion 
	autECLSession.SetConnectionByName(autECLConnMgr.autECLConnList(1).Name) 
	' Extraire le texte de la zone Field(1) 
	autECLSession.autECLPS.autECLFieldList.Refresh 
	RetVal = autECLSession.autECLPS.autECLFieldList(1).GetText

[m4k-Hurrican]

Ou récupère le texte à une position avec la même fonction GetText() :
autECLSession.autECLPS.GetText(Row,Col,Length)

[chausette]

Super, merci beaucoup, ça fonctionne impec !