Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / нахождение символов / 11 сообщений из 11, страница 1 из 1
03.11.2005, 12:56:49
    #33359893
Недоходящий
Недоходящий
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нахождение символов
Все мы знаем что АТС находя заданный символ(ы) возвращает номер первого найденного символа. Допустим что есть такая строка
а = "asd,zxc,qwe,ert"
Через АТС задав нахождение ',' мы будем знать место нахождение только первой ',', а как узнать место нахождение всех остальных?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.11.2005, 13:03:16
    #33359908
golsa
golsa
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нахождение символов
А слабо help по команде ATC поглядеть? Там третий необязательный параметр есть = номеру вхождения.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.11.2005, 13:08:11
    #33359918
Владимир СА
Владимир СА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нахождение символов
НедоходящийВсе мы знаем что АТС находя заданный символ(ы) возвращает номер первого найденного символа. Допустим что есть такая строка
а = "asd,zxc,qwe,ert"
Через АТС задав нахождение ',' мы будем знать место нахождение только первой ',', а как узнать место нахождение всех остальных?
Используй функцию OCCURS()
Возвращает число вхождений некоторого символьного выражения в другое символьное выражение.
Синтаксис
OCCURS(cSearchExpression, cExpressionSearched)

Параметры:
cSearchExpression - Задает символьное выражение, которое функция OCCURS( ) ищет в выражении cExpressionSearched.
cExpressionSearched - Задает символьное выражение, которое OCCURS( ) просматривает в поисках cSearchExpression.
Результат: Числовой
Комментарии
Функция OCCURS( ) возвращает 0 (ноль), если выражение cSearchExpression не найдено в выражении cExpressionSearched.
А дальше надеюсь легко...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.11.2005, 13:17:59
    #33359946
Коломейцев Артем
Коломейцев Артем
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нахождение символов
Команда atc имеет еще один последний параметр, он числовой и указывает какое вхождение символа искать atc([q,q,e,t],s,2)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.11.2005, 13:45:37
    #33360043
Недоходящий
Недоходящий
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нахождение символов
Спасибо Владимир СА. А то для сравнения использую АТС.
теперь еще. Вот код в котором я поочередно вырезаю строки
rep_col_name = "asd,sdg,nyt,xcvsdf"
rep_cn=1
do while .t.
rep_second = atc(',',rep_col_name,rep_cn)
if rep_cn = 1
rep_first = 1
endif
rep_cn=rep_cn+1
if rep_second = 0
exit
endif
set step on
rep_add_name = substr(rep_col_name,rep_first,rep_second-1)
select grid_names
append blank
replace colomn_names with rep_add_name
rep_first =rep_second+1
enddo

Проблема вся в том что когда после первого вырезание "asd" последующие значения идут "sdg,nyt" а не "sdg". Т.е. попарно получается. Почему так? В чем ошибка?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.11.2005, 15:03:31
    #33360353
AleksMed
AleksMed
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нахождение символов
А не проще всё это через GetWordNum() и GetWordCount() сделать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.11.2005, 16:26:15
    #33360659
Недоходящий
Недоходящий
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нахождение символов
инициализация этой функций не найдется?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.11.2005, 20:54:13
    #33361221
Владимир СА
Владимир СА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нахождение символов
Недоходящийинициализация этой функций не найдется?Примерно так:
Если VFP80, то действительно, как указал AleksMed , удобнее использовать GetWordCount и GETWORDNUM
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
CLEAR
rep_col_name = "asd,sdg,nyt,xcvsdf"
?rep_col_name
LOCAL i, m.n_worlds
m.n_worlds = GetWordCount(rep_col_name,',')
IF m.n_worlds >  0 
  FOR i =  1  TO m.n_worlds
    ? GETWORDNUM(rep_col_name,i,",")
  ENDFOR
ENDIF
Если VFP версии ниже, т.е. в котором нет этих функций
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
CLEAR
rep_col_name = "asd,sdg,nyt,xcvsdf"
?rep_col_name
LOCAL i, m.n_worlds, m.n_start, m.n_fin
m.n_worlds = OCCURS(',',rep_col_name)+ 1 
?m.n_worlds
IF m.n_worlds> 0  AND LEN(ALLTRIM(rep_col_name))> 0 
  m.n_start =  1 
  FOR i =  1  TO m.n_worlds
    m.n_fin = ATC(",",rep_col_name,i) -  1 
    IF m.n_fin >  0 
      ?SUBSTR(rep_col_name, m.n_start, m.n_fin-m.n_start+ 1 )
      m.n_start = m.n_fin +  2 
    ELSE
      ?SUBSTR(rep_col_name, m.n_start)
    ENDIF
  ENDFOR
ENDIF
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.11.2005, 10:30:03
    #33361448
Недоходящий
Недоходящий
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нахождение символов
2 Владимир СА
Да. Это то мне и нужно для вфп6. Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.11.2005, 11:10:41
    #33362397
karly™
karly™
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нахождение символов
В VFP версиях ниже, чем 7, эти функции доступны с помощью библиотеки foxtools.fll
Код: plaintext
1.
2.
3.
Set library to foxtools.fll
cText = "Привет! Как жизнь?"
?Words(сText) &&  3 
?Wordnum(cText,  1 ) && "Привет!"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.11.2005, 19:32:07
    #33363011
ВладимирМ
ВладимирМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
нахождение символов
Для VFP6 можно использовать функцию ALINES(), предварительно заменив символы запятой на символы CHR(13)

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
* Исходная строка
LOCAL lcString
lcString = "asd,zxc,qwe,ert"
* Формирование массива, состоящего из "слов" строки
LOCAL laWords( 1 ), lnWords, lnI
lnWords=ALINES(laWords,ChrTran(m.lcString,",",CHR( 13 )))
FOR m.lnI =  1  TO lnWords
	?laWords[m.lnI]
ENDFOR

Получишь массив, каждый элемент которого - это фрагмент исходной строки разделенной запятыми. Т.е., например, второе слово - это будет laWords(2)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / нахождение символов / 11 сообщений из 11, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 743ms
Закрыть
start [/forum/topic.php?fid=41&tablet=1&tid=1593128]:
 0ms
get settings:
 8ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 439ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 61ms
get tp. blocked users:
 2ms
others: 193ms
total:  743ms
x
x
Закрыть


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