ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Пересчет построчно таблицы.
30 сообщений из 30, показаны все 2 страниц
  все  
Пересчет построчно таблицы.
    #38731227
Stind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stind
Гость
Всем привет!

Вопрос такой. Есть табличка. Столбцов - 70, строк -1500.
Требуется значения столбцов второй строки пересчитать как сумму имеющегося значения + значение столбца первой строки.
Соответственно, для третьей строки - сумма значений уже новой второй + значение третьей.

Алгоритм элементарный, но... На табличку уходит 0.5 сек., а табличек .... - 60.000. Итого - 8 часов.
Может, есть что-то поумнее простого перебора строк?
...
Рейтинг: 0 / 0
28.08.2014, 10:22
| Ответить | Цитировать | Написать  
Пересчет построчно таблицы.
    #38731258
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
Если алгоритм это скан таблицы в один проход, то улучшать его бесполезно.

Можно добавить для ускорения следующее:
1. Открытие файлов монопольно (быстрее чтение запись)
2. Надеюсь файлы локально лежат (не по сети качаются)
3. Распараллелить обработку, т.е. запустить несколько копий обработчиков и каждому дать свою группу файлов. Сколько копий оптимально не скажу, как минимум сколько ядер у процессора, точнее можно опытным путем затестить.
...
Рейтинг: 0 / 0
28.08.2014, 10:37
| Ответить | Цитировать | Написать  
Пересчет построчно таблицы.
    #38731285
Stind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stind
Гость
Dima T,

0. Не сканом... Считывается в массив первая строка, вторая. Второй присваивается значение суммы двух, запоминается в массив.
считывается третья - складывается с массивом второй и запоминается.. И тд.

1. монопольно
2. локально
3. подумаю, но, кажется проблема в п.0
...
Рейтинг: 0 / 0
28.08.2014, 10:54
| Ответить | Цитировать | Написать  
Пересчет построчно таблицы.
    #38731340
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PaulWist
Участник
Stind0. Не сканом... Считывается в массив первая строка, вторая. Второй присваивается значение суммы двух, запоминается в массив.
считывается третья - складывается с массивом второй и запоминается.. И тд.
...
3. подумаю, но, кажется проблема в п.0

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
CREATE CURSOR test (f1 int, f2 int, f3 int)

INSERT INTO test VALUES (1,1,1)
INSERT INTO test VALUES (2,3,4)

UPDATE test SET f3 = f3 + (f2 + f1), f2 = f2 + f1

BROWSE
...
Рейтинг: 0 / 0
28.08.2014, 11:27
| Ответить | Цитировать | Написать  
Пересчет построчно таблицы.
    #38731443
Stind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stind
Гость
PaulWist,

Не совсем такая задача...
Требуется складывать значения строк по столбцам.


имеем

1 1 1
2 3 4
3 2 1

Должно получится

1 1 1
3 4 5
6 6 6
...
Рейтинг: 0 / 0
28.08.2014, 12:26
| Ответить | Цитировать | Написать  
Пересчет построчно таблицы.
    #38731514
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PaulWist
Участник
StindPaulWist,

Не совсем такая задача...
Требуется складывать значения строк по столбцам.


имеем

1 1 1
2 3 4
3 2 1

Должно получится

1 1 1
3 4 5
6 6 6

1. По какому признаку определяется, где первая "строка", где вторая?

2. Надо получить в конце концов - нарастающий итог?

3. Первичный ключ у табличек есть?
...
Рейтинг: 0 / 0
28.08.2014, 13:08
| Ответить | Цитировать | Написать  
Пересчет построчно таблицы.
    #38731522
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PaulWist
Участник
На держи, только в таблички нужно добавить нарастающий первичный ключ определяющий порядок "строк" (если его нет).

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
CREATE CURSOR test (id int AUTOINC, f1 int, f2 int, f3 int)

INSERT INTO test (f1, f2, f3) VALUES (1,1,1)
INSERT INTO test (f1, f2, f3) VALUES (2,3,4)
INSERT INTO test (f1, f2, f3) VALUES (3,2,1)

