ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Разбиение строки в FPD 2.5
8 сообщений из 8, страница 1 из 1
Разбиение строки в FPD 2.5
    #32772682
paule
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paule
Участник
Подскажите пожалуйста.
У меня есть поле в таблице FIO.
в этом поле записано имя, отчество и фамилия через пробел.

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

Заранее спасибо.
...
Рейтинг: 0 / 0
09.11.2004, 04:46
| Ответить | Цитировать | Написать  
Разбиение строки в FPD 2.5
    #32772706
Фотография SAM-FoxPro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SAM-FoxPro
Участник
Я использовал функцию SUBSTR.
Определяешь позицию первого пробела, затем второго.
...
Рейтинг: 0 / 0
09.11.2004, 07:09
| Ответить | Цитировать | Написать  
Разбиение строки в FPD 2.5
    #32772747
Фотография Hel!Riser
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hel!Riser
Участник
Код: plaintext
1.
2.
3.
SET LIBRARY TO fpath.plb
FOR nCnt= 1  TO Words(cFIO)
  ?WordNum(cFIO, nCnt)
ENDFOR
...
Рейтинг: 0 / 0
09.11.2004, 08:31
| Ответить | Цитировать | Написать  
Разбиение строки в FPD 2.5
    #32772786
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
может так???
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:06
| Ответить | Цитировать | Написать  
Разбиение строки в FPD 2.5
    #32772789
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
может так???
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, 09:08
| Ответить | Цитировать | Написать  
Разбиение строки в FPD 2.5
    #32773060
XAndy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
XAndy
Гость
См. функцию getwordnum()
...
Рейтинг: 0 / 0
09.11.2004, 11:22
| Ответить | Цитировать | Написать  
Разбиение строки в FPD 2.5
    #32773073
Фотография Hel!Riser
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hel!Riser
Участник
XAndyСм. функцию getwordnum()
FPD такое не знало
...
Рейтинг: 0 / 0
09.11.2004, 11:29
| Ответить | Цитировать | Написать  
Разбиение строки в FPD 2.5
    #32773327
XAndy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
XAndy
Гость
О, точно - FPD. Прозрел :)
Ну тогда написать самому аналогичную функцию. Все равно понадобится.
...
Рейтинг: 0 / 0
09.11.2004, 12:44
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Разбиение строки в FPD 2.5
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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