Отправляет email-рассылки с помощью сервиса Sendsay

[TC] Управление анализатором текста

Добрый вечер, Коллеги.
Слегка подправил старый вариант переключения режимов анализатора.
Script ChangeTextAnalyser ()
var
int iSet=GetJCFOption (OPT_TEXT_ANALYSER),
string msg
if GetJFWVersion () < 1300000 then
TypeCurrentScriptKey ()
Return
endif
let iSet = iSet+1
if iSet == 4 then
let iSet = False
endif
SetJCFOption (OPT_TEXT_ANALYSER, iSet)
if iSet == 1 then
let msg = msgUO_AlertSound
elif iSet == 2 then
let msg = msgUO_TextAnalyserSpeakCount
elif iSet == 3 then
let msg = msgUO_TextAnalyserDescribeAllInconsistencies
else
let msg = msgUO_TextAnalyserOff
endif
Say (msg, OT_USER_REQUESTED_INFORMATION)
EndScript
Пробуйте

Ответить   Tue, 20 Nov 2012 19:21:41 +0800 (#2609780)

 

Ответы:

Здравствуйте участники рассылки.
Здравствуйте, Leonid.

Вы писали вторник, 20 ноября 2012 г., 13:21:41:

Ответить   Vladimir Tue, 20 Nov 2012 22:53:44 +0200 (#2610144)