UPDATE test SET ;
f1 = xx.f1, ;
f2 = xx.f2, ;
f3 = xx.f3 ;
from ;
( ;
SELECT ;
f1 as id, ;
(SELECT SUM(f1) FROM test t1 WHERE t1.id <= t.id ) as f1, ;
(SELECT SUM(f2) FROM test t1 WHERE t1.id <= t.id ) as f2, ;
(SELECT SUM(f3) FROM test t1 WHERE t1.id <= t.id ) as f3 ;
FROM test t ORDER BY f1 ;
) xx ;
inner join test on test.f1 = xx.id

BROWSE FIELDS f1, f2, f3
...
Рейтинг: 0 / 0
28.08.2014, 13:12
| Ответить | Цитировать | Написать  
Пересчет построчно таблицы.
    #38731526
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PaulWist
Участник
Так будет правильней

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
CREATE CURSOR test (id int AUTOINC, f1 int, f2 int, f3 int)

INSERT INTO test (f1, f2, f3) VALUES (1,1,1)
INSERT INTO test (f1, f2, f3) VALUES (2,3,4)
INSERT INTO test (f1, f2, f3) VALUES (3,2,1)

UPDATE test SET ;
f1 = xx.f1, ;
f2 = xx.f2, ;
f3 = xx.f3 ;
from ;
( ;
SELECT ;
ID, ;
(SELECT SUM(f1) FROM test t1 WHERE t1.id <= t.id ) as f1, ;
(SELECT SUM(f2) FROM test t1 WHERE t1.id <= t.id ) as f2, ;
(SELECT SUM(f3) FROM test t1 WHERE t1.id <= t.id ) as f3 ;
FROM test t ORDER BY f1 ;
) xx ;
inner join test on test.f1 = xx.id

BROWSE FIELDS f1, f2, f3
...
Рейтинг: 0 / 0
28.08.2014, 13:14
| Ответить | Цитировать | Написать  
Пересчет построчно таблицы.
    #38731533
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PaulWist
Участник
А так ещё лучше (думаю идея понятна):

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
CREATE CURSOR test (id int AUTOINC, f1 int, f2 int, f3 int)

INSERT INTO test (f1, f2, f3) VALUES (1,1,1)
INSERT INTO test (f1, f2, f3) VALUES (2,3,4)
INSERT INTO test (f1, f2, f3) VALUES (3,2,1)

UPDATE test SET ;
f1 = xx.f1, ;
f2 = xx.f2, ;
f3 = xx.f3 ;
from ;
( ;
SELECT ;
ID, ;
(SELECT SUM(f1) FROM test t1 WHERE t1.id <= t.id ) as f1, ;
(SELECT SUM(f2) FROM test t1 WHERE t1.id <= t.id ) as f2, ;
(SELECT SUM(f3) FROM test t1 WHERE t1.id <= t.id ) as f3 ;
FROM test t ORDER BY ID ;
) xx ;
inner join test on test.f1 = xx.id

BROWSE FIELDS f1, f2, f3
...
Рейтинг: 0 / 0
28.08.2014, 13:16
| Ответить | Цитировать | Написать  
Пересчет построчно таблицы.
    #38731597
Stind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stind
Гость
PaulWistStindPaulWist,

Не совсем такая задача...
Требуется складывать значения строк по столбцам.


имеем

1 1 1
2 3 4
3 2 1

Должно получится

1 1 1
3 4 5
6 6 6

1. По какому признаку определяется, где первая "строка", где вторая?

2. Надо получить в конце концов - нарастающий итог?

3. Первичный ключ у табличек есть?




1. Первая строка - это первая строка (без индексов).... последняя - последняя.
2. Требуется для каждой строки (со второй) иметь текущий нарастающий итог.
3. Ключей нет.

Спасибо, покопаюсь...
...
Рейтинг: 0 / 0
28.08.2014, 13:54
| Ответить | Цитировать | Написать  
Пересчет построчно таблицы.
    #38731661
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PaulWist
Участник
Stind1. Первая строка - это первая строка (без индексов).... последняя - последняя.
2. Требуется для каждой строки (со второй) иметь текущий нарастающий итог.
3. Ключей нет.

Спасибо, покопаюсь...

