Гость
Войти | Профиль | Очистить
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Возможно ли, чтобы все условия case сработали последовательно? / 12 сообщений из 12, страница 1 из 1
22.02.2015, 17:43
    #38886044
FAM
FAM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Возможно ли, чтобы все условия case сработали последовательно?
PROCEDURE TestCase
ttt=1
DO case
CASE ttt=1
MESSAGEBOX(ttt)
ttt=2
CASE ttt=2
MESSAGEBOX(ttt)
ttt=3
CASE ttt=3
MESSAGEBOX(ttt)
ENDCASE
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.02.2015, 18:49
    #38886064
Vladimir M Sklyar
Vladimir M Sklyar
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Возможно ли, чтобы все условия case сработали последовательно?
нет

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.02.2015, 19:50
    #38886082
sg12
sg12
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Возможно ли, чтобы все условия case сработали последовательно?
PROCEDURE TestCase
LOCAL lcString,lcStr,i
lcString = 'Name1,Name2,Name3'
FOR i = 1 TO GETWORDCOUNT(lcString,',')
lcStr = GETWORDNUM(lcString,i,',')
DO CASE
CASE lcStr == 'Name1'
* proc1
CASE lcStr == 'Name2'
* proc2
CASE lcStr == 'Name3'
* proc3
ENDCASE
ENDFOR
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.02.2015, 20:17
    #38886089
Dima T
Dima T
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Возможно ли, чтобы все условия case сработали последовательно?
FAM, замени на IF
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
if ttt=1
  MESSAGEBOX(ttt)
  ttt=2
endif
if ttt=2
  MESSAGEBOX(ttt)
  ttt=3
...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.02.2015, 21:53
    #38886122
FAM
FAM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Возможно ли, чтобы все условия case сработали последовательно?
Dima T,

С IF понятно... Вот, думал можно как-то перехитрить )))) Просто в готовом и олаженном коде заманчиво уж больно обойтись всего строчкой кода. Ну, да ладно, спасибо всем!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.02.2015, 21:54
    #38886125
FAM
FAM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Возможно ли, чтобы все условия case сработали последовательно?
sg12,

Да, именно такая схема и применяется, но сверху FOR лепить не хочется. Придется If-чик даписать... Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.02.2015, 22:51
    #38886142
sg12
sg12
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Возможно ли, чтобы все условия case сработали последовательно?
FAMsg12,

Да, именно такая схема и применяется, но сверху FOR лепить не хочется. Придется If-чик даписать... Спасибо!

А зачем тогда на каждом шаге эти ttt ... нужны, поставьте TRY или ON ERROR:
TRY
*proc1
*proc2
***
ENDTRY
RETURN !llSuccess
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.02.2015, 09:53
    #38886252
FAM
FAM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Возможно ли, чтобы все условия case сработали последовательно?
sg12,

Это же схема для пояснения вопроса. Реальный код на две страницы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.02.2015, 10:43
    #38886271
sg12
sg12
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Возможно ли, чтобы все условия case сработали последовательно?
FAM,

Понятно.
Но тогда ttt только усложняет код, и лучше его разбить на шаги, добавив небольшую "управляющую" процедуру, схематично:
PROCEDURE DoTestCase
.TestCase('Name1')
.TestCase('Name2')
.TestCase('Name3')
****
PROCEDURE TestCase
LPARAMETERS tcCase
DO CASE
CASE tcCase == 'Name1'
* proc1
CASE tcCase == 'Name2'
* proc2
CASE tcCase == 'Name3'
* proc3
ENDCASE
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.02.2015, 11:17
    #38886310
sg12
sg12
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Возможно ли, чтобы все условия case сработали последовательно?
FAM,

Также можно на каждом шаге "возвращаться":
PROCEDURE TestCase
LPARAMETERS tcCase
DO CASE
CASE tcCase == 'Name1'
* proc1
This.TestCase('Name2')
CASE tcCase == 'Name2'
* proc2
This.TestCase('Name3')
CASE tcCase == 'Name3'
* proc3
ENDCASE
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.02.2015, 10:28
    #38886829
Станислав С...кий
Станислав С...кий
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Возможно ли, чтобы все условия case сработали последовательно?
sg12FAM,

Также можно на каждом шаге "возвращаться":
PROCEDURE TestCase
LPARAMETERS tcCase
DO CASE
CASE tcCase == 'Name1'
* proc1
This.TestCase('Name2')
CASE tcCase == 'Name2'
* proc2
This.TestCase('Name3')
CASE tcCase == 'Name3'
* proc3
ENDCASE

Не учите ребенка плохому! В данном конкретном случае этот вариант сработает. Но число условий потенциально ничем не ограничено... Помните ограничения на уровень вложенности вызовов в Фоксе? А если в DO CASE будет более 32 условий?
Ваш первый вариант был оптимальнее....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.02.2015, 13:48
    #38887161
sg12
sg12
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Возможно ли, чтобы все условия case сработали последовательно?
Станислав С...кий,

Да, верно, уже при числе шагов больше 5 это решение становится "неуклюжим".
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Возможно ли, чтобы все условия case сработали последовательно? / 12 сообщений из 12, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 176ms
Закрыть
start [/forum/topic.php?fid=41&mobile=1&tid=1582437]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 79ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 12ms
total:  176ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]