Алгоритм для символьного типа / FoxPro, Visual FoxPro

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Алгоритм для символьного типа

21 сообщений из 21, страница 1 из 1

Алгоритм для символьного типа

#35164768

Alex Sith

Гость

Исходная задача:
рассчитать количество записей таблицы, у которых в поле символьного типа значение попадает в заданный диапазон.

Особенность в том, что из-за символьного типа, например, пункт "85.3" > пункта "85.20".
Пример: мне надо посчитать количество записей для диапазона пунктов:
1) от п. "85.2" по "85.16.4" => BETWEEN(x,'85.2','85.16.4')
2) от п. "85.3" по "85.20.2" => BETWEEN(x,'85.3','85.20.2')

Примеры ошибок: в первый диапазон не попадает x="85.3", во второй не попадает x="85.8".

Уровень вложенности тройной, т.е. максимально длинным может быть пункт "99.99.99"

Как правильно производить подсчёт? Может уже есть готовая функция/алгоритм?(у меня поиск по форуму не работает)

...

Рейтинг:

0 / 0

01.03.2008, 09:59

| Ответить | Цитировать | Написать

Алгоритм для символьного типа

#35164775

Dima T

Участник

Сообщения: 15 530

Рейтинг: 0 / 0

напиши функцию преобразования в число. Если максимум '99.99.99', то она должна такое давать:
"85.2" => 852000
"85.20.2" => 852020

а числа сравнивай.

...

Рейтинг:

0 / 0

01.03.2008, 10:27

| Ответить | Цитировать | Написать

Алгоритм для символьного типа

#35164776

Dima T

Участник

Сообщения: 15 530

Рейтинг: 0 / 0

Dima T"85.2" => 852000
чуть ошибся, надо так
"85.2" => 850200

...

Рейтинг:

0 / 0

01.03.2008, 10:28

| Ответить | Цитировать | Написать

Алгоритм для символьного типа

#35164779

Dima T

Участник

Сообщения: 15 530

Рейтинг: 0 / 0

Число можно так получить:

Код: plaintext

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.

? GetNumber('85.3.1')

Func GetNumber
lpara tcValue
return val(GetParam(tcValue, '.',  1 )) *  10000  + val(GetParam(tcValue, '.',  2 )) *  100  + val(GetParam(tcValue, '.',  3 ))

* Выборка подстроки из строки с разделителями
* Параметры: Строка, Разделитель, Номер элемента
func GetParam
lpara lcText, lcDelim, lnNom
local lnPos, lcT
if lnNom <  1 
	lcT = ''
else
	if lnNom =  1 
		lcT = lcText
	else
		lnPos = at(lcDelim, lcText, lnNom- 1 )
		if lnPos #  0 
			lcT = substr(lcText, lnPos + len(lcDelim))
		else
			lcT = ''
		endif
	endif
	if at(lcDelim, lcT) #  0  
		lcT = left(lcT, at(lcDelim, lcT) -  1 )
	endif
endif
return lcT

...

Рейтинг:

0 / 0

01.03.2008, 10:34

| Ответить | Цитировать | Написать

Алгоритм для символьного типа

#35164849

MiklS

Гость

УУУ! Как всё сложно!

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.

*lnVar1="85.3"
*lnVar2="85.20.2"
LPARAMETERS lnVar1, lnVar2

lnVar1=VAL(PADR(STRTRAN(lnVar1, ".", ""),  6 , "0"))
lnVar2=VAL(PADR(STRTRAN(lnVar2, ".", ""),  6 , "0"))

CALCULATE CNT() FOR BETWEEN(VAL(PADR(STRTRAN(Table.Pole, ".", ""),  6 , "0")), lnVar2, lnVar1) TO nCol
? nCol

Пользуйтесь!

...

Рейтинг:

0 / 0

01.03.2008, 12:42

| Ответить | Цитировать | Написать

Алгоритм для символьного типа

#35164864

Dima T

Участник

Сообщения: 15 530

Рейтинг: 0 / 0

MiklSУУУ! Как всё сложно!
УУУ! Как все неправильно!

...

Рейтинг:

0 / 0

01.03.2008, 13:14

| Ответить | Цитировать | Написать

Алгоритм для символьного типа

#35164884

MiklS

Гость

И что не работает?

...

Рейтинг:

0 / 0

01.03.2008, 13:34

