FoxClub Forums > Архив конференции по VFP до 2005 года

:: Архив конференции по VFP до 2005 года

• Войти

Небольшой вопрос.
rusl Сообщений: 200 Откуда: СПб Дата регистрации: 01.02.2005	rusl 11.02.05 11:34:53 1. Подскажите пожалуйста, как переменной присвоить значение ячеки массива? 2. Могу ли я таким вот образом создавать таблицу с именем файла взятым из массива? ADIR(pages_info, *.txt) count_of_pages=ALEN(pages_info, 1) x=1 DO WHILE count_of_pages=>x GO record x table_name=pages_info(x, 1) CREATE TABLE (table_name) x=x+1 ENDDO

rusl

Сообщений: 200
Откуда: СПб
Дата регистрации: 01.02.2005

rusl

11.02.05 11:34:53

1. Подскажите пожалуйста, как переменной присвоить значение ячеки массива?
2. Могу ли я таким вот образом создавать таблицу с именем файла взятым из массива?


ADIR(pages_info, *.txt)
count_of_pages=ALEN(pages_info, 1) 
x=1
DO WHILE count_of_pages=>x
   GO record x
    table_name=pages_info(x, 1)
    CREATE TABLE (table_name)
   x=x+1
ENDDO

Re: Небольшой вопрос.
JS Сообщений: 12264 Откуда: Эстония Дата регистрации: 04.09.2000	JS 11.02.05 12:19:58 Во-первый, в ADIR - маска должна быть в скобках, так не будет работать Во-вторых, при извлечении из массива указать JUSTSTEM(ALLTRIM( элемент массива )). В третьих - какой длины наименования скачанных файлов? Отредактировано (11.02.05 14:22) ------------------ Knowledge is better than ignorance! Website: juri.foxhelp.eu

Re: Небольшой вопрос.

JS

Сообщений: 12264
Откуда: Эстония
Дата регистрации: 04.09.2000

11.02.05 12:19:58

Во-первый, в ADIR - маска должна быть в скобках, так не будет работать
Во-вторых, при извлечении из массива указать JUSTSTEM(ALLTRIM( элемент массива )).
В третьих - какой длины наименования скачанных файлов?

Отредактировано (11.02.05 14:22)

------------------
Knowledge is better than ignorance!
Website: juri.foxhelp.eu

Re: Небольшой вопрос.
Vadim Автор Сообщений: 816 Откуда: Клайпеда Дата регистрации: 26.10.2000	Vadim 11.02.05 12:21:28 Попробуй вот это - может подойдёт -- SET DEFAULT TO C:\MyFolder =ADIR(pages_info,".txt") count_of_pages = ALEN(pages_info, 1) IF count_of_pages != 0 LOCAL i FOR i=1 TO count_of_pages CREATE TABLE (JUSTSTEM(pages_info[i,1])) (nid I,cname C(10)) ENDFOR ENDIF ------------------

Re: Небольшой вопрос.
Владимир Максимов Сообщений: 14100 Откуда: Москва Дата регистрации: 02.09.2000	Владимир Максимов 11.02.05 12:21:52 LOCAL lnFieldCount, Pages_Info(1), lnI, lcTableName lnFieldCount = ADIR(Pages_Info, "*.txt") FOR lnI = 1 TO m.lnFieldCount lcTableName = JUSTSTEM(JustFName(Pages_Info[m.lnI,1])) CREATE TABLE &lcTableName (Field1 I, Field2 C(50)) ENDFOR ------------------

Re: Небольшой вопрос.
rusl Сообщений: 200 Откуда: СПб Дата регистрации: 01.02.2005	rusl 11.02.05 12:49:11 To Vadim Спасибо! Все сработало. А не подскажите что здесь значит ! : IF count_of_pages != 0 ?

Re: Небольшой вопрос.
JS Сообщений: 12264 Откуда: Эстония Дата регистрации: 04.09.2000	JS 11.02.05 12:54:15 Проверка, есть-ли что-нибудь в массиве, так как функция ALEN возвращает размер полученного массива. ------------------ Knowledge is better than ignorance! Website: juri.foxhelp.eu

Re: Небольшой вопрос.
Vadim Автор Сообщений: 816 Откуда: Клайпеда Дата регистрации: 26.10.2000	Vadim 11.02.05 12:54:59 rusl А не подскажите что здесь значит ! : IF count_of_pages != 0 ? != означает НЕ РАВНО можно было написать IF count_of_pages <> 0 или IF count_of_pages > 0 - к примеру

:: Список Форумов•Список тем•Поиск•Войти

Извините, но у вас нет прав для того, чтобы оставлять сообщения в этом форуме.

On-line: 14 (Гостей: 14)