powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Вопрос по locfile.
3 сообщений из 3, страница 1 из 1
Вопрос по locfile.
    #37624873
Делаю загрузку текстового файла по маске

При нажатии кнопки загрузки
TRY
thisform.zagruz()
CATCH
= MESSAGEBOX('Файл не выбран', 64, 'Внимание!')
thisform.command3.zagr = .F.
ENDTRY

Сама процедура загрузки

CD (lcDirZagr)
lcvib = LOCFILE('sber_??????.txt', '', 'Выбор')
thisform.fname.Value = lcvib
= MESSAGEBOX('Извините! В данной версии программы'+ Chr(13)+;
'загрузка файла пока не реализована.' + CHR(13)+;
'Разработчик - Терехин Игорь Семенович' + CHR(13)+ ;
'Рабочий телефон - 4334567, 4334567', 64, 'Внимание!', 5000) && сама процедура загрузки есть, но я думаю дело не в этом
CD (lcPath)

Всегда выскакивает код исключения - MESSAGEBOX('Файл не выбран', 64, 'Внимание!'), независимо от того выбрал я файл или нет. Как правильно пользоваться пользоваться функцией locfile вместе с try и catch . Где я неправ?
...
Рейтинг: 0 / 0
Вопрос по locfile.
    #37625077
Погодин
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
сначала закомментарьте команды "try ... catch ... endtry", запустите, и посмотрите, где же вылазит ошибка.
...
Рейтинг: 0 / 0
Вопрос по locfile.
    #37625131
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Не надо лишнее в TRY ... CATCH вставлять, он на ЛЮБУЮ ошибку срабатывает. Оберни только LOCFILE - он дает ошибку при нажатии "отмена"
и CD у тебя лишнее:
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
lcFile = addbs(lcDirZagr) + 'sber_??????.txt'
try
   lcvib = LOCFILE(lcFile, '', 'Выбор')
catch
   lcvib = ''
endtry
if empty(lcvib)
   MessageBox('Не выбрали')
else
   MessageBox('Выбрали ' + lcvib)
endif
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Вопрос по locfile.
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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