найти позицию последнего слэша в строке

[fomkatya]

как найти позицию последнего слэша в строке, если знаешь сколько их встречается

test = '/anp/'

len(test) - len(REPLACE(test, '/','') возвращает 2 (количество встречающихся /)

[GSerg]

RTFM!
InStrRev

[gaidar]

Код: Выделить всё

Dim p As Integer
p = InStrRev(myString, "/")

[Enigmus]

Добавь в форму Text1, Text2 и Command1.
В процедуре Command1_Click() напиши:
For i = 1 to Len(Text1.Text)
slash = Mid$(Text1.Text, Len(Text1.Text) - i + 1, 1)
If slash = "\" then
Text2.Text = "Позиция последнего слэша: " & i
End If
Надеюсь, помог.

[RayShade]

enigmus! Ты в ближайший магазин тоже за хлебом через Владивосток катаешься? InstrRev - единственный ответ.

[X-BOND]

Добавь в форму Text1, Text2 и Command1.
В процедуре Command1_Click() напиши:
For i = 1 to Len(Text1.Text)
slash = Mid$(Text1.Text, Len(Text1.Text) - i + 1, 1)
If slash = "" then
Text2.Text = "Позиция последнего слэша: " & i
End If
Надеюсь, помог.

Мы не ищем легких путей...

[RayShade]

Хотя я б сделал проще, если уж нужен цикл:

Код: Выделить всё

for i = len(text1.text) to 1 step -1
if mid(text1.text,i,1)="\" then exit for
next i
msgbox "Last slash at " & i