ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / поиск максимума???
7 сообщений из 7, страница 1 из 1
поиск максимума???
    #33747069
chuvaaak
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
chuvaaak
Гость
Есть код
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
SCAN
	nc1 =  0 
	for i =  1  to len(c1)
		nc1 = nc1 + iif(isdigit(substr(c1, i,  1 )),  1 ,  0 )
		NEXT   
	nc2 =  0 
	for i =  1  to len(c2)
		nc2 = nc2 + iif(isdigit(substr(c2, i,  1 )),  1 ,  0 )
		NEXT  
	
	?nc1, nc2
ENDSCAN
он шарится по таблице и считает в какой ячейке какое количество цифр, но он никуда(ну это мне так видится) эти количесва не пишет и при
Код: plaintext
BROWSE last
просто тупо выводит. Вопрос: как бы эти количества сравнить и найти максимум, а потом показать в каком столбце эта максимальная ячейка и упорядочить этот столбец по возрастанию количество цифр в нем?
...
Рейтинг: 0 / 0
24.05.2006, 02:42
| Ответить | Цитировать | Написать  
поиск максимума???
    #33747728
Фотография Hel!Riser
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hel!Riser
Участник
если я пральна понял, то вот
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
cLetter='QWERTYUIOPASDFGHJKLZXCVBNM'
cLetter=cLetter+LOWER(cLetter)
SELECT MAX(LEN(ALLTRIM(PADR(CHRTRAN(c1, cLetter, ''),  250 )))), ;
		MAX(LEN(ALLTRIM(PADR(CHRTRAN(c2, cLetter, ''),  250 )))) ;
	FROM qTemp ;
	INTO ARRAY aMax
cField=IIF(aMax[ 1 ]>aMax[ 2 ], 'c1', 'c2')
SELECT &cField, LEN(ALLTRIM(PADR(CHRTRAN(&cField, cLetter, ''),  250 ))) ;
	FROM qTemp ;
	ORDER BY  2
...
Рейтинг: 0 / 0
24.05.2006, 11:16
| Ответить | Цитировать | Написать  
поиск максимума???
    #33759368
chuvaaak
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
chuvaaak
Гость
я не очень понимаю в foxpro, но то что вы мне написали можно прикрутить к моей программке
Код: 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.
*В каком столбце таблицы находится ячейка с максимальным числом цифр
*Упорядочить этот столбец по возрастанию числа цифр в его ячейках
SET SAFETY OFF
CLOSE TABLES ALL
CLEAR 
ali = 't1'
tPath = 'i:\foxpro\äîì ðàá ¹1\'
tabN = tPath + ali
CREATE TABLE (tabN) FREE (c1 C( 40 ), d1 D, c2 C( 20 ), i1 I)
INSERT INTO (ali) VALUES ('3abc45 df 67 uu', DATE( ), 'dabce',  1 )
INSERT INTO (ali) VALUES ('6abcabc fg 33 tyu', DATE( ), 'abce2abc',  2 )
INSERT INTO (ali) VALUES ('910a11', DATE( ), 'abc2e3abc3 123 567 89',  3 )
INSERT INTO (ali) VALUES ('910a1134', DATE( ), 'abc2e3abc3',  3 )
*BROWSE last

ncMax1 =  0 



SCAN     
	nc1 =  0 
	FOR i =  1  TO LEN(c1)
		nc1 = nc1 + IIF(ISDIGIT(SUBSTR(c1, i,  1 )),  1 ,  0 )  
		NEXT 
	? nc1
ENDSCAN

Спасибо
...
Рейтинг: 0 / 0
29.05.2006, 23:31
| Ответить | Цитировать | Написать  
поиск максимума???
    #33761466
chuvaaak
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
chuvaaak
Гость
ну что никто не может помочь, очень нужно правда, заранее спасибо
...
Рейтинг: 0 / 0
30.05.2006, 18:11
| Ответить | Цитировать | Написать  
поиск максимума???
    #33762282
Sergey Ch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey Ch
Участник
chuvaaakну что никто не может помочь, очень нужно правда, заранее спасибо
А если самому посидеть, разобраться и написать? Ведь учитель именно этого от Вас хочет - научить Вас думать...

But anyway, good luck!
...
Рейтинг: 0 / 0
31.05.2006, 09:24
| Ответить | Цитировать | Написать  
поиск максимума???
    #33764424
chuvaaak
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
chuvaaak
Гость
вот,спасибо помогли. Учитель мог бы объяснить хоть что нибудь прежде чем требовать, я не для того поступал на дневное чтобы сам все догонять, а препод вообще ниччего не объяснял по фоксу, потому и спрашиваю
...
Рейтинг: 0 / 0
31.05.2006, 18:56
| Ответить | Цитировать | Написать  
поиск максимума???
    #33764650
chuvaaak
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
chuvaaak
Гость
Hel!Riser , Огромное вам спасибо, ваш код очень помог
...
Рейтинг: 0 / 0
31.05.2006, 22:07
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / поиск максимума???
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=33761466&tid=1591533]:
 0ms
get settings:
 9ms
get forum list:
 18ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 184ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 230ms
total:  512ms
созд. / загр.: 512ms
x
x
Закрыть


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