Thread: Find whether string contains hyperlink and Process the same
View Single Post
 
Old 12-01-2015, 02:29 AM
PRA007's Avatar
PRA007 PRA007 is offline Windows 7 64bit Office 2010 32bit
Competent Performer
  
Join Date: Dec 2014
Location: Ahmedabad, Gujrat, India
Posts: 145
PRA007 is on a distinguished road
Default
Don't know how but this works. If you can just give hint what this does, it would be grateful.

Code:
StrTxt = HttpReq.responseText
      i = InStr(StrTxt, "https://mirror.patentscope.wipo.int/patentscope/docservicepdf_pct_mirror/")
      If i > 0 Then
        StrTxt = Mid(StrTxt, i, Len(StrTxt) - i)
        i = InStr(StrTxt, ".pdf")
        If i > 0 Then
         StrTxt = Left(StrTxt, i + 3)
Reply With Quote