Find whether string contains hyperlink and Process the same

macropod · #1 11-30-2015, 07:16 PM

Quote:

Originally Posted by PRA007

I want to extract link similarly from following website.

view-source:https://patentscope.wipo.int/search/en/detail.jsf?docId=WO2015177801&recNum=1&tab=PCTDocu ments

Text I want is in following formate

"https://mirror.patentscope.wipo.int/patentscope/docservicepdf_pct_mirror/id00000031470708/PAMPH/WO2015177801.pdf"

I can find it using

Code:

"https://mirror.patentscope.wipo.int/patentscope/docservicepdf_pct_mirror/*.pdf"

You would need to use a similar approach to the macro I gave you in post #8.

PRA007 · #2 12-01-2015, 02:29 AM

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)

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Multiple Hyperlink to a single string	PRA007	Word VBA	7	11-09-2015 04:29 PM
find a set of characters in a string and return a 0 (zero) if not found	MaineLady	Excel	2	11-05-2015 03:23 PM
Why is this Find string not working	TechEd	Word VBA	5	07-05-2014 08:12 PM
Find and replace a string of text	errtu	Word	1	01-31-2013 02:09 PM
Bad view when using Find and Find & Replace - Word places found string on top line	paulkaye	Word	4	12-06-2011 11:05 PM