| Ответить | Цитировать | Написать

Алгоритм для символьного типа

#35164892

MiklS

Гость

ЗЫ! Сам только что проверил на курсоре - всё отлично работает!!!!!!!

...

Рейтинг:

0 / 0

01.03.2008, 13:41

| Ответить | Цитировать | Написать

Алгоритм для символьного типа

#35164898

Dima T

Участник

Сообщения: 15 530

Рейтинг: 0 / 0

MiklSЗЫ! Сам только что проверил на курсоре - всё отлично работает!!!!!!!
Отлично от того как надо.
По постановке задачи 85.2 < 85.16 А у тебя что получается?

...

Рейтинг:

0 / 0

01.03.2008, 13:51

| Ответить | Цитировать | Написать

Алгоритм для символьного типа

#35164928

MiklS

Гость

Просто нужно вставить ALLTRIM() для переменных и Pole1. И всё. У меня в курсоре данные в виде 99.99.99. А ты пишешь 85.16!!
lnVar2=VAL(PADR( ALLTRIM( STRTRAN(lnVar2, ".", ""), 6, "0")))
Ну и далее по тексту.

...

Рейтинг:

0 / 0

01.03.2008, 14:30

| Ответить | Цитировать | Написать

Алгоритм для символьного типа

#35164950

Dima T

Участник

Сообщения: 15 530

Рейтинг: 0 / 0

MiklSУ меня в курсоре данные в виде 99.99.99. А ты пишешь 85.16!!
Хорош тормозить :)
Это вложенная нумерация (Раздел.Пункт.Подпункт) три целых числа через точку записанных в строку.
Вот и надо сравнивать сначала номера разделов, если разделы равны пунктов и т.д.
например BETWEEN(x,'85.2','85.16.4') означает в разделе 85 от пункта 2 по пункт 16 подпункт 2

Чтобы сравнивать как строки надо не точки убирать, а нули правильно добавлять:
"85.2" => "85.02.00", если точки убрать "850200" а у тебя "852000"
т.е. у тебя "85.2" равно "85.20"

Alex SithИсходная задача:
Пример: мне надо посчитать количество записей для диапазона пунктов:
1) от п. "85.2" по "85.16.4" => BETWEEN(x,'85.2','85.16.4')
2) от п. "85.3" по "85.20.2" => BETWEEN(x,'85.3','85.20.2')
Примеры ошибок: в первый диапазон не попадает x="85.3", во второй не попадает x="85.8".
...

...

Рейтинг:

0 / 0

01.03.2008, 14:50

| Ответить | Цитировать | Написать

Алгоритм для символьного типа

#35165006

MiklS

Гость

Ну если так "85.2" => "85.02.00" тогда ой! Может не правильно понял!!!
Тогда так

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

*lnVar1="85.3"
*lnVar2="85.20.2"
LPARAMETERS lnVar1, lnVar2

lnPar1=VAL(GETWORDNUM(lnVar1,  1 , "."))
lnPar2=VAL(GETWORDNUM(lnVar1,  2 , "."))
lnPar3=VAL(GETWORDNUM(lnVar1,  3 , "."))

lnPar21=VAL(GETWORDNUM(lnVar2,  1 , "."))
lnPar22=VAL(GETWORDNUM(lnVar2,  2 , "."))
lnPar23=VAL(GETWORDNUM(lnVar2,  3 , "."))

Ну и дальше через SCAN ... ENDSCAN

...

Рейтинг:

0 / 0

01.03.2008, 15:34

| Ответить | Цитировать | Написать

Алгоритм для символьного типа

#35165019

Dima T

Участник

Сообщения: 15 530

Рейтинг: 0 / 0

MiklS...

Код: plaintext

lnPar1=VAL(GETWORDNUM(lnVar1,  1 , "."))

Что я и сделал изначально. только GETWORDNUM() нет в 6-ке, потому и пользую самодельный GetParam()

...

Рейтинг:

0 / 0

01.03.2008, 15:47

| Ответить | Цитировать | Написать

Алгоритм для символьного типа

#35165022

Sergey Sizov.

Гость

Dima T MiklS...

Код: plaintext

lnPar1=VAL(GETWORDNUM(lnVar1,  1 , "."))

Что я и сделал изначально. только GETWORDNUM() нет в 6-ке, потому и пользую самодельный GetParam()
Вместо него есть WordNum из Foxtools.fll