1. То есть, если последнюю строку сделать первой, то совершенно не важно, что "нарастающий итог" в со второй по предпоследнюю строчку поменяется, ... мдя.

2. Порядка (order) в таблице не существует, первая и последняя строка задаются какими-то критериями сортировки, правда есть физический порядок записей, но это не значит, что такой порядок является отсортированным.

3. Опа, а как ты отличаешь одну запись от другой?
...
Рейтинг: 0 / 0
28.08.2014, 14:38
| Ответить | Цитировать | Написать  
Пересчет построчно таблицы.
    #38731676
Станислав С...кий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Станислав С...кий
Гость
Stindпропущено...
1. Первая строка - это первая строка (без индексов).... последняя - последняя.
2. Требуется для каждой строки (со второй) иметь текущий нарастающий итог.
3. Ключей нет.

Так только для ограниченного круга задач (когда таблицы полностью помещаются в памяти и только дописываются) можно делать. Иначе - проблем не оберешься.
Например: некто пометил на удаление строку в таблице и физически третья строка логически стала второй. Это что же, все нижеследующие строки пересчитывать? А если их не одна, а миллион?

Проверьте алгоритм, скорее всего ошибка именно в нем... и Вашу задачу можно решить намного проще...
...
Рейтинг: 0 / 0
28.08.2014, 14:44
| Ответить | Цитировать | Написать  
Пересчет построчно таблицы.
    #38731691
Станислав С...кий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Станислав С...кий
Гость
PaulWistStind1. Первая строка - это первая строка (без индексов).... последняя - последняя.
2. Требуется для каждой строки (со второй) иметь текущий нарастающий итог.
3. Ключей нет.

Спасибо, покопаюсь...

1. То есть, если последнюю строку сделать первой, то совершенно не важно, что "нарастающий итог" в со второй по предпоследнюю строчку поменяется, ... мдя.

2. Порядка (order) в таблице не существует, первая и последняя строка задаются какими-то критериями сортировки, правда есть физический порядок записей, но это не значит, что такой порядок является отсортированным.

3. Опа, а как ты отличаешь одну запись от другой?

Я так думаю, что таблички каждый раз формируются заново какой-то процедурой, являющейся для ТС "черным ящиком"... И единственный ключ, что ему доступен - порядок записей...
...
Рейтинг: 0 / 0
28.08.2014, 14:50
| Ответить | Цитировать | Написать  
Пересчет построчно таблицы.
    #38731692
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
StindТребуется складывать значения строк по столбцам.

имеем
1 1 1
2 3 4
3 2 1

Должно получится
1 1 1
3 4 5
6 6 6
Так подойдет?
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
create cursor t (f1 i, f2 i, f3 i)
insert into t (f1, f2, f3) values (1, 1, 1)
insert into t (f1, f2, f3) values (2, 3, 4)
insert into t (f1, f2, f3) values (3, 2, 1)

* Рассчет
sele t
go top
sf1 = t.f1
sf2 = t.f2
sf3 = t.f3
skip
scan while .T.
	sf1 = sf1 + t.f1
	sf2 = sf2 + t.f2
	sf3 = sf3 + t.f3
	repl in t f1 with sf1, f2 with sf2, t.f3 with sf3
endscan
brow
...
Рейтинг: 0 / 0
28.08.2014, 14:50
| Ответить | Цитировать | Написать  
Пересчет построчно таблицы.
    #38731700
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
По-хорошему надо создавать новую таблицу с результатом и писать в нее, т.к. писать в исходную таблицу не самая хорошая идея, например что-то сглючит и останется таблица наполовину пересчитанная, или наоборот случайно дважды обработаешь.
...
Рейтинг: 0 / 0
28.08.2014, 14:54
| Ответить | Цитировать | Написать  
Пересчет построчно таблицы.
    #38732316
sqlnew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sqlnew
Участник
PaulWist
1. То есть, если последнюю строку сделать первой, то совершенно не важно, что "нарастающий итог" в со второй по предпоследнюю строчку поменяется, ... мдя.

2. Порядка (order) в таблице не существует, первая и последняя строка задаются какими-то критериями сортировки, правда есть физический порядок записей, но это не значит, что такой порядок является отсортированным.

