내가 저점 600 하이퍼 링크를 가서 그들로부터 정보를 얻을 수있는 스크립트를 쓰고 있어요 VBS

Question

과 다음 저점 하이퍼 링크를 하나 개의 웹 페이지에서가는, 그러나 여기 내가

그래서 난 전에 VBS 스크립트를 쓴 적이 캐치입니다 내 아주 기본적인 "이동 사이트 X 스크립트"를 가지고, 한 번 거기에 하이퍼 링크를 따라 가고 싶습니다, 문제는 나중에 내가 사이트 Y (같은 사이트에 가고 싶어 becaus 링크의 문자열 주소를 사용할 수 없습니다 나는 다른 단어를 찾고있다.) Y는 X와 같은 하이퍼 링크를위한 동일한 버튼을 가질 것이다. 그러나 그것 뒤에있는 문자열은 다를 것이다.

누구나 X에 대한 링크로가는 스크립트를 만드는 방법에 대한 아이디어가있다. 나중에 Y (그래서 하이퍼 링크 문자열을 사용하지 않고

감사

>Option Explicit 
>Dim objCHR 
>Set objCHR = CreateObject("InternetExplorer.Application") 
>objCHR.Navigate "http://www.yeastgenome.org/cgi-bin/locus.fpl?locus=YGR084C" 
>objCHR.visible = true 

Answer 1

이 첫 번째 프로그램입니다 경우 VBScript를를 사용하는 이유는이 같은 것들 (예를 들어 루비를)하고 지방 나은 언어이며, webcrawling 않는 라이브러리 등의 질량을 가질 수 궁금해 여기에 예제가 많이 있습니다. 다른 답변으로 여기에 Ruby 예제를 게시합니다.

X Y 링크를 따라갈 수 없지만 페이지의 내용을로드하는 방법은 간단한 instr 및 mid 또는 정규 표현식으로 필요한 정보를 추출해야합니다. 당신이 정확히 무엇을하고 싶은지 알려주면 내가 더 당신을 도울 수 있습니다.

Set objCHR = CreateObject("InternetExplorer.Application") 
objCHR.Navigate "http://www.yeastgenome.org/cgi-bin/locus.fpl?locus=YGR084C" 
objCHR.visible = true 
Do while not objCHR.ReadyState = 4 'wait till the page is loaded 
    Wscript.Sleep(100) 
Loop 
Wscript.Echo objCHR.Document.body.InnerHTML 'show entire contents as HTML 

Answer 2

스크립팅 언어를 배우고 싶다면 Ruby 또는 Python을 배우십시오. 여기 페이지의 모든 링크를 보여주는 간단한 루비 스크립트 (nokogiri를 라이브러리로 사용), mechanize를 사용할 수도 있습니다.

require 'nokogiri' 
require 'open-uri' 

doc = Nokogiri::HTML(open("http://www.yeastgenome.org/cgi-bin/locus.fpl?locus=YGR084C").read) 
hrefs = doc.css("a").map do |link| 
    if (href = link.attr("href")) && !href.empty? 
    URI::join(url, href) 
    end 
end.compact.uniq 
STDOUT.puts(hrefs.join("\n"))