Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / работа со строкой / 25 сообщений из 26, страница 1 из 2
  1  все
13.08.2009, 12:24:23
    #36141405
flowy
flowy
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
работа со строкой
наверное опять ступила, но все же.. посмотрите плиз

нужна функция, которая из строк типа 'c1003c' 'c1003' выбирает только число
моя функция возвращает пустую строку
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
function getkey
parameter s
local result, temp
temp=alltrim(substr(s, 2 ))
result=''
do while (isalpha(temp)=.F.) and (temp<>'') do
 result=result+alltrim(substr(temp, 1 , 1 ))
 temp=substr(temp, 2 )
enddo
return result
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.08.2009, 12:37:22
    #36141453
Rickitiki
Rickitiki
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
работа со строкой
flowy,
замените (temp <> '') на (!EMPTY(temp))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.08.2009, 12:38:46
    #36141459
Rickitiki
Rickitiki
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
работа со строкой
flowy,
да, и второе do - уберите
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.08.2009, 12:40:25
    #36141463
flowy
flowy
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
работа со строкой
Спасибо! только начала работать с VFP.Раньше работала с Delphi Никак не выучу синтаксис
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.08.2009, 12:40:26
    #36141464
guest12345
guest12345
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
работа со строкой
? StrNum1('c1003c')
? StrNum1('c1003')

FUNCTION StrNum1
PARAMETERS str1
RETURN VAL(ALLTRIM(CHRTRAN(str1,'c','')))
ENDFUNC
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.08.2009, 12:45:07
    #36141481
Rickitiki
Rickitiki
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
работа со строкой
Guest12345,
а если не известны символы?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.08.2009, 12:50:35
    #36141503
guest12345
guest12345
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
работа со строкой
а если не известны символы?

? StrNum1('c1003c')
? StrNum1('c1003')

FUNCTION StrNum1
PARAMETERS str1
RETURN VAL(ALLTRIM(CHRTRAN(UPPER(str1),'ABCDEFGHIJKLMNOPQRSTUVWXYZ','')))
ENDFUNC
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.08.2009, 12:57:22
    #36141534
Rickitiki
Rickitiki
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
работа со строкой
Guest12345,
теперь почти согласен, только нужно добавить еще русский алфавит, или арабский или ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.08.2009, 14:28:06
    #36141917
Tohan_ORA
Tohan_ORA
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
работа со строкой
flowy
нужна функция, которая из строк типа 'c1003c' 'c1003' выбирает только число



Код: plaintext
1.
2.
3.
function getkeys
lparameters s
return VAL(SUBSTR(s,AT('x',CHRTRAN(s,'1234567890','xxxxxxxxxx'))))

?getkey('cyrtf19785703c')
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.08.2009, 14:38:54
    #36141951
Tohan_ORA
Tohan_ORA
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
работа со строкой
 
Tohan_ORAflowy
нужна функция, которая из строк типа 'c1003c' 'c1003' выбирает только число



Код: plaintext
1.
2.
3.
function getkeys
lparameters s
return VAL(SUBSTR(s,AT('x',CHRTRAN(s,'1234567890','xxxxxxxxxx'))))

?getkeys('cyrtf19785703c')

Лучше даже так:
Код: plaintext
1.
2.
3.
function getkeys
lparameters s,result
RETURN VAL(SUBSTR(s,AT('1',CHRTRAN(s,'1234567890',PADR('', 10 ,'1')))))

Код: plaintext
?getkeys('cyrtf19785703c')
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.08.2009, 14:58:27
    #36142028
AleksMed
AleksMed
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
работа со строкой
flowy,

Код: plaintext
1.
?CHRTRAN('c1003g',CHRTRAN('c1003g','0123456789',''),'')
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.08.2009, 15:08:48
    #36142060
Tohan_ORA
Tohan_ORA
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
работа со строкой
AleksMedflowy,

Код: plaintext
1.
?CHRTRAN('c1003g',CHRTRAN('c1003g','0123456789',''),'')

+1

Только вопрос, что нужно будет получить из следующей строки:
Код: plaintext
s='yhggg_#@45547_22'

 
Код: plaintext
?CHRTRAN(s,CHRTRAN(s,'0123456789',''),'')


4554722 or 45547
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.08.2009, 15:15:07
    #36142089
AleksMed
AleksMed
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
работа со строкой
Tohan_ORAAleksMedflowy,

Код: plaintext
1.
?CHRTRAN('c1003g',CHRTRAN('c1003g','0123456789',''),'')

+1

Только вопрос, что нужно будет получить из следующей строки:
Код: plaintext
s='yhggg_#@45547_22'

+
 
Код: plaintext
?CHRTRAN(s,CHRTRAN(s,'0123456789',''),'')


4554722 or 45547
Идея подброшена, далее автор сам разберется, что ему надо и доточит.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.08.2009, 15:25:51
    #36142140
guest12345
guest12345
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
работа со строкой
Tohan_ORA а если будет

? getkeys('cy5r551tfc')
функция вернет только первое число 5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.08.2009, 15:37:51
    #36142193
Tohan_ORA
Tohan_ORA
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
работа со строкой
Guest12345Tohan_ORA а если будет

? getkeys('cy5r551tfc')
функция вернет только первое число 5
А какое надо?
Если вырезать все буковки,то решение AleksMed,
если первое встретившееся число то подойдет например мое.
Подрихтуйте решения на свой лад и будет счастье под конкретную задачу.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2009, 13:35:12
    #36144343