3. Опа, а как ты отличаешь одну запись от другой?

1. А зачем менять? Таблички стабильны, собственно, первая строка - данные за сегодня, вторая - за вчера, третья - позавчера. Т.о. "обратный" нарастающий итог.

2. Соответственно, порядок всегда один.

3. По номеру записи.

Кстати, в первом столбце прописывается дата, но, естественно, в итогах не расчитывается
...
Рейтинг: 0 / 0
29.08.2014, 08:05
| Ответить | Цитировать | Написать  
Пересчет построчно таблицы.
    #38732318
sqlnew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sqlnew
Участник
Станислав С...кийЯ так думаю, что таблички каждый раз формируются заново какой-то процедурой, являющейся для ТС "черным ящиком"... И единственный ключ, что ему доступен - порядок записей...

Нет, таблички я сам формирую. Ключа нет, просто иду по записям сверху вниз.
...
Рейтинг: 0 / 0
29.08.2014, 08:07
| Ответить | Цитировать | Написать  
Пересчет построчно таблицы.
    #38732319
sqlnew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sqlnew
Участник
Станислав С...кийТак только для ограниченного круга задач (когда таблицы полностью помещаются в памяти и только дописываются) можно делать. Иначе - проблем не оберешься.
Например: некто пометил на удаление строку в таблице и физически третья строка логически стала второй. Это что же, все нижеследующие строки пересчитывать? А если их не одна, а миллион?

Проверьте алгоритм, скорее всего ошибка именно в нем... и Вашу задачу можно решить намного проще...

Никто с этими табличками не работает. Данные в них никак не меняются (кроме обратного счета).
И, кстати, неплохая мысль - м.б. грузить таблицу в 2-мерный массив и работать в памяти, а потом выгружать в файл?
Много времени ведь тратится на чтение-запись диска...
Есть функция загрузки таблицы в массив и обратно?
...
Рейтинг: 0 / 0
29.08.2014, 08:12
| Ответить | Цитировать | Написать  
Пересчет построчно таблицы.
    #38732323
sqlnew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sqlnew
Участник
Dima TПо-хорошему надо создавать новую таблицу с результатом и писать в нее, т.к. писать в исходную таблицу не самая хорошая идея, например что-то сглючит и останется таблица наполовину пересчитанная, или наоборот случайно дважды обработаешь.

Согласен, но эта запись-перезапись опять съест время, а сбоить вроде негде...
...
Рейтинг: 0 / 0
29.08.2014, 08:14
| Ответить | Цитировать | Написать  
Пересчет построчно таблицы.
    #38732324
sqlnew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sqlnew
Участник
Dima T,

Ок, спасибо за текст. Попробую...
...
Рейтинг: 0 / 0
29.08.2014, 08:14
| Ответить | Цитировать | Написать  
Пересчет построчно таблицы.
    #38732329
sqlnew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sqlnew
Участник
Dima T,

Вдогонку. В принципе, у меня сделано аналогично... Проблема в том, что имена столбцов, их количество и их порядок каждый день могут измениться (выгрузка работает ночью раз в сутки).
Поэтому впрямую такой алгоритм даже не знаю, как и применить...
...
Рейтинг: 0 / 0
29.08.2014, 08:24
| Ответить | Цитировать | Написать  
Пересчет построчно таблицы.
    #38732353
Stind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stind
Гость
Во блин, и реинкарнация... Ник-то туевую тучу лет как спал!
...
Рейтинг: 0 / 0
29.08.2014, 09:16
| Ответить | Цитировать | Написать  
Пересчет построчно таблицы.
    #38732381
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
sqlnewИ, кстати, неплохая мысль - м.б. грузить таблицу в 2-мерный массив и работать в памяти, а потом выгружать в файл?
Много времени ведь тратится на чтение-запись диска...
В массив целиком твоя таблица просто не влезет, т.к. возможно максимум 65000 переменных, т.е. массив не более 65000 элементов. По умолчанию ~16000.

