Гость
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Instr(....) / 8 сообщений из 8, страница 1 из 1
09.06.2003, 14:17
    #32179551
Наталья1
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Instr(....)
Можно ли узнать номер 15-й запятой в строке? Номер 1-й узнаю как instr(...)
...
Рейтинг: 0 / 0
09.06.2003, 14:18
    #32179554
Sirios
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Instr(....)
а по конкретнее...
...
Рейтинг: 0 / 0
09.06.2003, 14:26
    #32179567
Наталья1
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Instr(....)
Есть сторока "123,2,222,434,55,66". Номер первой запятой - instr(1, str, ",")=4. Интересно, есть ли какая-то ф-я, с пом. кот. можно узнать номер 3 (или 5, 10) запятой (=10). Можно, конечно, циклом, но слишком долго.
...
Рейтинг: 0 / 0
09.06.2003, 15:00
    #32179622
Sirios
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Instr(....)
используй стартовые позиции в твоей же Instr(). найдя первую запятую ставь старт на её позицию и ищи следующую. Так можно весь текст просканировать.

pos=0
str2=","
For i = 1 to <Кол-во запятых>
pos = Instr(pos, str, str2)
if (str2=0) then i = <Кол-во запятых>
Next i
...
Рейтинг: 0 / 0
09.06.2003, 15:03
    #32179626
Sirios
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Instr(....)
исправь:
код
if (str2=0)
на код
if (pos=0)
а то протупил нечаяно :-)
...
Рейтинг: 0 / 0
09.06.2003, 16:34
    #32179743
Processor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Instr(....)
Используй v=Split(expression[, delimiter[, count[, compare]]])
...
Рейтинг: 0 / 0
09.06.2003, 17:37
    #32179841
Шогал
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Instr(....)
>Можно ли узнать номер 15-й запятой в строке? Номер 1-й узнаю как instr(...)
Конечно, можно: ее номер равен 15 ;))))))
А если серьезно:
Код: plaintext
1.
2.
3.
4.
5.
6.
a= "45 , 4545 , 877 , 98 , 8 , 7 , 8989 , 87 , 78 , 899 , 87 , 8998 , 8 , 78 , 98 , 78 , 89 , 89 , 87 , 8 , 9 , 899 , 8 " 'лень набирать текст
k= 0 
for i= 1  to len(a)
if(mid(a,i, 1 )= "," ) then k=k+ 1 : if k= 15  then x=i
next
msgbox(cstr(i))
...
Рейтинг: 0 / 0
10.06.2003, 12:50
    #32180430
Наталья1
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Instr(....)
Всем бооольшое спасибо!
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Instr(....) / 8 сообщений из 8, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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