VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/04/02(Wed) 09:47 |
| 投稿者 | ： しんじ |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： 【御礼】解決致しました！ |
魔界の仮面弁士さん
本当にありがとう御座います。
サンプルコードをカスタマイズしたところ正常に動作いたしました。
理由はよく分かりませんがieDoc.frames.item(n).documentがオブジェクトとなっていた為だと思われます。
その部分をieDoc.frames.item(n).document.documentElement.outerTextにしたところ正常に動作しました。
HTML分の取得に関してもieDoc.frames.item(n).document.documentElement.outerHTML
にて完全に取得できました。
こんなコード今回一人では絶対に解決できませんでした。
親切に対応して頂きまして本当にありがとう御座います。
> 再起処理の部分に付いていえば、単純にはこんな感じですかね。
>
> Private Sub test(ByVal ieDoc As Object)
> If ieDoc Is Nothing Then
> Exit Sub
> End If
> If ieDoc.frames.length = 0 Then
> Debug.Print ieDoc.documentElement.outerHTML
> Else
> Dim n As Long
> For n = 0 To ieDoc.frames.length - 1
> test ieDoc.frames.item(n).document
> Next
> End If
> End Sub
教えて頂きましたサンプルコードは以下の用にカスタマイズいたしました。
これで完全に解決しました。
Private Function test(ByVal ie As Object) As String
If ie Is Nothing Then
Exit Function
End If
If ie.Document.frames.length = 0 Then
ie.Doccument.documentElement.outertext
Else
Dim n As Long
For n = 0 To ie.Document.frames.length - 1
test = ie.Document.frames.Item(n).Document.documentElement.outertext
'--取得文字列結合
test = test + test
Next
End If
End Function
なんとお礼を言ってよいのか分からないくらい嬉しいです。
今後ともお力をお借りする事もあるかとは思いますが、極力は自分で調べてどうしても分からない場合は
投稿させて頂きたいと思います。
その際はどうぞよろしくお願い致します。
本当にありがとう御座いました。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）