ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / команда md и регистр
14 сообщений из 14, страница 1 из 1
команда md и регистр
    #36583664
Фотография Алексей (Витебск)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Алексей (Витебск)
Участник
Добрый день, возможно, кто-то знает ответ:

Команда MD при выполнении одного и того же кода
может создавать каталог как прописными, так и строчными
буквами (VFP 7 и VFP 9).
Отчего это зависит и можно ли как-нибудь влиять на процесс ?

MD (myPath+mydate+'\XYZ'+myKOD)

И вот в какие-то моменты XYZ - прописными, а в какие-то строчными.


Спасибо.
...
Рейтинг: 0 / 0
17.04.2010, 15:13
| Ответить | Цитировать | Написать  
команда md и регистр
    #36583687
igorbik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
igorbik
Участник
Алексей (Витебск),

У мня MD реагирует адекватно на LOWER() и UPPER()
...
Рейтинг: 0 / 0
17.04.2010, 15:45
| Ответить | Цитировать | Написать  
команда md и регистр
    #36585013
Фотография Алексей (Витебск)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Алексей (Витебск)
Участник
igorbik,

так изначально же в команде прописано 'XYZ'

:(
...
Рейтинг: 0 / 0
19.04.2010, 10:35
| Ответить | Цитировать | Написать  
команда md и регистр
    #36585145
igorbik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
igorbik
Участник
Алексей (Витебск),

Есть многое на свете, друг Горацио,
Что и не снилось нашим мудрецам...
...
Рейтинг: 0 / 0
19.04.2010, 11:30
| Ответить | Цитировать | Написать  
команда md и регистр
    #36585436
Фотография Алексей (Витебск)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Алексей (Витебск)
Участник
igorbik,

т.е. имеется в виду, что надо создавать
каталог командой md (upper('XYZ')) ?

:)
...
Рейтинг: 0 / 0
19.04.2010, 13:18
| Ответить | Цитировать | Написать  
команда md и регистр
    #36585883
igorbik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
igorbik
Участник
Алексей (Витебск),

Именно так я и делаю, и регистр у меня почему-то всегда соблюдается.
...
Рейтинг: 0 / 0
19.04.2010, 15:57
| Ответить | Цитировать | Написать  
команда md и регистр
    #36586025
Фотография Алексей (Витебск)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Алексей (Витебск)
Участник
igorbik,

поставил MD upper(myPath+mydate+'\XYZ'+myKOD)

Тот же случай.
:(
...
Рейтинг: 0 / 0
19.04.2010, 16:53
| Ответить | Цитировать | Написать  
команда md и регистр
    #36586037
Фотография mahoune
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mahoune
Участник
Может имеет место наличие/отсутствие русских букв и символов в названии файлов?
...
Рейтинг: 0 / 0
19.04.2010, 16:59
| Ответить | Цитировать | Написать  
команда md и регистр
    #36587142
Фотография Алексей (Витебск)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Алексей (Витебск)
Участник
mahoune,

Нет,
выполняется цикл 27 раз

При первом выполнениее 'XYZ'+myKOD создается как 'xyz'+myKOD

myKOD - переменная, string, длина три, символы - цифры.

:(
...
Рейтинг: 0 / 0
20.04.2010, 11:42
| Ответить | Цитировать | Написать  
команда md и регистр
    #36587397
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
Алексей (Витебск),

Давай пример кода который глючит, у меня так работает
Код: plaintext
1.
2.
3.
for i =  1  to  27 
	myKOD = chrtran(str(i,  3 ), ' ', '0')
	md ('XYZ' + myKOD)
endfor

PS Только всю прогу сюда не надо выкладывать, простой пример который стабильно дает ошибку.

PPS Еще версию фокса, ОС и тип файловой системы
...
Рейтинг: 0 / 0
20.04.2010, 12:46
| Ответить | Цитировать | Написать  
команда md и регистр
    #36587441
прошелмимо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
прошелмимо
Участник
автар, вот так

Код: plaintext
1.
2.
3.
Local loFSO
loFSO=CreateObject("Scripting.FileSystemObject")
loFSO.CreateFolder("C:\XYZ")

что получится?
...
Рейтинг: 0 / 0
20.04.2010, 12:54
| Ответить | Цитировать | Написать  
команда md и регистр
    #36587572
Фотография Алексей (Витебск)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Алексей (Витебск)
Участник
Dima T,

VFP 9 SP1

win XP pro x32 SP 3 rus

Ваш пример у меня тоже все сделал так, как надо
...
Рейтинг: 0 / 0
20.04.2010, 13:30
| Ответить | Цитировать | Написать  
команда md и регистр
    #36587576
Фотография Алексей (Витебск)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Алексей (Витебск)
Участник
Dima T,

VFP 9 SP1

win XP pro x32 SP 3 rus

код:

x=ADIR(mydir,myPath+mydate+'\XYZ'+myKOD,"D")
IF X=0 AND myCounter>0 && Счетчик строк
MD (myPath+mydate+'\XYZ'+myKOD)
endif

IF myCounter>0
.ActiveWorkBook.SaveCopyAs(myPath+mydate+'\XYZ'+myKOD+'\'+myFile+'_'+myKOD+'.xls')
endif

Вот здесь создается каталог.
Возможно, проблема в том, что используется вызов Excel ?
...
Рейтинг: 0 / 0
20.04.2010, 13:31
| Ответить | Цитировать | Написать  
команда md и регистр
    #36587621
Фотография Алексей (Витебск)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Алексей (Витебск)
Участник
прошелмимо,

VFP 9 SP1

win XP pro x32 SP 3 rus

код был:

x=ADIR(mydir,myPath+mydate+'\XYZ'+myKOD,"D")
IF X=0 AND myCounter>0 && Счетчик строк
MD (myPath+mydate+'\XYZ'+myKOD)
endif

IF myCounter>0
.ActiveWorkBook.SaveCopyAs(myPath+mydate+'\XYZ'+myKOD+'\'+myFile+'_'+myKOD+'.xls')
endif

---------------------------
Переписал вот так:

x=ADIR(mydir,myPath+mydate+'\XYZ'+myKOD,"D")
IF X=0 AND myCounter>0 && Счетчик строк
* MD (myPath+mydate+'\XYZ'+myKOD)

cDir=CURDIR()
CHDIR ('"'+myPath+mydate+'"')
Local loFSO
loFSO=CreateObject("Scripting.FileSystemObject")
loFSO.CreateFolder('XYZ'+myKOD)
CHDIR ('"'+CDir+'"')

endif

IF myCounter>0
.ActiveWorkBook.SaveCopyAs(myPath+mydate+'\XYZ'+myKOD+'\'+myFile+'_'+myKOD+'.xls')
endif

Так все каталоги создает заглавными символами

Ну, в общем, почему - не ясно, зато есть возможность обойти эту особенность. :)
...
Рейтинг: 0 / 0
20.04.2010, 13:46
| Ответить | Цитировать | Написать  
14 сообщений из 14, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / команда md и регистр
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?desktop=1&fid=41&tid=1585385]:
 0ms
get settings:
 7ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 41ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 2ms
others: 351ms
total:  479ms
созд. / загр.: 479ms
x
x
Закрыть


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