1. Action. Action () MS Excel : InfoAppActive, ActivateApp ( InfoAppTitle), StartApp. StartApp EXCEL.EXE, . : InfoFile, StringFromTime, FileWriteMessage, Text ( StringFromIntg).
Action MS Excel |
{ () - Study.xls} IF InfoAppActive(InfoAppTitle("Excel")) == 1 THEN ActivateApp InfoAppTitle("Excel"); ELSE StartApp "c:\progra~1\micros~2\office\excel d:\user\intouch\study.xls"; ENDIF; { a infostudy.txt} DIM Str AS MESSAGE; Str = StringFromTime(InfoFile("d:\user\intouch \study.xls", 3, $Year), 3); FileWriteMessage("d:\user\intouch\infostudy.txt ", -1, Str +", ",0); Str = Text(InfoFile("d:\user\intouch\study.xls ", 2, $Year), "#"); FileWriteMessage("d:\user\intouch\infostudy.txt ", -1, Str,1); |
2. MS Excel. InTouch. : =View|Tagname!'Level_1'. InTouch.
MS Excel WWPoke. , .
3. MS Excel (, R7C2) - . InTouch I/O. InTouch: Application Name - Excel, Topic Name - [Study.xls]Sheet1, Item - R7C2 ( , Sheet1 Study).
8. Windows Controls.
:
RadioButtomGroup, ListBox, ComboBox Windows Controls. InTouch. FOR-NEXT InTouch.
Windows Controls.
Windows Controls InTouch , . InTouch ListBox, ComboBox . , , Quick- InTouch. ( , ) Windows Controls. InTouch - . . , , . , , InTouch.
|
|
Quick- InTouch.
FOR-NEXT . FOR-NEXT :
FOR =
[STEP }
... ...
[IF (} THEN IT FOR; ENDIF;]
... ...
NEXT;
EXIT FOR. . EXIT FOR :
IF () THEN () ENDIF;.
, . FOR-NEXT InTouch. Window Viewer , , Quick-. , FOR-NEXT Quick-, . FOR-NEXT 5 . FOR-NEXT . , , , INTOUCH.INI, : LoopTimeout = 20, : 20 - .
1. , RadioButtomGroup, , .74.
.74. .
2. ListBox ComboBox . , SPS1.TXT - .
(On Show) (.75). .
.75.
3. ( ).
4. , .