Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Создание файла / 4 сообщений из 4, страница 1 из 1
16.04.2008, 10:08
    #35257893
stoopper
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание файла
Здравствуйте!

Надо в программе создавать файлы определенной структуры. Делаю например так:


create fil
use fil

for i=1 to 9
append blank
pw="ax"+str(i,1,0)
replace Field_name with pw
replace Field_type with "N"
replace Field_len with 25
replace Field_dec with 12
next

create c:\tmp\fil2 from fil


Но при команде use Фокс открывает окно для ввода полей в пустую структуру. Как бы это обойти?
...
Рейтинг: 0 / 0
16.04.2008, 10:21
    #35257936
XAndy
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание файла
* Вариант 1
create cursor temp (;
ax1 N(16,2) ,;
ax2 N(16,2) ,;
ax3 N(16,2) ,;
ax4 N(16,2) ,;
ax5 N(16,2) ,;
ax6 N(16,2) ,;
ax7 N(16,2) ,;
ax8 N(16,2) ,;
ax9 N(16,2) )

* Вариант 2
local aStru[1,4], i
for i=1 to 9
dimension aStru[i,4]
aStru[i,1] = "ax"+str(i,1)
aStru[i,2] = 'N'
aStru[i,3] = 16
aStru[i,4] = 2
endfor
create cursor temp from array aStru

Что такое у Вас N 25,16 ? Почитайте хелп по типам данных фокса.
...
Рейтинг: 0 / 0
16.04.2008, 10:24
    #35257946
stoopper
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание файла
Спасибо, попробую! А 25-16, конечно это я просто в примере забабахал.
...
Рейтинг: 0 / 0
16.04.2008, 11:09
    #35258140
Galyamov Rinat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание файла
> Спасибо, попробую! А 25-16, конечно это я просто в примере забабахал.

А почему бы сразу не почитать HELP по поводу CREATE TABLE ? и не париться с
озданием курсора с последующим созданием таблицы из курсора?

И не USE предлагает ввести поля вручную, а create fil


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Создание файла / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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