DAY 032: _INSTRREV

[vince]

I need help getting this to work

Code: (Select All)

deflng a-z

s$ = "much Steve go or after full Steve then if"
? s$

? instr(s$, "Steve")
? _instrrev(s$, "Steve")
? insteve(s$, "Steve")

function insteve(a$, b$)
    insteve = len(a$) - len(b$) + 2 - instr(resteve$(a$), resteve$(b$))
end function

function resteve$(a$)
    b$ = ""
    for i=1 to len(a$)
        b$ = b$ + mid$(a$, len(a$) - i + 1, 1)
    next
    resteve$ = b$
end function