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.
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
' 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
Views 226
Downloads 53
CodeID
DB ID