UFT - QTP - How to get certain part of string using VBScript

Link to Mandatory QTP /UFT Interview Questions to read before Interview

 

 

 

We Can use the mid method

'output = Mid(InputString, StartPosition, NoofCharacterRequired)

Syntax
output = Mid("UFT is Great Fun", 5, 5)
Msgbox output

Alternate method

' Comments
'Extract a substring between a "Pre" substring and an "Post" substring.
'e.g.  Util_Text_SubStr("This is my string", "is ", "r")
' will return "is my st"

Function  Util_Text_SubStr(ByVal sString, ByVal sPre, ByVal sPost)
    Dim nStart, nEnd
    Util_Text_SubStr = ""
    If VarType(sString) <> vbString Then
        Exit Function
    End If
    nStart = instr(1,sString,sPre,vbTextCompare)
    If nStart = 0 Then
        Exit Function
    End If
    nStart = nStart + Len(sPre)
    If nStart > Len(sString) Then
        Exit Function
    End If
    If Len(sPost)>0 Then
        nEnd = instr(nStart,sString,sPost,vbTextCompare)
        If nEnd = 0 Then
            Exit Function
        End If
        nEnd = nEnd-1
    Else
        nEnd = Len(sString)
    End If
    If nEnd > nStart Then
        Util_Text_SubStr = mid(sString,nStart,(nEnd-nStart)+1)
    End If
End Function

Happy reading,
Sreenu Babu

Link to Mandatory QTP /UFT Interview Questions to read before Interview