powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Разбиение строки на части (по пробелам)
5 сообщений из 5, страница 1 из 1
Разбиение строки на части (по пробелам)
    #32473742
Bastard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Здравствуйте !
Допустим есть строка
local st
st = "мама мыла раму мылом"
Пробовал с substr() и AT() но загнать в алгоритм не получается (((
Оговорюсь: использую 6 версию фокса.
Как программно получить все слова по отдельности
"мама","мыла","раму","мылом" ? Затем поместить в массив ???

И еще у меня нет возможности использовать более старшие версии фокса (7,8)
к сожалению ((( И мне надо это сделать именно средствами фокспро 6 !
...
Рейтинг: 0 / 0
Разбиение строки на части (по пробелам)
    #32473754
M.I.V.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
считывай сторку по символьно и как встретится пробел отсекай слово
...
Рейтинг: 0 / 0
Разбиение строки на части (по пробелам)
    #32473775
В foxtools.fll вроде были функции WORDS - получение количество слов в строке и WODRNUM - выбор слова из строки по его номеру.
В VFP8 (не помню, есть ли в VFP7) включены аналогичные функции GetWordCount и GetyWordNum.
Ф-я WORDS (и GetWordCount) по умолчанию в качестве разделителя слов использует пробел и символы LF и CR. Но можно указать и другие разделители.
...
Рейтинг: 0 / 0
Разбиение строки на части (по пробелам)
    #32473853
Bastard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
WORD - появились только с 7 версии фокса !
вот так вот можа :


DECLARE MyArray(OCCURS(' ',st))
ALINES(MyArray,ChrTran(st, " ", chr(13)))
...
Рейтинг: 0 / 0
Разбиение строки на части (по пробелам)
    #32474192
XAndy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
arr = ""
? str2arr("мама мыла раму мылом", @arr)
display memory like arr


function str2arr
lparameters cStr, aArr
external array aArr
local iWords, i, j
cStr = alltrim(cStr)+" "
iWords = occurs(' ',cStr)
declare aArr[iWords]
for i=1 to iWords
j = at(' ',cStr)
aArr = left(cStr,j-1)
cStr = substr(cStr,j+1)
endfor
return iWords
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Разбиение строки на части (по пробелам)
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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