' Returns a string between 2 delimiters' Parameters:' sSearchIn: String to search' sFrom: First keyword' sUntil: Second keywords' nPosAfter: Gets the position after'' Example:' Debug.Print GetStringBetweenTags("This is a sample of title",' "", "")Public Function GetStringBetweenTags(ByVal sSearchIn As String, _ ByVal sFrom As String, ByVal sUntil As String, Optional nPosAfter As Long, _ Optional ByVal nStartAtPos As Long = 0) As String On Error GoTo ERROR_GetStringBetweenTags Dim nLen1 As Long Dim nLen2 As Long Dim nLen As Long Dim nLen3 As Long Dim sFound As String On Error GoTo ERROR_GetStringBetweenTags nLen1 = InStr(nStartAtPos + 1, sSearchIn, sFrom, vbTextCompare) nLen2 = InStr(nLen1 + Len(sFrom), sSearchIn, sUntil, vbTextCompare) If nLen1 = 0 Or nLen2 = 0 Or IsNull(nLen1) Or IsNull(nLen2) Then sFound = vbNullString Else nLen = nLen1 + Len(sFrom) nLen3 = nLen2 - nLen sFound = Mid$(sSearchIn, nLen, nLen3) End If GetStringBetweenTags = sFound If nLen + nLen3 > 0 Then nPosAfter = nLen End IfEXIT_GetStringBetweenTags: Exit FunctionERROR_GetStringBetweenTags: GetStringBetweenTags = vbNullString Resume EXIT_GetStringBetweenTagsEnd Function'========================================' You can find more routines like this on www.vbdiamond.com,' a site devoted to VB developers'========================================
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
