InStrRev

[Димитрий]

Не нашёл замену этой функции VB6.
Подскажите, как правильнее поступить? (PB8)

[SLUTER]

If Position& is -1 or less, Main$ is searched from right to left. The value -1 starts at the last character, -2 the second to last, etc. If Position& is not given, the default value of +1 is assumed.

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

#COMPILE EXE
#DIM ALL

FUNCTION PBMAIN () AS LONG
    LOCAL str AS STRING
    str = "текст мой текст"
    MSGBOX STR$(INSTR(-1, str, "текст"))
END FUNCTION


[Димитрий]

Как всегда - всё просто
Спасибо