sqlnewПроблема в том, что имена столбцов, их количество и их порядок каждый день могут измениться
Так все-таки "могут" или "меняются" ? Если "могут измениться" это просто попытка решить задачу раз и навсегда с учетом будущих изменений стуктуры, то лучше на эту тему не заморачиваться, т.к. при твоем объеме важна скорость, а любая попытка написать что-то универсальное только создаст лишние тормоза. Проще добавить проверку структуры при открытии и в случае несовпадения писать в лог или еще как-то сигнализировать.

Если используешь макроподстановки или EVAL() - это тормоза.

 
Попробуй SCATTER/GATHER
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
create cursor t (dt d, f1 i, f2 i, f3 i)
insert into t (dt, f1, f2, f3) values (date(), 1, 1, 1)
insert into t (dt, f1, f2, f3) values (date()+1, 2, 3, 4)
insert into t (dt, f1, f2, f3) values (date()+2, 3, 2, 1)

sele t
* Построение списка суммируемых полей (допили под свои правила)
scatter to sumlist 
fieldcount = alen(sumlist)
for i = 1 to fieldcount
	if vartype(sumlist[i]) = 'N'
		sumlist[i] = .T.
	else
		sumlist[i] = .F.
	endif
endfor

* Расчет
go top
scatter to sf 
skip
scan while .T.
	scatter to sf2
	for i = 1 to fieldcount
		if sumlist[i]
			sf[i] = sf[i] + sf2[i]
		endif
	endfor
	gather from sf
endscan
brow



sqlnewпервая строка - данные за сегодня, вторая - за вчера, третья - позавчера. Т.о. "обратный" нарастающий итог.
...
Нет, таблички я сам формирую.
Я так подозреваю что перед этим ночным расчетом генерация этих табличек происходит. Может есть смыл совместить?
...
Рейтинг: 0 / 0
29.08.2014, 09:55
| Ответить | Цитировать | Написать  
Пересчет построчно таблицы.
    #38733597
sqlnew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sqlnew
Участник
Dima T1. В массив целиком твоя таблица просто не влезет, т.к. возможно максимум 65000 переменных, т.е. массив не более 65000 элементов. По умолчанию ~16000.

2. Так все-таки "могут" или "меняются" ? Если "могут измениться" это просто попытка решить задачу раз и навсегда с учетом будущих изменений стуктуры, то лучше на эту тему не заморачиваться, т.к. при твоем объеме важна скорость, а любая попытка написать что-то универсальное только создаст лишние тормоза. Проще добавить проверку структуры при открытии и в случае несовпадения писать в лог или еще как-то сигнализировать.

3. Если используешь макроподстановки или EVAL() - это тормоза.

4. [spoiler Попробуй SCATTER/GATHER]

5. Я так подозреваю что перед этим ночным расчетом генерация этих табличек происходит. Может есть смыл совместить?



1.
declare xx_p[1500*100]
xx_p=0
xx_p[1500*100]=1
? xx_p[1500*100]
1!
Или где-то засада?

2. Ну, может. Реально столбцы могут меняться редко.

