Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Поиск в строке второго или следующего символа / 8 сообщений из 8, страница 1 из 1
24.04.2007, 16:18
    #34484023
Поиск в строке второго или следующего символа
Подскажите как найти в строке, например, 2-ую запятую.
Строки переменной длины.
...
Рейтинг: 0 / 0
24.04.2007, 16:32
    #34484080
klen_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск в строке второго или следующего символа
один из многочисленных вариантов
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Private Sub Кнопка1_Click()
    Dim s As String:    s = "строка, в которой, ищем вторую запятую"
    Dim p As String:    p = ","
    Dim z1 As Integer
    Dim z2 As Integer
    z1 = InStr( 1 , s, p, vbTextCompare)
    If z1 >  0  And z1 < Len(s) Then
        z2 = InStr(z1 +  1 , s, p, vbTextCompare)
    End If
    MsgBox z2, , "позиция второй зпт"
End Sub
...
Рейтинг: 0 / 0
24.04.2007, 16:35
    #34484094
Поиск в строке второго или следующего символа
Да, я так и думал, что придется извращаться.
...
Рейтинг: 0 / 0
24.04.2007, 16:51
    #34484168
Granata005
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск в строке второго или следующего символа
Код: plaintext
=НАЙТИ("х";A1;НАЙТИ("х";A1; 1 )+ 1 )
...
Рейтинг: 0 / 0
25.04.2007, 09:50
    #34485310
FAndrew
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск в строке второго или следующего символа
Granata005
Код: plaintext
=НАЙТИ("х";A1;НАЙТИ("х";A1; 1 )+ 1 )

Это ничего, что форум называется Visual Basic (даже не VBA).
Excel рулит! Зачем нам программисты! Все расчеты в Excel'е!
...
Рейтинг: 0 / 0
25.04.2007, 09:51
    #34485316
FAndrew
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск в строке второго или следующего символа
Эдуард АркадьевичДа, я так и думал, что придется извращаться.
И что Вас тут так извратило?
...
Рейтинг: 0 / 0
25.04.2007, 09:52
    #34485319
Granata005
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск в строке второго или следующего символа
FAndrew Granata005
Код: plaintext
=НАЙТИ("х";A1;НАЙТИ("х";A1; 1 )+ 1 )

Это ничего, что форум называется Visual Basic (даже не VBA).
Excel рулит! Зачем нам программисты! Все расчеты в Excel'е!
Гы... точно :) не заметил что в ВБ сижу а не в VBA.... :D
...
Рейтинг: 0 / 0
25.04.2007, 10:29
    #34485443
SoftParanoik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск в строке второго или следующего символа
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Public Function InStrMod(str1 As String, str2 As String, Optional Occurs As Long =  1 ) As Long
    If Occurs <=  1  Then
        InStrMod = InStr(str1, str2)
    Else
        InStrMod = InStr(InStrMod(str1, str2, Occurs -  1 ) +  1 , str1, str2)
    End If
End Function

Debug.Print InStrMod("abcdceecq","c",3)
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Поиск в строке второго или следующего символа / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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