Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Разбиение строки в FPD 2.5 / 8 сообщений из 8, страница 1 из 1
09.11.2004, 04:46
    #32772682
paule
paule
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Разбиение строки в FPD 2.5
Подскажите пожалуйста.
У меня есть поле в таблице FIO.
в этом поле записано имя, отчество и фамилия через пробел.

как мне перенести данные в другую таблицу , но только отдельно в поле F - фамилию, в поле I - имя и O - отчество ?
Другими словами как из одной строки получить три?

Заранее спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.11.2004, 07:09
    #32772706
SAM-FoxPro
SAM-FoxPro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Разбиение строки в FPD 2.5
Я использовал функцию SUBSTR.
Определяешь позицию первого пробела, затем второго.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.11.2004, 08:31
    #32772747
Hel!Riser
Hel!Riser
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Разбиение строки в FPD 2.5
Код: plaintext
1.
2.
3.
SET LIBRARY TO fpath.plb
FOR nCnt= 1  TO Words(cFIO)
  ?WordNum(cFIO, nCnt)
ENDFOR
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.11.2004, 09:06
    #32772786
leaf
leaf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Разбиение строки в FPD 2.5
может так???
select t1
scan
append blank in t2
w=alltrim(t1.fio)
if !empty(w)
replace fam with substr(w,1,iif(at(w,' ')#0,at(w,' '),len(w)) in t2
w=iif(at(w,' ')=0,'',substr(w,at(w,' ')+1,len(w)-at(w,' '))
if !empty(w)
replace nam with substr(w,1,iif(at(w,' ')#0,at(w,' '),len(w)) in t2
replace ot with iif(at(w,' ')=0,'',substr(w,at(w,' ')+1,len(w)-at(w,' '))
in t2
endif
endif
endscan
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.11.2004, 09:08
    #32772789
leaf
leaf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Разбиение строки в FPD 2.5
может так???
select t1
scan
append blank in t2
w=alltrim(t1.fio)
if !empty(w)
replace fam with substr(w,1,iif(at(w,' ')#0,at(w,' '),len(w)) in t2
w=alltrim(iif(at(w,' ')=0,'',substr(w,at(w,' ')+1,len(w)-at(w,' ')))
if !empty(w)
replace nam with substr(w,1,iif(at(w,' ')#0,at(w,' '),len(w)) in t2
replace ot with iif(at(w,' ')=0,'',substr(w,at(w,' ')+1,len(w)-at(w,' '))
in t2
endif
endif
endscan
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.11.2004, 11:22
    #32773060
XAndy
XAndy
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Разбиение строки в FPD 2.5
См. функцию getwordnum()
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.11.2004, 11:29
    #32773073
Hel!Riser
Hel!Riser
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Разбиение строки в FPD 2.5
XAndyСм. функцию getwordnum()
FPD такое не знало
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.11.2004, 12:44
    #32773327
XAndy
XAndy
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Разбиение строки в FPD 2.5
О, точно - FPD. Прозрел :)
Ну тогда написать самому аналогичную функцию. Все равно понадобится.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Разбиение строки в FPD 2.5 / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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