Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Символьная строка / 4 сообщений из 4, страница 1 из 1
10.11.2009, 23:19
    #36302560
Romull
Romull
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Символьная строка
Не волшебник, а только учусь.

Допустим есть Publ pStrok='электроника', нужно эту строку раздербанить на 3 local более менее равномерно,

lStrok=LEFT(pStrok,4)
lStrok3=RIGHT(pStrok,3)

а вот lStrok2= хоч тресни не соображу , при чем изначально длинна pStrok не известна,
дабы получилось:
lStrok='элек'
lStrok2='трон'
lStrok3='ика'
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.11.2009, 23:45
    #36302599
igorbik
igorbik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Символьная строка
Romull,

Например, так (код можно сократить):
*****************
WORD1 = ALLT(PSTROK) && убираем лишнее
LEN1 = LEN(WORD1) && длина слова
NUM1 = ROUND(LEN1/3,0) && число букв на 1/3 часть

lStrok1 = LEFT(WORD1,NUM1)
lStrok2 = SUBSTR(WORD1,NUM1+1, NUM1)
lStrok3 = SUBSTR(WORD1,NUM1*2+1)
****************************
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.11.2009, 23:49
    #36302606
Romull
Romull
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Символьная строка
Пасиб добрый человек, ща буду пробовать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2009, 00:01
    #36302625
Romull
Romull
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Символьная строка
Еще раз спасибо, то что надо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Символьная строка / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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