ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / есть ли команда в FoxPro как в pascal goto
25 сообщений из 78, страница 1 из 4
  1  все
есть ли команда в FoxPro как в pascal goto
    #33485017
warlocklex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
warlocklex
Гость
есть ли команда в FoxPro как в pascal goto?
а то мне вернуться надо по тексту программы назад повторить код.


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
 [color=red] сюда вернутся [/color]
z=GETDIR('C:\','',выберите катало, 0 )
thisform.put.Caption= z +LEFT(DTOC(osystem.date), 2 ) +  ;
                  SUBSTR(DTOC(osystem.date),  4 ,  2 ) + ;
                  "_" +".txt" 
pa=thisform.put.Caption                 
IF FILE(pa)
          mes=messagebox("такой файл уже есть", 2 + 48 ,"внимание")
          DO CASE 
             CASE mes= 3 
                  thisform.release()
             CASE mes= 4 
              [color=red]  отсюда [/color]
             CASE mes= 5 
                  DELETE FILE pa
           ENDCASE         
ENDIF
...
Рейтинг: 0 / 0
16.01.2006, 14:09
| Ответить | Цитировать | Написать  
есть ли команда в FoxPro как в pascal goto
    #33485134
Недоходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Недоходящий
Участник
Нет. делай процедурки.
...
Рейтинг: 0 / 0
16.01.2006, 14:45
| Ответить | Цитировать | Написать  
есть ли команда в FoxPro как в pascal goto
    #33485197
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AleksMed
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
 [color=red] сюда вернутся [/color]
do while .T.
z=GETDIR('C:\','',выберите катало, 0 )
thisform.put.Caption= z +LEFT(DTOC(osystem.date), 2 ) +  ;
                  SUBSTR(DTOC(osystem.date),  4 ,  2 ) + ;
                  "_" +".txt" 
pa=thisform.put.Caption                 
IF FILE(pa)
          mes=messagebox("такой файл уже есть", 2 + 48 ,"внимание")
          DO CASE 
             CASE mes= 3 
                  thisform.release()
             CASE mes= 4 
              [color=red]  отсюда [/color]
                 loop
             CASE mes= 5 
                  DELETE FILE pa
           ENDCASE         
           exit
ENDIF   
enddo
...
Рейтинг: 0 / 0
16.01.2006, 14:56
| Ответить | Цитировать | Написать  
есть ли команда в FoxPro как в pascal goto
    #33486059
warlocklex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
warlocklex
Гость
я не понял почему
Код: plaintext
do while .T.
где это труф будет прописавать!

всем спасибо!кланусь до зёмли!
я решил бе новоротов обойтись
...
Рейтинг: 0 / 0
16.01.2006, 23:23
| Ответить | Цитировать | Написать  
есть ли команда в FoxPro как в pascal goto
    #33486077
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Вот здесь поднималась та же тема

http://forum.foxclub.ru/read.php?29,177919

А по поводу кода Алексея получаем примерно следующее:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
* организуем бесконечный цикл. 
* Поскольку условие ВСЕГДА .T., то из такого цикла можно выйти только ЯВНО
* т.е. явно дав команду EXIT
DO WHILE .T.  
....
IF (условие перехода)
	* Безусловный переход к следующему шагу цикла
	* В данном случае на команду DO WHILE
	LOOP 
ENDIF
...
* Безусловный выход из бесконечного цикла
EXIT 
ENDDO

Смысл организации этого бесконечного цикла в том, что операторы безусловного перехода LOOP и EXIT работают только внутри циклов. Вот и организовали "фиктивный" цикл.

.T. никто прописывать не будет. Это логическая константа. Ну, чтобы было понятнее, это эквивалентно такому коду

DO WHILE (1=1)

Т.е. некое выражение, которое всегда равно "истина". А здесь прямо так "истина" и написали. Без вычислений.
...
Рейтинг: 0 / 0
17.01.2006, 00:00
| Ответить | Цитировать | Написать  
есть ли команда в FoxPro как в pascal goto
    #33486728
S866
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
S866
Участник
правильно - писать через Goto - дурной тон - надо отказываться от его использования вобще.
...
Рейтинг: 0 / 0
17.01.2006, 11:29
| Ответить | Цитировать | Написать  
есть ли команда в FoxPro как в pascal goto
    #33487465
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Но вообще-то принято нормальный код без goto делать...
...
Рейтинг: 0 / 0
17.01.2006, 15:29
| Ответить | Цитировать | Написать  
есть ли команда в FoxPro как в pascal goto
    #33487713
Недоходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Недоходящий
Участник
2 S866
Не согласен. Лично мне goto больше бы подошло чем while.
...
Рейтинг: 0 / 0
17.01.2006, 16:37
| Ответить | Цитировать | Написать  
есть ли команда в FoxPro как в pascal goto
    #33487805
Burn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Burn
Участник
>Не согласен. Лично мне goto больше бы подошло чем while.
Это дело привычки и личных предпочтений. При грамотном кодировании единственое законо место для оператора перехода - это выход из цикла в произвольный момент. Для чего в Фоксе есть EXIT и LOOP
...
Рейтинг: 0 / 0
17.01.2006, 16:59
| Ответить | Цитировать | Написать  
есть ли команда в FoxPro как в pascal goto
    #33487903
alex11100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex11100
Гость
2 Недоходящий

ну опыт - он сын ошибок трудных


изв., это не козление - это совет
может со сложного начать сразу
а классы, dodefault nodefault, еще не юзал???
может класик пописать тебе какой
глядишь думать начнешь по-другому, а ??
...
Рейтинг: 0 / 0
17.01.2006, 17:22
| Ответить | Цитировать | Написать  
есть ли команда в FoxPro как в pascal goto
    #33488014
Недоходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Недоходящий
Участник
2 alex11100

>>а классы, dodefault nodefault, еще не юзал???
классы юзал, а остально е нет
...
Рейтинг: 0 / 0
17.01.2006, 17:53
| Ответить | Цитировать | Написать  
есть ли команда в FoxPro как в pascal goto
    #33488055
alex11100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex11100
Гость
я тожеть после бейсиковой искры и спектрума
тоже горевал по готу и госабу, да
чудные были времена

зато на турбобейсике дажеть музыкальные открытки писал
в свободное время от программирования
...
Рейтинг: 0 / 0
17.01.2006, 18:09
| Ответить | Цитировать | Написать  
есть ли команда в FoxPro как в pascal goto
    #33488106
Недоходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Недоходящий
Участник
2 alex11100
ну у меня тоже так но только после assemblera
...
Рейтинг: 0 / 0
17.01.2006, 18:29
| Ответить | Цитировать | Написать  
есть ли команда в FoxPro как в pascal goto
    #33488122
alex11100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex11100
Гость
у меня 12 лет как закончилось
не вижу проблем, после того как
рулоны в метров в 200 разбирал

был один товарищ весь сбербанковский последконтроль
в одной прг написал,
(мало интерфейс, так еще и весь расчет процентов по вкладам)
во - вот это монстр

до сих пор забыть не могу - снятся ифы кейсы и т.д.
даже плакал сидел
...
Рейтинг: 0 / 0
17.01.2006, 18:34
| Ответить | Цитировать | Написать  
есть ли команда в FoxPro как в pascal goto
    #33488128
Недоходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Недоходящий
Участник
2 alex11100
...
Рейтинг: 0 / 0
17.01.2006, 18:37
| Ответить | Цитировать | Написать  
есть ли команда в FoxPro как в pascal goto
    #33488555
S866
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
S866
Участник
Господа давайте не будем мешать Assembler,Pascal,Basic,Delphi и Fox
Bce мы через них проходили и все они разрабатывались изначально для разных целей - отсюда и различия в синтаксисе и операторах. Fox изначально позиционировался как язык более высокого уровня.
"Что русскому хорошо - то немцу смерть" :-)))


