ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Вот так ГЛЮК
7 сообщений из 7, страница 1 из 1
Вот так ГЛЮК
    #32510893
IgorProgrammer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IgorProgrammer
Гость
Столкнулся с таким глюком...

Он может принадлежать лисе...

Когда я создаю архив(экспорт) то вталкиваю туда файл с версией продукта...
При распаковке сверяю версии и если мона то выполняю импорт...

Все очень банально...
Пример кода проверки версий:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
IF FILE('.\Vrem\version.txt')
	my_file_import = FOPEN('.\Vrem\version.txt')
	my_ver_import = ALLTRIM(FGETS(my_file_import))
	= FCLOSE(my_file_import)
	IF ALLTRIM(my_tek_version) < my_ver_import
			= MESSAGEBOX("Данный архив сделан в версии ("+my_ver_import+"). "+CHR( 10 )+;
			"Обновите текущую версию ("+ALLTRIM(my_tek_version)+") до версии ("+my_ver_import+") "+CHR( 10 )+;
			"и повторите попытку.",  0 + 64 + 0 , "Внимание!")
		Return
	ENDIF
ENDIF
my_ver_import - переменная пришедшего архива...
Прислали мне архив че у меня глаза на лоб полезли...
В дебагере:
my_ver_import = "10.3.3" - видно 6 симолов
Len(my_ver_import) = 7
Причем седьмой символ дебагер не видит...
Когда выпрыгивает мессага, то все обрезается после этой переменной...
стртран(перем.,перевод коррек.,пустота) - не помогло

Чё это???

обошел тоже обанально:
my_ver_import = IIF(ISDIGIT(RIGHT(my_ver_import,1)),my_ver_import,LEFT(my_ver_import,LEN(my_ver_import)-1))

Всем оветившим сенкс...
...
Рейтинг: 0 / 0
07.05.2004, 15:35
| Ответить | Цитировать | Написать  
Вот так ГЛЮК
    #32510902
oleg_km
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
oleg_km
Гость
такое обычно бывает, когда строка заканчивается двоичным нулем, лечится примерно как ты сделал
...
Рейтинг: 0 / 0
07.05.2004, 15:42
| Ответить | Цитировать | Написать  
Вот так ГЛЮК
    #32510909
oleg_km
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
oleg_km
Гость
Наверное, № версии пишется API, когда сохраняешь № версии в файл, отрезай этот 0x0. Один вариант обрезания как у тебя, другой:

CHRTRAN(cStr, CHR(0), '')
...
Рейтинг: 0 / 0
07.05.2004, 15:44
| Ответить | Цитировать | Написать  
Вот так ГЛЮК
    #32510913
andrew_Pr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andrew_Pr
Участник
А asc(SUBSTR(my_ver_import,7,1) что возвращает?
...
Рейтинг: 0 / 0
07.05.2004, 15:47
| Ответить | Цитировать | Написать  
Вот так ГЛЮК
    #32510920
IgorProgrammer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IgorProgrammer
Гость
Я лучше свою проверку оставлю...
А то мало ли че еще вылезет...

Уже проверял возвращает 0
...
Рейтинг: 0 / 0
07.05.2004, 15:51
| Ответить | Цитировать | Написать  
Вот так ГЛЮК
    #32510921
IgorProgrammer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IgorProgrammer
Гость
Какие еще подводные камни могут быть при работе с ткст-файлами...

А то я уже обновления задрался собирать...
...
Рейтинг: 0 / 0
07.05.2004, 15:52
| Ответить | Цитировать | Написать  
Вот так ГЛЮК
    #32510963
oleg_km
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
oleg_km
Гость
Проблемы не с txt-файлами, проблемы с функциями API, которые возвращают ссылки на char* (DECLARE INTEGER GetDriveType IN Win32Api STRING@), вот от них VFP и глючит. Общее решение - у всех строк, получаемых от WinAPI нужно первым делом отрезать замыкающий ноль, а потом уже пользовать в программе
...
Рейтинг: 0 / 0
07.05.2004, 16:25
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Вот так ГЛЮК
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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