CutString_ReverseFrom

Returns full string starting from the point of LocIndex minus back where we found StartingString_Rev before LocIndex
Then cut it until end of FromString.

CodeFunctionName

What is this?

Public

Tested

Original Work

Function CutString_ReverseFrom(LocIndex, FromString, StartingString_Rev)
    ' Returns full HTML area starting from LocIndex minus where we found StartingString_Rev before LocIndex
    ' Then cut it until end of FromString
    '
    Rett = FromString
    For I = LocIndex To 1 Step -1
        If UCase(Mid(FromString, I, Len(StartingString_Rev))) = UCase(StartingString_Rev) Then            ' Found open before we find close
            Rett = CutString1(FromString, I)
            Exit For
        End If
    Next
    CutString_ReverseFrom= Rett
End Function

LocIndex, FromString, StartingString_Rev