PS помню как в институте трудно было с паскаля въехать в синтаксис фокса.
Но еще больший шок был при изучении Турбопролога :-))))
PPS - Я не в коей мере не утверждаю что перечисленные языки хуже Фокса.
...
Рейтинг: 0 / 0
18.01.2006, 08:55
| Ответить | Цитировать | Написать  
есть ли команда в FoxPro как в pascal goto
    #33488668
Burn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Burn
Участник
>Но еще больший шок был при изучении Турбопролога :-))))
Эт Вы еще с Фортом не сталкивались;-)
...
Рейтинг: 0 / 0
18.01.2006, 10:07
| Ответить | Цитировать | Написать  
есть ли команда в FoxPro как в pascal goto
    #33488768
Недоходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Недоходящий
Участник
2 S866
Согласен. Но когда переходишь с одного языка на другой, то думаешь первое время по старомы, т.е. допустим начинаешь в фоксе оператор goto или еще что нить что было в предыдущем языке
...
Рейтинг: 0 / 0
18.01.2006, 10:42
| Ответить | Цитировать | Написать  
есть ли команда в FoxPro как в pascal goto
    #33488854
Фотография FM32YO aka KID
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FM32YO aka KID
Участник
alex11100
был один товарищ весь сбербанковский последконтроль
в одной прг написал,
(мало интерфейс, так еще и весь расчет процентов по вкладам)
во - вот это монстр

