ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / работа со строкой
4 сообщений из 4, страница 1 из 1
работа со строкой
    #33321486
работа со строкой
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
работа со строкой
Гость
есть dbf, к которой одно поле символьное. в кот. может быть любые символы и числа. нужно выбрать все уникальные символы, которые не являются числами.
помогите, плиз
...
Рейтинг: 0 / 0
13.10.2005, 08:03:38
| Ответить | Цитировать | Написать  
работа со строкой
    #33321493
Фотография Hel!Riser
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hel!Riser
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
cString='laegf lagf lajkfh ;a2346 1 l1j23 rg'
CREATE CURSOR qLetter (Letter C( 1 ))
FOR nCnt= 1  TO LEN(cString)
  IF ISALPHA(SUBSTR(cString,nCnt, 1 ))
       INSERT INTO qLetter VALUE(SUBSTR(cString,nCnt, 1 ))
  ENDIF
ENDFOR
SELECT DISTINCT Letter FROM qLetter INTO CURSOR qUnic
на выходе будет курсорчик, каждая запись - букофка. или собираем взад в переменную
Код: plaintext
1.
2.
3.
4.
5.
cOutString=''
SELECT qUnic
SCAN ALL
  cOutString=cOutString+qUnic.Letter
ENDSCAN
?cOutString
...
Рейтинг: 0 / 0
13.10.2005, 08:13:55
| Ответить | Цитировать | Написать  
работа со строкой
    #33321502
Фотография Grumax
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Grumax
Участник
ИМХО на скорую руку
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
*****
SET STEP ON 
LOCAL lcField_a, lnI, lcResult
STORE SPACE( 0 ) TO m.lcField_a, m.lcResult
CREATE CURSOR Cur_one (Field_a C( 20 ), Field_b C( 30 ))
INSERT INTO Cur_one (Field_a, Field_b) VALUES ("abcdif54546asada545k", "asa85dulo464bu47W47qwerty4da68")
SELECT Cur_one
m.lcField_a=Cur_one.Field_a
FOR m.lnI= 1  TO LEN(m.lcField_a)
	m.lcResult=m.lcResult+IIF(ASC(SUBSTR(m.lcField_a,m.lnI, 1 ))=> 48  AND ASC(SUBSTR(m.lcField_a,m.lnI, 1 ))<= 57 ,SPACE( 0 ),SUBSTR(m.lcField_a,m.lnI, 1 ))
ENDFOR 
MESSAGEBOX(m.lcResult)
*****
------------------------------------------------------------------------------------
Код: plaintext
Я во все дела суюсь -> всесторонне разовьюсь                                                         Visual FoxPro 8.0
...
Рейтинг: 0 / 0
13.10.2005, 08:26:55
| Ответить | Цитировать | Написать  
работа со строкой
    #33321545
Фотография Grumax
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Grumax
Участник
Поправка на уникальные символы
Код: plaintext
1.
2.
3.
m.lcResult=m.lcResult+IIF(AT(IIF(ASC(SUBSTR(m.lcField_a,m.lnI, 1 ))<= 48  OR ASC(SUBSTR(m.lcField_a,m.lnI, 1 ))>= 57 ,;
	SUBSTR(m.lcField_a,m.lnI, 1 ),SPACE( 0 )),m.lcResult)> 0 ,;
	SPACE( 0 ),IIF(ASC(SUBSTR(m.lcField_a,m.lnI, 1 ))<= 48  OR ASC(SUBSTR(m.lcField_a,m.lnI, 1 ))>= 57 ,;
	SUBSTR(m.lcField_a,m.lnI, 1 ),SPACE( 0 )))
Не понял сначала
------------------------------------------------------------------------------------
Код: plaintext
Я во все дела суюсь -> всесторонне разовьюсь                                                         Visual FoxPro 8.0
...
Рейтинг: 0 / 0
13.10.2005, 09:10:26
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / работа со строкой
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=33321545&tid=1593281]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 215ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 54ms
get tp. blocked users:
 1ms
others: 239ms
total:  554ms
созд. / загр.: 554ms
x
x
Закрыть


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