Guest~
Guest~
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
работа со строкой
Tohan_ORAЛучше даже так:
Код: plaintext
1.
2.
3.
function getkeys
lparameters s,result
RETURN VAL(SUBSTR(s,AT('1',CHRTRAN(s,'1234567890',PADR('', 10 ,'1')))))


?getkeys("e1e1e")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2009, 13:50:47
    #36144407
Tohan_ORA
Tohan_ORA
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
работа со строкой
Guest~
 
Tohan_ORAЛучше даже так:
Код: plaintext
1.
2.
3.
function getkeys
lparameters s,result
RETURN VAL(SUBSTR(s,AT('1',CHRTRAN(s,'1234567890',PADR('', 10 ,'1')))))


?getkeys("e1e1e")

Ущучили :-)

Тады мы вот так:
Код: plaintext
?VAL(SUBSTR(CHRTRAN(s,'e',' '),AT('1',CHRTRAN(s,'1234567890',PADR('', 10 ,'1')))))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2009, 14:20:43
    #36144542
Guest~
Guest~
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
работа со строкой
Уж лучше тогда сразу
Код: plaintext
1.
?INT(VAL(SUBSTR(CHRTRAN(s,CHRTRAN(s,'0123456789',''),REPLICATE('a',MAX(LEN(CHRTRAN(s,'0123456789','')), 1 ))),AT('1',CHRTRAN(s,'1234567890',PADR('', 10 ,'1'))))))
а то я еще чего-нибудь придумаю (например '1E1').
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2009, 16:07:17
    #36144996
tanglir
tanglir
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
работа со строкой
Guest~,
Чем был плох вариант AleksMed'а? А если охота взять только первое число, то через цикл имхо быстрее будет (типа do while not цифра - do while цифра), чем через кучу чартранов, в которых потом ещё и разбираться кому-нибудь придётся.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2009, 17:13:34
    #36145183
Guest~
Guest~
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
работа со строкой
tanglirто через цикл имхо быстрее будет
Код: 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.
m.s=REPLICATE("a", 100000 )+"1"

m.sc=SECONDS()
?getkeys(s)
?SECONDS()-m.sc

m.sc=SECONDS()
?getkeys2(s)
?SECONDS()-m.sc


function getkeys
lparameters s
RETURN INT(VAL(SUBSTR(CHRTRAN(s,CHRTRAN(s,'0123456789',''),REPLICATE('a',MAX(LEN(CHRTRAN(s,'0123456789','')), 1 ))),AT('1',CHRTRAN(s,'1234567890',PADR('', 10 ,'1'))))))

FUNCTION getkeys2
LPARAMETERS s
LOCAL m.st, m.cnt
m.cnt= 1 
m.st=""
DO WHILE !ISDIGIT(SUBSTR(s, m.cnt,  1 ))
	m.cnt=m.cnt+ 1 
ENDDO
DO WHILE ISDIGIT(SUBSTR(s, m.cnt,  1 ))
	m.st=m.st+SUBSTR(s, m.cnt,  1 )
	m.cnt=m.cnt+ 1 
ENDDO
RETURN INT(VAL(m.st))
А можете еще с миллионом попробовать, ежели, конечно, терпения хватит.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2009, 18:37:07
    #36145336
tanglir
tanglir
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
работа со строкой
Guest~,
мдааа 3,891 против 0,016 это круто...
Кстати, я сейчас подумал, что это издержки функции substr, решил попробовать цикл над массивом чаров - всё равно 0,125 против 0,016 у чартран-варианта.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2009, 18:52:08
    #36145357
reware
reware
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
работа со строкой
flowy
нужна функция, которая из строк типа 'c1003c' 'c1003' выбирает только число


Я у себя использую функцию по поиску только по цифровым данным :

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
***************************************
FUNCTION OnlyNum
***************************************
* Выбрасывает из строки все нецифровые
* символы (оставляет только  0 - 9 ).
***************************************
PARAMETERS cVictim
LOCAL dyenow, ldye, passer, ragna, outof
dyenow=ALLTRIM(cVictim)
IF EMPTY(dyenow)
	RETURN ''
ENDIF
outof=''
ldye=LEN(dyenow)
FOR passer= 1  TO ldye
	ragna=SUBSTR(dyenow,passer, 1 )
	IF ISDIGIT(ragna)
		outof=outof+ragna
	ENDIF
NEXT
RETURN outof

Например, OnlyNum("cccss22f44g5") вернет 22445.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2009, 19:24:51
    #36145413
tanglir
tanglir
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
работа со строкой
reware,
вбейте ей в качестве параметра REPLICATE("a",100000)+"1" и сравните по скорости с вышенаписанными вариантами. О чём Guest~ парой постов выше и написал.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.08.2009, 23:55:13
    #36146711
reware
reware
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
работа со строкой
tanglirreware,
вбейте ей в качестве параметра REPLICATE("a",100000)+"1" и сравните по скорости с вышенаписанными вариантами. О чём Guest~ парой постов выше и написал.
Да согласен, но речь о скорости изначально вроде не шла. Я вам принцип изложил, хоть он и элементврный.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.08.2009, 17:22:17
    #36148372
tanglir
tanglir
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
работа со строкой
reware,

вообще-то этот принцип изложил я шестью постами выше (а код - Guest~ пятью постами выше)...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / работа со строкой / 25 сообщений из 26, страница 1 из 2
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 529ms
Закрыть
start [/forum/topic.php?fid=41&tablet=1&tid=1586145]:
 0ms
get settings:
 9ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 191ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 79ms
get tp. blocked users:
 2ms
others: 207ms
total:  529ms
x
x
Закрыть


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