vba text between
' Returns first text between pOpen and pClose (both can't contain "/" character...)
Function ExtractTag(pSource As String, pOpen As String, pClose As String)
Dim startC As Long, endC As Long
startC = InStr(1, pSource, pOpen) + Len(pOpen)
endC = InStr(1, pSource, pClose)
If startC > 0 And Len(pSource) - startC - (Len(pSource) - endC) > 0 Then
ExtractTag = Mid(pSource, startC, _
Len(pSource) - startC - (Len(pSource) - endC))
End If
End Function
' --------------------------------------------------------------------------------------
Sub TestMe()
Debug.Print ExtractTag("Weather is [tag]fine[#tag].", "[tag]", "[#tag]") ' fine
Debug.Print ExtractTag("Value(banana).", "(", ")") ' banana
End Sub