This is not an html plugin, it is a VB/VBA function that can not have preview here, to see it working, you need to add it to your VBA project and run the function

If you don't know what I am talking about, then this maybe not for you



' Cut a string from a char no to a char no (CutString1)
' ie
' St1="Name|Equals to|Ahmed"
' CutString(St1, , "|") ======> to get the 'Name' string
' CutString(St1, "|", "|") ======> to get then 'Equals to' string
' sr = InStr(InStr(1, St1, "|") + 1, St1, "|") ======> to get the index of the 2nd "|" found in the whole string
' CutString(St1, "|", , sr) ======> to get 'Ahmed' string, start searching after the 2nd "|" found
' CutRightString(St1, , "|") ======> to get the 'Ahmed' string
' CutRightString(St1,"|","|") will get "Equals to' string
'
Function CutString(CutFrom, Optional FromChar = "", Optional ToChar = "", Optional StartSearch = 1) As String
' cut a string from a string starting from a specific charactor and until a specific charactor
' FromChar is the char to cut from (not included)
' ToChar is the char to stop cut to (after FromChar is found) (not included)
' CurFrom is the string to cut from
' StartSearch is the number of charactor to start search from
' If FromChar is not given or not found, it will be assumed as 1
' If ToChar is not given or not found, it will be assumed as the length of the string
Dim Start1, End1
CutString = ""
Start1 = 1
If FromChar = "" Then GoTo Step2
If InStr(StartSearch, CutFrom, FromChar) >= Start1 Then Start1 = InStr(StartSearch, CutFrom, FromChar) + 1
Step2:
If ToChar = "" Then
CutString = Mid(CutFrom, Start1)
Else
End1 = Start1 + 1
If InStr(Start1, CutFrom, ToChar) > End1 Then End1 = InStr(Start1, CutFrom, ToChar)
CutString = Mid(CutFrom, Start1, End1 - Start1)
End If
End Function

Function CutString1(CutFrom, Optional Start1 = 1, Optional End1 = 1) As String
' cut a string from a string starting from a specific charactor index and until a specific charactor
' Start1 is no to cut from (included)
' End1 is no to stop cut to (included)
' CutFrom is the string to cut from
' If Start1 is not given, it will be assumed as 1
' If End1 is not given, it will be assumed as the length of the string.
Dim St1, En1
CutString1 = ""
St1 = 1
If Start1 < Len(CutFrom) Then St1 = Start1
En1 = Len(CutFrom) + 1
If End1 = 1 Then GoTo Step3
If End1 < Len(CutFrom) Then En1 = End1 + 1
Step3:
CutString1 = Mid(CutFrom, St1, En1 - St1)
End Function