Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / поиск максимума??? / 7 сообщений из 7, страница 1 из 1
24.05.2006, 02:42
    #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, 11:16
    #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
| Ответить | Цитировать | Написать  
29.05.2006, 23:31
    #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
| Ответить | Цитировать | Написать  
30.05.2006, 18:11
    #33761466
chuvaaak
chuvaaak
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
поиск максимума???
ну что никто не может помочь, очень нужно правда, заранее спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.05.2006, 09:24
    #33762282
Sergey Ch
Sergey Ch
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
поиск максимума???
chuvaaakну что никто не может помочь, очень нужно правда, заранее спасибо
А если самому посидеть, разобраться и написать? Ведь учитель именно этого от Вас хочет - научить Вас думать...

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


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