до сих пор забыть не могу - снятся ифы кейсы и т.д.
даже плакал сидел


Вопросы:
1 Сбербанк - последконтроль == украина, или в россии все так же???
2 У нас это дело вроде до недавних пор было на Клиппере.. клипперовые программы раскомпиливал - все в один файл.. ужасс...
...
Рейтинг: 0 / 0
18.01.2006, 11:04
| Ответить | Цитировать | Написать  
есть ли команда в FoxPro как в pascal goto
    #33488931
Недоходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Недоходящий
Участник
2 FM32YO aka KID
Никогда не сталкивался с Клиппером. Что представляет из себя этот язык?
...
Рейтинг: 0 / 0
18.01.2006, 11:31
| Ответить | Цитировать | Написать  
есть ли команда в FoxPro как в pascal goto
    #33488950
S866
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
S866
Участник
2 Недоходящий
Это верно - щас иногда на Delphi пишу - 15 минут кода - 30 мин отлова синтаксических ошибок и поиск аналогов фоксовым командам (типа massagebox)
2 Burn - на фортране не пробовал - наверно к счастью для меня.


а GoTo - это не синтаксис - это образ мышления поэтому я и утверждаю что это дурной тон и надо от него отказываться.
...
Рейтинг: 0 / 0
18.01.2006, 11:36
| Ответить | Цитировать | Написать  
есть ли команда в FoxPro как в pascal goto
    #33489246
Фотография FM32YO aka KID
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FM32YO aka KID
Участник
Недоходящий Никогда не сталкивался с Клиппером. Что представляет из себя этот язык?


я тоже практически не стыкался... язык семейства xBase, как и фокс
есть схожий синтаксис м ФПД 2,6 4ДОС
по крайней мере SAY GET для прорисовки интерфейса там...
Чем лучше фокса? ИМХО тем, что вроде ехе-шник там независимый и небольшого размера, хотя есть там какие-то ПЛЛ баблиотеки, но не знаю обязательны ли они всегда?
дело в том, что коллега как-то написал Операционный день казначейства на клиппере - так то был 1 ехе-шние кило на 400 + собственно дбф-ки и идх-сы
ты же программа, написанная мною на ФПД 2,6 - ехе-шник был более 1,5 мега (независимый ехе-шник там вроде менее 900 кило не делался)
но давно это было :-)
Да мыша в Клиппере том не жила - все с клавы..
по синтаксису, С-шники говорили - близко к С++
все вроде.. мнение чисто субъективное ибо на клиппере никогда не писал... только видел наработки в банках, статистике.....


S866 2 Недоходящий
Это верно - щас иногда на Delphi пишу - 15 минут кода - 30 мин отлова синтаксических ошибок и поиск аналогов фоксовым командам (типа massagebox)

аналогично пытался в ВБ6 вьехать.. поиск аналогов фоксовым командам....
в чужой монастырь с чужим статутом так сказать
...
Рейтинг: 0 / 0
18.01.2006, 13:07
| Ответить | Цитировать | Написать  
есть ли команда в FoxPro как в pascal goto
    #33489294
Burn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Burn
Участник
>2 Burn - на фортране не пробовал - наверно к счастью для меня
Не путай Фортран и Форт . Первый вполне традиционый процедурно ориентированый язык, причем говоря о Фортране надо упоминать о версии стандарта он менялся кардинально не один раз.
Второй это просто чтото с чемто. Аналогов для сравнения я даже неподберу. Чего стоит, например, польская нотация операторов...
...
Рейтинг: 0 / 0
18.01.2006, 13:20
| Ответить | Цитировать | Написать  
есть ли команда в FoxPro как в pascal goto
    #33489353
Недоходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Недоходящий
Участник
2 Burn
О Фортране слышал, но о Форт никогда.
...
Рейтинг: 0 / 0
18.01.2006, 13:38
| Ответить | Цитировать | Написать  
есть ли команда в FoxPro как в pascal goto
    #33489374
Burn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Burn
Участник
>О Фортране слышал, но о Форт никогда
Вот я и говорю - счастливый.

А траблы с привычками к стилю заканчиваются обычно после 3-го четвертого языка:)
...
Рейтинг: 0 / 0
18.01.2006, 13:42
| Ответить | Цитировать | Написать  
25 сообщений из 78, страница 1 из 4
  1  все
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / есть ли команда в FoxPro как в pascal goto
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=33487903&tid=1592506]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 90ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 69ms
get tp. blocked users:
 1ms
others: 231ms
total:  434ms
созд. / загр.: 434ms
x
x
Закрыть


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