...

Рейтинг:

0 / 0

01.03.2008, 15:49

| Ответить | Цитировать | Написать

Алгоритм для символьного типа

#35165035

MiklS

Гость

Вот так получается вроде правильно
*lnVar1="85.3"
*lnVar2="85.20.2"
LPARAMETERS lnVar1, lnVar2

lnPar1=PADL(GETWORDNUM(lnVar1, 1, "."), 2, "0")
lnPar2=PADL(GETWORDNUM(lnVar1, 2, "."), 2, "0")
lnPar3=PADL(GETWORDNUM(lnVar1, 3, "."), 2, "0")
lnVar1=VAL(lnPar1+lnPar2+lnPar3)
lnPar1=PADL(GETWORDNUM(lnVar2, 1, "."), 2, "0")
lnPar2=PADL(GETWORDNUM(lnVar2, 2, "."), 2, "0")
lnPar3=PADL(GETWORDNUM(lnVar2, 3, "."), 2, "0")
lnVar2=VAL(lnPar1+lnPar2+lnPar3)

CALCULATE CNT() FOR BETWEEN(VAL(PADR(STRTRAN(Table.Pole, ".", ""), 6, "0")), lnVar2, lnVar1) TO nCol
? nCol

...

Рейтинг:

0 / 0

01.03.2008, 15:57

| Ответить | Цитировать | Написать

Алгоритм для символьного типа

#35165054

Dima T

Участник

Сообщения: 15 530

Рейтинг: 0 / 0

MiklSВот так получается вроде правильно
...
Не-а. С Table.Pole то же самое проделать надо что и с lnVar1, lnVar2 (кстати префикс lc тут уместней)
и почему у тебя в BETWEEN() lnVar2, lnVar1 а не наоборот?

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.

lcVar1="85.3"
lcVar2="85.20.2"

CALCULATE CNT() FOR BETWEEN(GetNumber(Table.Pole), GetNumber(lcVar1), GetNumber(lcVar2)) TO nCol
? nCol

func GetNumber
lpara tcVal
return VAL(PADL(GETWORDNUM(tcVal,  1 , "."),  2 , "0") + PADL(GETWORDNUM(tcVal,  2 , "."),  2 , "0") + PADL(GETWORDNUM(tcVal,  3 , "."),  2 , "0"))

...

Рейтинг:

0 / 0

01.03.2008, 16:13

| Ответить | Цитировать | Написать

Алгоритм для символьного типа

#35165060

MiklS

Гость

Забыл переставить, просто скопировал....

...

Рейтинг:

0 / 0

01.03.2008, 16:17

| Ответить | Цитировать | Написать

Алгоритм для символьного типа

#35165085

ВладимирМ

Участник

Откуда: г. Москва

Сообщения: 7 937

Рейтинг: 0 / 0

Для справки:

В VFP6 была введена функция ALINES(), при помощи которой можно выделить отдельные "слова". Правда, в VFP6 придется заменять символы-разделители на Chr(13)

Код: plaintext

1.
2.
3.
4.
5.
6.

LOCAL lcString, laElements( 1 ), lnI, lnTotal
lcString = "85.16.4"
lnTotal = Alines(laElements, ChrTran(m.lcString,".",Chr( 13 )))
FOR lnI= 1  TO lnTotal
	?m.lnI, laElements[m.lnI]
ENDFOR

Если, тем не менее, необходимо разбирать строку по символьно через поиск по AT(), то для упрощения анализа следует добавить в начало и конец анализируемой строки символ-разделитель.

Код: plaintext

1.
2.
3.
4.
5.
6.

LOCAL lcString, lcSeparator
lcSeparator = "."
lcString =  m.lcSeparator + "85.16.4" + m.lcSeparator

?"Начало первого элемента = ",AT(m.lcSeparator, m.lcString,  1 )
?"Конец  первого элемента = ",AT(m.lcSeparator, m.lcString,  2 )

Если разделителем выступает именно точка, то можно выделить фрагменты при помощи функций JustExt() и JustStem()

Хотя, разумеется, через GetWordNum() задача решается проще. Только, зачем же в число переводить? Ведь вы вместе и так получили корректную строку для сравнения.

Т.е. трансформировали строку вида "85.16.4" в строку "851604". А строку вида "85.2" в строку "850200". Последний шаг - первод в число - лишний. Все прекрасно будет работать и для символьных строк, поскольку они приведены в сопоставимый формат.