3. Макры есть ;-(

4. Попробую... Спасибо.

5. Пробовал, тогда тормоза добавляются к тому расчету...
...
Рейтинг: 0 / 0
31.08.2014, 16:34
| Ответить | Цитировать | Написать  
Пересчет построчно таблицы.
    #38734296
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
sqlnew1.
declare xx_p[1500*100]
xx_p=0
xx_p[1500*100]=1
? xx_p[1500*100]
1!
Или где-то засада?
Действительно работает, похоже попатчили в 9ке эту проблему, в 6-ке у меня были проблемы с adir() на папках с несколькими десятками тысяч файлов. Выпадывало по ошибке "Too many variables"

sqlnew3. Макры есть ;-(
Избавляйся

sqlnew5. Пробовал, тогда тормоза добавляются к тому расчету...
Я бы их параллельно запускал:
1. Первый процесс генерит в папку А
2. Второй процесс берет по одному файлу с папки А, обсчитывает, перемещает (не копирует) в папку Б. Второй мониторит папку постоянно, если за минуту ни одного файла не появилось - останавливается.
...
Рейтинг: 0 / 0
01.09.2014, 17:35
| Ответить | Цитировать | Написать  
Пересчет построчно таблицы.
    #38734342
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
Stind,

автора табличек .... - 60.000. Итого - 8 часов.

--на входе 60000
--а сколько на выходе ??

-
- есть ли повторы в первом не суммируемом столбце
--есть ли еще несуммируемые


====
одну табличку с шапкой и 2-3 записи не помешало бы посмотреть
...
Рейтинг: 0 / 0
01.09.2014, 18:29
| Ответить | Цитировать | Написать  
Пересчет построчно таблицы.
    #38734359
sqlnew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sqlnew
Участник
Dima T
Я бы их параллельно запускал:
1. Первый процесс генерит в папку А
2. Второй процесс берет по одному файлу с папки А, обсчитывает, перемещает (не копирует) в папку Б. Второй мониторит папку постоянно, если за минуту ни одного файла не появилось - останавливается.

Мысль... Буду рюхать
...
Рейтинг: 0 / 0
01.09.2014, 18:46
| Ответить | Цитировать | Написать  
Пересчет построчно таблицы.
    #38734363
sqlnew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sqlnew
Участник
ПЕНСИОНЕРКА
1.
--на входе 60000
--а сколько на выходе ??
2.
-
- есть ли повторы в первом не суммируемом столбце
--есть ли еще несуммируемые
====
3.
одну табличку с шапкой и 2-3 записи не помешало бы посмотреть


1. Не вкурил... Столько же.
2. Нет. В первом - даты с и до. Больше таких нет.
3. А пожалуйста! (Нет-нет, рояль белый! ;-) )
...
Рейтинг: 0 / 0
01.09.2014, 18:55
| Ответить | Цитировать | Написать  
Пересчет построчно таблицы.
    #38734402
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
sqlnew,

вариант от фохПРО ДОС

 

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
**a60000
*do startE
set stat off
set dele on
set echo off
set talk off
set cons off
!md z60000
!md z60001
***********Очистка рабочих каталогов
!DEL Z60000\*.DBF
!DEL Z60001\*.DBF

*do pech00
*set echo on
*set talk on
********************отладочная таблица 1500*70
use mmrab
j1=0
********************Размножается на объем
do while j1<6
j1=j1+1
s2a='z60000\m'+str(100000+j1,6)

copy to &S2A
enddo
use
!dir z60000\m*.dbf >mmtxt.txt
*use f080
*copy stru to mmdir
******************файл для запоминания списка файлов
use mmdir
zap
appe from mmtxt sdf
dele for lowe(text)#"m"
pack
go top
dime xmac(99) && с запасом

do while .not.eof()
s2=trim(substr(text,1,8))+'.dbf'
?s2
sele 2
s2a='z60000\'+s2
s2b='z60001\'+s2
SET ALTE TO TXT1.TXT
SET ALTE ON
use &s2a
copy STRU to &s2b
J1K=FCOUN()
*list stru
@23,00 say s2
store 0 to xmac
j2=0
do while .not.eof()
j2=j2+1
scat to x1
j1=1
??X1(1)
do while j1<J1K
j1=j1+1
s2=xmac(j1)+x1(j1)
xmac(j1)=s2
*x1(j1)=s2
??',',S2
enddo
?
*?x1(1),xmac(2),xmac(3)
*gath from x1
*list memo
*edit
skip
enddo
go top
*set head off
*list next 3 off
SET ALTE OFF
SET ALTE TO
USE &S2B
APPE FROM TXT1.TXT DELI 
*WITH '`'

?TIME(),DBF()
use
********удаление переведенного
dele file &s2a
sele 1
skip
enddo
quit


...
Рейтинг: 0 / 0
01.09.2014, 20:52
| Ответить | Цитировать | Написать  
Пересчет построчно таблицы.
    #38735050
sqlnew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sqlnew
Участник
Всем спасибо!

Помогло:

use -> copy to array -> работа с массивом в памяти -> append from array
...
Рейтинг: 0 / 0
02.09.2014, 15:16
| Ответить | Цитировать | Написать  
30 сообщений из 30, показаны все 2 страниц
  все  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Пересчет построчно таблицы.
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=41&tid=1582570]:
 0ms
get settings:
 12ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 30ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 65ms
get tp. blocked users:
 1ms
others: 311ms
total:  451ms
созд. / загр.: 451ms
x
x
Закрыть


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