powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Символьная строка
4 сообщений из 4, страница 1 из 1
Символьная строка
    #36302560
Romull
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Не волшебник, а только учусь.

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

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

а вот lStrok2= хоч тресни не соображу , при чем изначально длинна pStrok не известна,
дабы получилось:
lStrok='элек'
lStrok2='трон'
lStrok3='ика'
...
Рейтинг: 0 / 0
Символьная строка
    #36302599
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
Символьная строка
    #36302606
Romull
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Пасиб добрый человек, ща буду пробовать.
...
Рейтинг: 0 / 0
Символьная строка
    #36302625
Romull
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Еще раз спасибо, то что надо.
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Символьная строка
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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