...

Рейтинг:

0 / 0

01.03.2008, 16:57

| Ответить | Цитировать | Написать

Алгоритм для символьного типа

#35165093

Dima T

Участник

Сообщения: 15 530

Рейтинг: 0 / 0

ВладимирМ Только, зачем же в число переводить? Ведь вы вместе и так получили корректную строку для сравнения.
Для понимания. Читабельности кода. Если реальный смысл строки - три целых числа записанных последовательно, так с числами и надо продолжать работать, я так думаю. За исключением случаев когда нужна максимальная производительность.
Изначально я предлагал вариант сориентированный на числа. Потом появился компромис с MiklS :)

Классические операции сравнения для строк это равно/неравно, а сравнение строк на больше/меньше - не частая операция с реальными строками.

...

Рейтинг:

0 / 0

01.03.2008, 17:11

| Ответить | Цитировать | Написать

Алгоритм для символьного типа

#35165188

Kruchinin Pahan

Участник

Откуда: Екатеринбург

Сообщения: 926

Рейтинг: 0 / 0

Dima T ВладимирМ Только, зачем же в число переводить? Ведь вы вместе и так получили корректную строку для сравнения.
Для понимания. Читабельности кода. Если реальный смысл строки - три целых числа записанных последовательно, так с числами и надо продолжать работать, я так думаю. За исключением случаев когда нужна максимальная производительность.
Изначально я предлагал вариант сориентированный на числа. Потом появился компромис с MiklS :)

Классические операции сравнения для строк это равно/неравно, а сравнение строк на больше/меньше - не частая операция с реальными строками.
Сам я единожды встречался с такой структурой хранения кода. Решения были разные для разных СУБД. В Фоксе пришлось оставить как есть, а для выборок ввести дополнительное поле, обновляемое по триггеру. Смысл поля в том, что в нем хранится значение уже расшарашенное по маске "XXX.XX.XX". При смене маски (которая лежит в отдельной настройке), поле пересчитывалось из исходных данных (в стиле "85.2.4"). Выборки при этом ходят достаточно быстро.
В Postgre я запихал маску в массив, пошаманил с сортировками, а для пользователя преобразую в текст. Так, как удобнее в данном случае (маскированно/или нет).
Но! Чтобы это более или менее шевелилось, пришлось написать свою функцинешку на сях в обоих случаях. А на сях реализуется со сложностью O(1).

...

Рейтинг:

0 / 0

01.03.2008, 19:21

| Ответить | Цитировать | Написать

Алгоритм для символьного типа

#35165268

Dima T

Участник

Сообщения: 15 530

Рейтинг: 0 / 0

Kruchinin Pahan[quot Dima T]Сам я единожды встречался с такой структурой хранения кода. Решения были разные для разных СУБД. В Фоксе пришлось оставить как есть, а для выборок ввести дополнительное поле, обновляемое по триггеру. Смысл поля в том, что в нем хранится значение уже расшарашенное по маске "XXX.XX.XX". При смене маски (которая лежит в отдельной настройке), поле пересчитывалось из исходных данных (в стиле "85.2.4"). Выборки при этом ходят достаточно быстро.
В Postgre я запихал маску в массив, пошаманил с сортировками, а для пользователя преобразую в текст. Так, как удобнее в данном случае (маскированно/или нет).
Но! Чтобы это более или менее шевелилось, пришлось написать свою функцинешку на сях в обоих случаях. А на сях реализуется со сложностью O(1).
Если задача критична к производительности (например объем данных очень большой) то предпочитаю хранить только удобную для программной обработки форму, а при выводе на клиенте преобразовывать в удобный пользователю вид. Так на сервер получается минимальная нагрузка и минимальный объем данных хранится. Как правило у клиента свободного процессорного времени больше.

...

Рейтинг:

0 / 0

01.03.2008, 21:04

| Ответить | Цитировать | Написать

21 сообщений из 21, страница 1 из 1

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Алгоритм для символьного типа

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=41&fpage=168&tid=1588095]:	0ms
get settings:	6ms
get forum list:	14ms
check forum access:	3ms
check topic access:	3ms
track hit:	46ms
get topic data:	6ms
get forum data:	2ms
get page messages:	47ms
get tp. blocked users:	2ms
others:	218ms

total:	347ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы