Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Есть ли такая функция в фоксе? / 5 сообщений из 5, страница 1 из 1
15.07.2009, 14:13
    #36091212
Imperous
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Есть ли такая функция в фоксе?
Всем привет!

Есть ли функция (стандарная фоксовская), которая из такой строки:
"0,01 0,03 0,045 0,08 0,06 0,2" (например известно что значений 6 и разделитель между значениями два пробела )
может вытащить значения поочередно
0,01
0,03
0,045
0,08
0,06
0,2

?
...
Рейтинг: 0 / 0
15.07.2009, 14:17
    #36091229
PaulWist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Есть ли такая функция в фоксе?
Код: plaintext
1.
2.
3.
4.
a = "0,01 0,03 0,045 0,08 0,06 0,2"

FOR i =  1  TO GETWORDCOUNT(a, ' ' )
?GETWORDNUM(a, i, ' ')
ENDFOR 
...
Рейтинг: 0 / 0
15.07.2009, 14:17
    #36091230
Imperous
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Есть ли такая функция в фоксе?
приведу пример, если в listboxе сказать что у него rowsourcetype = value и запихнуть ему в rowsource строку вида "5, 6, 80, 115, 4"
то он покажет именно так как мне надо, но у него разделитель - запятая, а мне надо два пробела
...
Рейтинг: 0 / 0
15.07.2009, 14:31
    #36091266
прошелмимо
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Есть ли такая функция в фоксе?
Код: plaintext
1.
2.
3.
4.
Local lcStr, lnTime, laArr[ 1 ]
lcStr = "0,01 0,03 0,045 0,08 0,06 0,2"
For lnTime= 1  to ALines( laArr, lcStr,  4 , " ")
 ? laArr(lnTime)
EndFor 
...
Рейтинг: 0 / 0
15.07.2009, 14:49
    #36091335
Imperous
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Есть ли такая функция в фоксе?
PaulWist,

пасиба!
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Есть ли такая функция в фоксе? / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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