- ベストアンサー
inet コントロールを用いてHTMLソースのリンクを全て取得するには？
お世話になります。 Inet.OpenURL("http://www.yahoo.co.jp") でhtmlソースは取得できたのですが <a href>タグの中のurlを全てとりだしてテキストファイルに保存するにはどうすればよいでしょう？ いろいろ調べてみたのですがサンプルプログラムがみつからず困っています。詳しい方しえてください。
- mokukun
- お礼率57% (22/38)
- Visual Basic
- 回答数1
- ありがとう数0
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
関連するQ&A
- Inetでサイトのソースを取得する時にメモリ不足のエラーが出る
For i = 0 To 10 Inet1.URL = List2.List(i) Text1.Text = Text1.Text + VbCrLF + Inet1.OpenURL Next i Text1に複数のサイトのソースを表示するプログラムです。 繰り返しの回数が10回くらいだとエラーは出ませんが30くらいにすると メモリ不足のエラーが出てしまいます。これを防ぐには どうすればよいのでしょうか？
- ベストアンサー
- Visual Basic
- PHPでＨＴＭＬソースを取得する方法はありますか？
PHPでＨＴＭＬソースを取得する方法はありますか？ ＲＳＳで複数のＨＴＭＬソースを取得しました。 以下のことをやりたいのですが、こういったことは可能でしょうか？ ・複数のHTMLソースを取得する（同じサイトからなのでタグの種類も大体同じものです） ・その中から<data>タグを取得する（dataの中にはそれぞれ適当な数字が入っています） ・それをソートして、ソート順にＵＲＬを表示する。 このようなことは可能でしょうか？ $RSS=ＲＳＳのＵＲＬ（ＸＭＬ） foreach($RSS as $value){ $URL[]=$value->URL; } for ($i = 0, $n = count($URL); $i < $n; $i++) { echo $URL[$i] . "<br />"; } これでそれぞれのＵＲＬが ＵＲＬ１ ＵＲＬ２ ＵＲＬ３ とそれぞれ表示されます。これらのＵＲＬからそれぞれの<data>タグを取得して上のようなことをやりたいです。 説明が下手で申し訳ありませんが、よろしくお願いします。
- ベストアンサー
- PHP
- HTMLソースからURLだけを抜き出す方法を教えてください！
どなたかお知恵をお貸しください。 HTMLのソースファイルからURLを取得するツールを 作ろうと思うのですが、そのURLだけを抜き出すと いうところがよく分かりません。 ソーステキストを open "source.txt" for input as #1 do until eof(1) line input #1,aa で一行ずつ読み込んでいき、 その中から InStr関数で「http://」の文字列を検索すると いうことぐらいは想像がつくのですが、URLは 文字数も決められているわけではないので、検索で 見つかった位置から最後までを抜き出すという方法が どうしても分かりません。 あるいは、タグの <A href= という文字列を検索して 見つかった位置から次に > という文字列が見つかった 場所までの間を抜き出すという方法になるかと思いますが、 最初に検索で見つかった位置から次に見つかった位置まで をどのように検索すればいいのかが分かりません。 何かいい手がございましたら、ぜひ教えてください。 よろしくお願いします！
- ベストアンサー
- Visual Basic
- Ajax.Requestで取得したHTMLソースから'href'の値を
Ajax.Requestで取得したHTMLソースから'href'の値を取得する方法について Javascriptにて取得した別ページのHTMLタグから 必要な部分のみ値を取得し、配列に格納することは可能でしょうか？ 以下Javascript ------ var url = "http://test/index.htm"; new Ajax.Request( url, { "method":"get", asynchronous:false, onComplete: function(request) { html = request.responseText; } } ); alert(html); ------ 以下"http://test/index.htm"のHTMLタグ ------ <html> <head> </head> <body> <a href='http://test/index2.htm'>index2</a> <a href='http://test/index3.htm'>index3</a> <div>index4</div> </body> </html> ------ 上記で"http://test/index.htm"のHTMLタグの全てを取得して出力することはできたのですが、 "href"の"http://test/index2.htm" "href"の"http://test/index3.htm"のみ配列に格納したいのです。 よろしくお願いいたします。
- ベストアンサー
- AJAX
- HTMLから自動的に文章取得
HTMLデータの中から、狙った文章をPerlで抜き出すプログラムを書こうとしています。 (1)urlが並んでいるテキストファイルから、１番上を$urlに入れる (2)urlからHTMLを取得する (3)HTMLを解析、文字列の取得 (4)「author: title: 」のように、形を変えて、新たなテキストファイルに１行printする。 (5)すべてのurlに繰り返す と動くプログラムです。 LWP::Simpleのget関数を使うか、wgetを使うかも考えています。 ここでの質問は、(1)の、URLを上から順に引っ張ってくるプログラムの作り方を聞きたいです。 $i行目の改行までを取得、という考えでいいでしょうか？ ベターな方法や、少しでも参考になる情報がありましたら教えていただけると嬉しいです。
- ベストアンサー
- Perl
- 保存の仕方
こんにちは、次のようなアドレスを入力するとそのソースを表示するプログラムを作ったのですがこれで表示されるソースに名前を付けて保存することってできますか？お願いします。 Private Sub Command1_Click() Dim strUrl As String Dim strBuf As String Command1.Enabled = False strUrl = InputBox("URLを入力して下さい.") If (Len(strUrl) = 0) Then Exit Sub End If Command1.Enabled = True strBuf = Inet1.OpenURL(strUrl) Form2.Show Form2.Text1.Text = strBuf End Sub Function Getsource() As String Dim strBuf As String Dim strUrl As String strBuf = Inet1.OpenURL(strUrl) 'ファイル内容を取得 Getsource = strBuf End Function
- ベストアンサー
- Visual Basic
- テキストをHTMLに変換するソース
掲示板を作成しております。 テキストをHTMLに変換するソースサンプルを教えてください。 たとえば、こちらのサイトみたいにURLを入力すると リンクとして表示されるサイトです。 http://yahoo.co.jp ↑のようにリンクとして表示させられればOKです。
- ベストアンサー
- Perl
- VBAでソースから全てのURLを取得したい
VBAでソースに書いてある全てのURLを取得したいのですが、現状では一部しか取得できません。 文字数制限にでも引っかかっているのでしょうか？ どうすれば全てのURLを取得できるのか・・添削して頂けると or ヒントを教えて頂けると助かります。 よろしくお願いします。 (Excel2003を使用) Sub test() Dim objIE As Object Dim objTAG As Object Dim source As String Dim url As String Dim url_start As String Dim url_end As String Dim y As Long url_end = 1 y = 1 Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = False objIE.Navigate "http://dir.yahoo.co.jp/" Do While objIE.Busy = True DoEvents Loop Application.Wait Time:=Now + TimeValue("00:00:03") source = objIE.Document.All(1).Innerhtml Do While y < 10000 url_start = InStr(url_end, source, "<a href=", vbTextCompare) If url_start = 0 Then y = 10000 Else url_end = InStr(url_start, source, ">", vbTextCompare) url = Mid(source, url_start + 9, url_end - url_start - 10) Cells(y, 1).Value = url y = y + 1 End If Loop End Sub
- ベストアンサー
- Visual Basic
- VB6でテレビ番組表HTMLの保存
VB6の以下のプログラムで下記URLのテレビ番組表を保存しようとしたのですが、うまくできませんでした。ソースを開いてみるとEUC-JPとなっていまして、これが原因かと思うのですが、保存するにはどうしたら良いでしょうか？ よろしくお願いします。 ■URL http://tv.nikkansports.com/tv.php?site=007&mode=06&category=g&area=025&template=time&sdate=20081226&lhour=24&shour=5&arg=05 ■プログラム Private Sub Command1_Click() Dim strURL As String ' 取得URL Dim strFileName As String ' ファイル名 ' URLとファイル名を代入する strURL = Text1.Text strFileName = Text2.Text ' 指定されたURLのドキュメントをファイルに出力する Open strFileName For Output As #1 Print #1, Inet1.OpenURL(strURL) Close #1 MsgBox strURL & "を" & strFileName & "に出力しました" End Sub
- 締切済み
- Visual Basic
- 指定したＵＲＬのソース（HTML）を拾ってくるプログラム
入力して指定したＵＲＬの先にあるソースファイル（ＨＴＭＬ）を拾ってきて、ＵＲＬの抽出や過去にとってきたソースと比較して更新されているかどうかをチェックするプログラムを作成しようと思っています。 これに類似したサンプルプログラム（スクリプト）や参考になるサイトを教えてもらえませんか。よろしくお願いします。
- ベストアンサー
- Perl
