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

pos=0
str2=","
For i = 1 to <Кол-во запятых>
pos = Instr(pos, str, str2)
if (str2=0) then i = <Кол-во запятых>
Next i
...
Рейтинг: 0 / 0
Instr(....)
    #32179626
Sirios
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
исправь:
код
if (str2=0)
на код
if (pos=0)
а то протупил нечаяно :-)
...
Рейтинг: 0 / 0
Instr(....)
    #32179743
Processor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Используй v=Split(expression[, delimiter[, count[, compare]]])
...
Рейтинг: 0 / 0
Instr(....)
    #32179841
Шогал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
>Можно ли узнать номер 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
Instr(....)
    #32180430
Наталья1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Всем бооольшое спасибо!
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Instr(....)
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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